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Information Management System/360 is a processing 
program (control system) designed to facilitate the 
implementation of medium to large common data bases 
in a multiapplication environment. This enviroment is 
created to accommodate both online message processing 
and conventional batch processing, either separately or 
concurrently. The system permits the evolutionary 
expansion of data processing applications from a batch- 
only to a teleprocessing environment. 

This manual provides system programming personnel 
with installation considerations and details for generation 
(definition) of an IMS/360 system for the user's data 
processing environment. The security maintenance 
program is included and message editing capabilities 
discussed. An IMS/360 sample problem is also provided. 



Note : IMS/360 operates under several different 

operating systems (OS/MFT, OS/MVT, OS/VS1, 
and OS/VS2). For ease of reading, these are 
collectively referred to as "operating system" 
in this manual unless some function is peculiar 
to one of the operating systems. 
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CHAPTER 1. INTRODUCTION 



The System Programming Reference Manual is one of a set of manuals 
associated with the operation of the IBM Information Management 
System/360 (IMS/360) . The accompanying illustration shows the logical 
relationships among the manuals in the set. 

This manual provides system programming personnel with installation 
considerations and details for generation (definition) of an IMS/360 
system for the user's data processing environment. The following 
functions are included: 

• System Distribution, Handling, and Maintenance 

• System Definition (IMS/360 System Generation) 

• Security Maintenance 

• User Modifications and Extensions to the Control Program 

• IMS/360 Sample Problem 
Other manuals in the set are: 

IMS/360 GENERAL INFORMATION MANUAL (GH20-0765) 

This manual describes the basic concepts and facilities of the 
IMS/360. This is the first or overview level of documentation in 
support of the Program Product. 

SYSTEM/APPLICATION DESIGN GUIDE (SH20-0910) 

This manual is a guide for the application analyst or system analyst, 
Its contents assist in the design of an IMS/360 system as well as the 
design of the application programs which operate under IMS/360. The 
System Programmer will want to be familiar with the information in 
this manual. 

APPLICATION PROGRAMMING REFERENCE MANUAL (SH20-0912) 

This manual is a reference manual for an application programmer. 
It provides information about the coding techniques necessary to 
implement a designed application under the IMS/360 control system. 
The System Programmer may want to be acquainted with the information 
in this manual. 
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UTILITIES REFERENCE MANUAL (SH20-0915) 

IMS/360 system utility programs, their operation, and purpose are 
described in this manual. It tells how to execute these utilities 
under the operating system. The IMS/360 utilities described are: 

• DBD Generation 

• PSB Generation 

• ACB Generation 

• Data Base Reorganization and Recovery 

• System Log Analysis (Statistics) 

• Message Format/Language Utility 

The System Programmer will need this manual as a reference volume. 

OPERATOR'S REFERENCE MANUAL (SH20-0913) 

The Operator's manual was prepared to provide the information 
associated with operating IMS/360 once the system has been established 
and running. The System Programmer may also want this manual for 
reference. 

MESSAGES AND CODES REFERENCE MANUAL (SH20-0914) 

This manual lists and explains appropriate responses to the 
completion codes, status codes, and messages produced by all the IMS- 
supplied components of the IMS/360 system. 

SYSTEM MANUAL 

The program logic of IMS/360 is explained in this manual. It 
consists of four volumes, as follows: 

Volume I (LY20-0629) is the text and includes a description of each 
module comprising the IMS/360 program. 

Flowcharts of the modules are contained in Volume II (LY20-0630) . 

Volume III (LYBO-0631) contains the listings of the IMS/360 Data 
Base System, furnished as microfiche. 

Volume IV (LYBO-0632) contains the listings of the IMS/360 Data 
Communications System, furnished as microfiche. 

The System Programmer will want these volumes for reference. 
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CHAPTER 2. SYS TEM DISTRIBUTION, HANDLING. AND MA INT E NANCE 



SYSTEM DISTRIBUTION 

IMS/360 Version 2 is available in two configurations: 

1. Data Base System 

2. Data Base - Data Communication System 

The Data Base System provides batch processing only. The Data Base 

- Data Communication System provides message processing, batch-message 
processing, and batch processing. If batch-only processing is. desired, 
the user may order the Data Base System alone. If message, batch- 
message, and/or batch processing is desired, the user may order the 
Data Base System and the Data Communication Feature. The Data Base 

- Data Communication System is created by a marriage of the Data Base 
System modules and the Data Communication Feature modules. 

The distribution of IMS/360 is made on unlabeled, nine-track, 800- 
bpi or 1600-bpi magnetic tape, or unlabeled, seven track, 800-bpi 
magnetic tape. The seven-track tape distribution requires the Data 
Conversion Feature. The nine-track tape distribution is recommended, 
because two nine-track tapes are required for the IMS/360 Data Base 

- Data Communication System. All IMS/360 distribution data sets are 
unloaded copies of direct access partitioned data sets. They have 
been moved to tape using the IBM operating system IEHMOVE Utility 
program. 

DATA BASE SYSTEM 

The Data Base System distribution is composed of one tape. This 
basic distribution tape includes three data sets. These are: 

• IMS/360 Data Base Macro-Definition Library (IMS.DBGENLIB) 

• IMS/360 Data Base Load Module Library (IMS.DBLOAD) 

• IMS/360 Data Base Source Module Library (IMS.DBSOURCE) 

When the IMS/360 Data Base System user receives the IMS/360 Data 
Base System distribution tape, the IEHMOVE program should be employed 
to copy and rename these data sets to direct access storage (Figure 
1) . The following job control language statements and utility control 
cards should assist in the copy execution. While preallocation of 
data sets is not recommended, the DCB attributes of the IMS2.GENLIB 
and IMS2. LOAD data sets must correspond to those of SYS1.MACLTB and 
SYS1.LINKLIB respectively. This may require an additional move/copy 
(disk to disk) after copying from tape to disk. 

Those parameters which are underlined are user-specifiable (for 
example, 2314 rather than 2311). The REGION parameter is required 
only for Operating System/360 MVT execution. Generic name 2400-4 is 
nine track at 800 bpi with DCB= (DEN=2) ; generic name 2400-2 is seven 
track with data conversion at 800 bpi with DCB=(DEN=2). 
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Figure 1. IEHMOVE to direct access storage (Data Base System) 



Nine-Track Tape 
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//SYSPRINT . 
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//SYSUT1 


DD 


//TAPE 1 


DD 


// 
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//DISK1 
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//DISK 2 
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//SYS IN 


DD 




COPY 



COPY 



COPY 



848, NAME, MSGLEVEL=1 

PGM=IEHMOVE,REGION=100K 

SYSODT=A 

UNIT=231 1 ,DISP=OLD,VOLUME=SER= 1111 11 

UNIT= (2400-4, . DEFER) ,DISP=OLD, 

VOLUME=SER=SCRTCH,DCB=(LRECL=80 r 

RECFM=FB,BLKSIZE=800,DEN=2) ,LABEL= (,NL) 

UNIT=2311,DISP=OLD,VOLUME=SER=IL i IB01 

UNIT=231 1 ,DISP=OLD,VOLUME=SER=ILIB02 

* 

PDS=IMS.DBGENLIB, 

FROM=2400-4= (SCRTCH, 1) , 

TO=2311=ILIB01,FROMDD=TAPE1, 

RENAME=IMS2. GENLIB 

PDS=IMS. DBLOAD.FROM=2400-4= (SCRTCH, 2) , 

TO=231 1=ILIB0 1 , FROMDD=TAPE 1., 

RENAME=IMS2.LOAD 

PDS=IMS.DBSOURCE,FROH=2400-4= (SCRTCH,3) ,X 

TO=231 1=ILIB02,FROMDD=TAPElT X 

RENAME=IMS2.DBSOURCE 
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Seven-Track Tap e 
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EXEC 


//SYSPRINT 


DD 


//SYSUT1 


DD 


//TAPE 1 


DD 


// 




// 




// 




//DISK 1 


DD 


//DISK 2 


DD 


//SYSIN 


DD 




COPY 



COPY 



COPY 



M£t MM* HSGLEVEL= 1 

PGM=IEHMOVE,REGION=100K 

SYSOUT=A 

UNIT=231 1 ,DISP=OLD.VOLUME=SER=: 1111 11 

UNIT= (2U00-2,, DEFER) ,DISP=OLD, 

LABEL=(,NL) r 

VOLUME=SER=SCRTCH r DCB= (LRECL=80, 

RECFM=FB,BLKSIZE=800 r DEN=2,TRTCH=C) 

UNIT= 2311 ,DISP=OLD.VOLUME=SER= ILIB01 

UNIT=2311.DISP=OLD.VOLUME=SER=ILIB02 

* 

PDS=IMS.DBGENLIB,TO=2311=IBIL01, 

FROM=2 400- 2= (SCRTCH. 1) ,FROMDD=TAPE1, 

RENAME=IMS2.GENLIB 

PDS=IMS.DBLOAD,TO=2311=ILIB01, 

FROM=2400-2= (SCRTCH. 2) ,FRQMDD= TAPE 1 , 

RENAME=IMS2.LOAD 

PDS=IMS.DBSOURCE r TO=23H=ILIB02, 

FROM= 2400 -2= (SCRTCH r 3) # FRQMDD=TAPE1 . 

RENAME=IMS2. DBSOURCE 



/* 



DATA BASE - DATA COMMUNICATION SYSTEM 

The Data Base - Data Communication System is created by merging 
the data sets in the Data Base System distribution with the data sets 
in the Data Communication Feature. This is accomplished through the 
IEHMOVE program. The basic Data Communication Feature distribution 
tape includes three data sets. These are: 

• IMS/360 Data Communication Feature Macro-Definition Library 

(IMS.DCGENLIB) 

• IMS/360 Data Communication Feature Load Module Library (IMS.DCLOAD) 

• IMS/360 Data Communication Feature Source Module Library 
(IMS.DCSOORCE) 

When the IMS/360 Data Base - Data Communication System user receives 
the IMS/360 Data Base System and Data Communication Feature distribution 
tape, the IEHMOVE program should be used to copy and rename these data 
sets to direct access storage (Figures 1 and 2) . The job control 
language statements and utility control cards (in Figures 1 and 2) 
should assist in the copy execution. While preallocation of data sets 
is not recommended, the DCB attributes of the IMS2.GENLIB and IMS2.L0AD 
data sets must correspond to those of SYS1.MACLIB and SYS1.LINKLIB 
respectively. This may require an additional move/copy (disk to disk) 
after copying from tape to disk. 
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"Figure 2. IEHMOVE • 


Nine-Track 


Tape 


//COPY 


JOB 


// 


EXEC 


//SYSPRINT 


DD 


//SYSDT 1 


DD 


//TAPE1 


DD 


// 




// 




//DISK1 


DD 


//DISK2 
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//SYSIN 


DD 




COPY 



IEHMOVE to direct access storage (DB/DC System) 



84 8, NAME, MSGLEVEL= 1 

PGM=IEHMOVE,REGION=100K 

SYSOUT=A 

UNIT=231 1 ,DISP=OLD. VOLUME=SER= 111111 

UNIT= (2400^4,, DEFER) ,DISP=OLD, X 

VOLOME=SER=SCRTCH r DCB=(LRECL=80 r X 

RECFM=FB,BLKSIZE=800,DEN=2) ,LABEL= (,NL) 

UNIT=2311 # DISP=OLD r VOLDME=SER=ILIB0J[ 

DNIT= 2311 ,DISP=OLD,VOLUME=SER=ILIB02 

* 

PDS=IMS.DCGENLIB, X 

FROM= 2400 -4= (SCRTCH, 1) ., X 

TO=231 1=ILIB0 1 , FROHDD= TAPE 1 , X 

RENAME=IHS2. GENLIB 

COPY PDS=IMS.DCLOAD,FROM=2400-U=(SCRTCH,2) , X 

TO=2311=ILIB01,FROHDD=TAPE1, X 

RENAME=IMS2.LOAD 
COPY PDS=IMS.DCSOURCE r FROM=2it00zi£=(SCRTCH,3) ,X 

TO=231 1=ILIB02,FROMDD=T,APE1 . X 

RENAME=IMS2. DCSODRCE 
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Seven-Track Ta pe 
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DD 
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COPY 



84 8 r NAME, MSGLEVEL= 1 

PGM=IEHMOVE,REGION=100K 

SYSOUT=A 

UNIT=231 1 ,DISP=OLD.VOLUME=SER= 111111 

UNIT= (2400^2 , , DEFER) , DISP=OLD , 

LABEL=(,NL) , 

VOLUME=SER=SCJTCH,DCB=(LRECL=80, 

RECFM=FB,BLKSIZE=800,DEN=2,TRTCH=C) 

UNIT=2311,DISP=OLD,VOLUME=SER= ILIB01 

UNIT=2311,DISP=OLD,VOLUME=SER=ILIB02 

* 

PDS=IMS.DCGENLIB,TO=2311=IBIL01, 
FROM=2400-2= (SCRTCH. 1) ,FR0MDD=TAPE1 , 
RENAME=IMS2. GENLIB 
PDS=IMS.DCLOAD,TO= 2311 =ILIB01, 
FROM=2400-2= (SCRTCH, 2) ,FR0MDD= TAPE1 . 
RENAME=IMS2.LOAD 

PDS=IMS. DCSOORCE,TO=23 H=ILIB02, 
FROH=2 U00-2 = (SCRTCH, 3) ,FROMDD=TAPE 1 
RENAME=IHS2. DCSOURCE 



/* 



Those parameters which are underlined are user-specifiable (for 
example, 2314 rather than 2311). The REGION parameter is required 
only for OS/MVT or /VS2 execution. Generic name 2400-4 is nine track 
at 800 bpi with DCB=(DEN=2); 2400-2 is seven track with data conversion 
at 800 bpi with DCB=(DEN=2). 

INTERACTIVE QUERY FACILITY (IQF) 

The IQF/IMS system is created by merging the data sets in the Data 
Bast/Data Communication system distribution with the data sets in the 
IQF feature. This is accomplished through the IEHHOVE program. 

The IQF/IMS System distribution tape includes the following three 
data sets: 

• IQF/IMS Macro-Definition Library (IQF. GENLIB) 

• IQF/IMS Load Module Library (IQF. LOAD) 

• IQF/IMS Source Mddule Library (IQF. SOURCE) 

When the IMS/360 user receives his IQF feature distribution tape, 
the operating system utility program IEHMOVE should be employed to 
copy and rename these data sets to direct access storage (Figure 2) • 
The following job control language statements and utility control cards 
should assist in the copy execution. While preallocation of data sets 
is not recommended, the DCB attributes of the IQF. GENLIB and IQF. LOAD 
data sets must correspond to those of SYS1.MACLIB and SYS1.LINKLIB 
respectively. This may require an additional move/copy (disk to disk) 
after copying from tape to disk. 
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848, NAME, MSGLEVEL= 1 

PGM=IEHMOVE,REGION=100K 

SYSOUT=A 

UNIT=2311,DISP=OLD,VOLUME=SER=111111 

UNIT= (2400-4,, DEFER) ,DISP=OLD. X 

VOLUME=SER=SCRTCH,DCB= (LRECL=80. X 

RECFM=FB,BLKSIZE=800,DEN=2) r LABEL= ( r NL) 

UNIT=2311,DISP=OLD,VOLUME=SER= ILIB 01 

UNIT=2311,DISP=OLD,VOLUME=SER=ILIB02 

* 

PDS=IQF. GENLIB, 

FROM=2400-4= (SCRTCH, 1) , X 

TO=23l"l=ILIB0 1 ,FROHDD= TAPE1 . RENAME=IMS2. GENLIB 

PDS=IQF. LOAD,FROM=2400-4= (SCRTCH, 2) , X 

TO=2311=ILIB01,FROMDD=TAPE1.RENAME=IMS2.LOAD 

PDS=IQF.SOURCE,FROM=2400 Z 4=(SCRTCH # 3) , X 

TO=23 1 1=ILIB0 2 ,FROMDD=TAPE 1 , RENAME=IQF. SOURCE 



Seven-Track Tape for IOF 
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//DISK1 
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//DISK 2 
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/* 



848, NAME. MSGLEVEL= 1 

PGM=IEHMOVE,REGION-100K 

SYSODT=A 

UNIT=23 1 1 , DISP=OLD , VOLUHE=SER= 111111 

UNIT=f 2400-2,, DEFER) ,DISP=OLD. X 

VOLDME=SER=SCRTCH,DCB=(LRECL=80, X 

RECFH=FB r BLKSIZE=800 # DEN=2) r LABEL- ( r NL) 

UNIT= 231 1 ,DISP=OLD,VOLqME=SER=ILIB01 

UNIT-2311,DISP=OLD,VOLUHE=SER=ILIB02 

* 

PDS=IQF.GENLIB, 

FROM=2 400-2 =fSCRTCH, 1) , X 

TO 2311=ILIB0 1 / FROHDD=TAPEl, RENAME=IMS2. GENLIB 

PDS-IQF.LOAD,FROM=2400-2=(SCRTCH,2) , X 

TO=231 1=ILIB01,FROHDD=TAPE 1 , REN AME=IMS2. LOAD 

PDS=IQF. SOURCE, FRO 11=2400-2= (SCRTCH, 3) , X 

TO=231 1=ILIB02 # FROHDD=TAPE1, RENAME=IQF. SOURCE 



Those parameters whice are underlined are user-specifiable (for 
example, 2314 rather than 2311). The REGION parameter is required 
only for MVT execution. Generic Name 2400-4 is nine track at 800 bpi 
with DCB= (DEN=2) ; 2400-2 is seven track with data conversion at 800 
bpi with DCB=(DEN=2). 

SYSTEM HANDLING 

Once the IMS/360 libraries have been copied from the distribution 
tape to direct access storage, the user is able to begin to tailor 
IMS/360 to his data processing environment. The tailoring of IMS/360 
to a particular user's data processing environment is accomplished 
with the IMS/360 system definition macro-instructions which are 
contained within IMS2. GENLIB. Because the IMS/360 system executes 
with a collection of control blocks, which describe the user's data 
processing environment, system definition is required. These control 
blocks, which describe application programs, data bases, communication 
lines and terminals, and other IMS/360 resources, are constructed by 
the system definition process. 
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The IMS/360 user must prepare a control card input deck for IMS/360 
system definition. The control card types and formats are described 
later in this manual. Once the control card deck has been prepared, 
it is appended to a package of job control language for the macro- 
instruction assembly of system definition. System definition is 
required if either an online message processing and batch processing 
(combined Data Communication - Data Base) or a batch-only processing 
(Data Base System) system is desired (Figure 3) • 

If the user has an existing IMS/360 system which is not to be altered 
except for the inclusion of the Interactive Query Facility feature 
(IQF) , an online system definition is required as shown in Figure 3 
and described in the discussion of the IMSCTRL macro-instruction in 
Chapter 3 of this manual. The IQF user must prepare a control card 
input deck (macro-instructions) to specify the data bases accessible 
to IQF as well as the transaction codes to invoke a query. These 
statements must be added to the decks previously used to perform the 
system definition. See Chapter 3 of this manual. 

If the user is installing IMS/360 for the first time, the macro- 
instructions to define data bases and transaction codes for IQF can 
be incorporated in the initial system definition. 
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Figure 3. System definition handling 
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The output from IMS/360 system definition may include: 

• Generation and placement of IMS/360 control program control blocks 
into the IMS2.RESLIB library 

• Generation of the IMS/360 control program nucleus into the 
IMS2.RESLIB library, with the optional inclusion of user message 
edit routines 

• Generation and placement into the IMS2.EESLIB library of the Data 
Language/I batch processing nucleus 

• The linkage edit of three user supervisor calls (SVCs) , one of 
which is used for interregion communication, one for online system 
operation, and one for OSAM multivolume execution. These are 
placed in the IMS2-HESLIB library. The user can specify the desired 
SVC numbers. The OSAM SVC modules must bo link edited into the 
SYS1.SVCLIB data set. The other two SVC modules must be link 
edited with the OS nucleus. 

• The naming and creation of the OSAM channel-end appendage module 
in the IMS2.RESLIB library. The user can specify the module name 
and must link edit the module to SYS1.SVCLIB. 
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• The moving of procedures to a user procedure library or 

SYS1 .PROCLIB. These procedures are used for data base description 
(DBD) and program specification block (PSB) generation, ACB 
generation and maintenance, IMS/360 execution, message region 
execution, batch region execution, etc. 

• The naming and creation of the 7770-3 channel/abnormal end appendage 
module in the IMS2.RESLIB library if the system contains 7770-3 
lines. The user can specify the module name and must link edit 

the module to SYS1.SVCLIB. 

• The link edit of an additional load of the Type 4 SVC to the 
IMS2.RESLIB library if the system contains 7770-3 lines. The 
module must be link edited into SYS1.SVCLIB with the OSAM SVC 
modules. 

Once IMS/360 system definition has been performed, a Type 1 SVC 
for interregion communication and one Type 2 SVC routine must be link 
edited with the operating system nucleus. The OSAM Type 4 SVC routines 
must be link edited into SYS1.SVCLIB. 

The IMS/360 user must have provided space for one Type 1 user SVC 
routine, one Type 2 user SVC routine, and one Type 4 user SVC routine 
in his operating system system generation. If the system definition 
is for batch Data Base System execution only, the Type 4 user SVC is 
all that is reguired. This SVC is used by OSAM. The procedure for 
relink-editing the operating system nucleus with the user SVC routines 
is specified in Chapter 3 of this manual. 

Once system definition, the SVC-operating system nucleus link-edit, 
and the OSAM SVC link-edit to SYS1.SVCLIB are performed, the user must 
allocate direct access space for the DBD, PSB, ACB, and application 
program libraries. In addition, if online processing is desired, space 
should be allocated for message queue, conversation scratchpad, and 
log restart data sets. All these data sets must be cataloged. In 
addition, the operating system privileged name table module in 
SYS1.LINKLIB must be modified to incluude the name DFSRRC00 and the 
procedures IMS and IMSRDR must be moved to SYS1 .PROCLIB. This allows 
for START and STOP IMS commands which initiate and terminate the IMS/360 
online control region to be executed. Chapter 3 of this manual 
describes the execution of these functions. 

Finally, the user is ready to create DBDs, PSBs, ACBs, and 
application programs. Before any message processing may be performed, 
the required data bases must be created in the batch region environment. 

SYSTEM MAINTENANCE 

Permanent modifications and corrections to problems encountered 
with the IMS/360 system are provided with complete library replacements 
through distribution of new modification levels of all IMS/360 
libraries. These "mod-level" distributions are made on a periodic 
basis. 

Between releases of modification levels of IMS/360, users receive 
corrections to the system on PTF (Program Temporary Fix) tapes. These 
PTF tapes are automatically distributed to licensed users. They are 
distributed based on the number of problems discovered and fixed since 
either the most recent modification of the program product or of the 
PTF tape. The PTF tape contains symbolic updates for the IMS2.DBSOURCE, 
IMS2.DCSOURCE, and IMS2.GENLIB libraries. It also contains replacement 
load modules for the IMS2.LOAD library. These load modules correspond 
to the SOURCE library updates. 
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Between the releases of PTF tapes, fixes for problems reported by 
users are distributed in two ways: (1) The user who reports the problem 
receives a response letter describing the source symbolic updates 
necessary to correct the problem. (2) A summary of the problem and 
its solution are entered into an IBM internal information system through 
which Field Engineering representatives can acquire problem summaries 
and solutions for all users. 

The solutions to individual problems provided between PTF tapes 
and modification levels are source symbolic updates. If the updates 
are for the IHS2. DBSOURCE or the IMS2.DCS0URCE library, the user is 
instructed to perform a "temporary" update, assemble, and link edit 
the object module into either IMS2.L0AD or IMS2.RESLIB. If the symbolic 
change affects IMS2.GENLIB, it may be necessary to perform a new IMS/360 
system definition. If this is so, the instructions accompanying the 
change will specify that a new system definition is necessary. 
Typically, individual fixes only require assembly of updated source 
members and reprocessing of the affected IMS/360 load modules to 
incorporate the new load modules created during the assembly process. 

For users of the Interactive Query Facility (IQF) , permanent 
modifications and corrections to problems encountered with IQF are 
provided from time to time with complete library replacements through 
a mod-level distribution of all IQF libraries. Whenever possible, 
IQF mod-level distributions will be coincident with IMS/360 mod-level 
distributions. (This does not mean, however, that the number of the 
mod-level will always match; for example, IQF Modification Level 3 
could be the same as IMS/360 Modification Level 2, etc.) 

Between releases of modification levels of IQF, users receive 
corrections to the system on PTF (Program Temporary Fix) tapes. These 
PTF tapes are automatically distributed to licensed users. They are 
distributed based on the number of problems discovered and fixed since 
either the most recent modification of the program product or of the 
PTF tape. The PTF tape contains symbolic updates for the IQF.SOORCE 
and IQF. GENLIB libraries. It also contains replacement load modules 
for the IMS2.L0AD library. These load modules correspond to the SOURCE 
library updates. 

Between the releases of PTF tapes, fixes for problems reported by 
IQF users are distributed in the same manner as described for IMS/360 
in the preceding discussion. 

The solutions to individual problems provided between PTF tapes 
and modification levels are source symbolic updates. If the updates 
are for the IQF. SOURCE library, the user is instructed to perform a 
"temporary" update, assemble, and link edit the object module into 
either IMS2.L0AD or IMS2.RESLIB. If the symbolic change affects 
IQF. GENLIB, it may be necessary to perform a new IMS/360 system 
definition. If this is so, the instructions accompanying the change 
will specify that a new system definition is necessary. Typically, 
individual fixes only require assembly of updated source members and 
reprocessing of the affected IQF load modules to incorporate the new 
load modules created during the assembly process. 

For user changes such as the addition or deletion of transaction 
codes or data bases, a system definition for a CTLBLKS type of 
generation is required. (See discussion of IMSCTRL macro-instruction 
in Chapter 3 of this manual.) 



2.11 



CHAPTER 3. IMS/360 SYSTE M DEFINITION 



Through system definition a user structures IMS/360 to serve his 
data processing environment. This structuring includes a definition 
of communication line groups, lines, physical terminals, logical 
terminals, pools, and subpools. Pools and subpools are IMS/360 
resources associated with switched communication lines. System 
definition also includes the definition of transactions, application 
programs, data bases, and various operating system interfaces. The 
subject of system definition is discussed in detail in this chapter. 

Security maintenance is a supplementary process associated with 
system definition. Through use of the security maintenance utility 
a user defines the terminal and password security characteristics of 
a defined IMS/360 system. The subject of security maintenance is 
discussed in detail in Chapter 4 of this manual. 

IMS/360 SYSTEM STRUCTUR ING CONSIDER ATIONS 

Before structuring the IMS/360 system, the user must consider the 
reguirements and capabilities of IMS/360 in relation to his own 
reguirements for the most expeditious operating environment. 
Consideration must be given to such things as the amount of main and 
secondary storage to be dedicated to IMS/360, the number of application 
programs to be run, and how many of these programs are to be run 
concurrently. A determination must be made of the transaction codes 
which are going to initiate the various application message processing 
programs and how many transaction codes are necessary. Each transaction 
code is assigned a class identifier, and each message processing region 
is assigned up to four class identifiers. These identifiers then 
determine which transactions are scheduled into which region. Region 
class assignments can be made according to application program size, 
response reguirements, or other variables. The user must decide which 
transaction codes are to be of the response-type and which of the 
nonresponse-type. Decisions must be made concerning how many 
transaction codes cause data base updates, and how many are restricted 
to entry from a particular terminal. Consideration must also be given 
to how many communication lines and terminals of each type are to 
operate with the IMS/360 system. 

In supplying answers to these guestions, the user should consider 
the possible impact of his decisions on the operating capability of 
the system and the efficiency of its operation. The IMS/360 
System/Application Design Guide (SH20-0910) provides design information 
for evaluation of the various system capabilities and reguirements. , 

IMS/360 allows the user to immediately process or batch online 
transactions. The user would be wise to consider whether some of the 
transaction codes he chooses can be gueued up and can wait for 
processing on an as-reguired basis (batched) . Time accounting is an 
example of the type which may fall into this category. Attendance 
reporting is another. Transaction codes of these types can be readily 
batched, because there is no necessity for an immediate-type response. 

"Response-type" and "nonresponse-type" messages should not be 
confused with true "message types". Whenever a response-type message 
is entered from a terminal, the user should always be aware that his 
terminal locks and he must wait for a response before he can enter 
another message from that terminal. The nonresponse-type message is 
entered and competes with other messages, on a priority basis, for 
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system resources, but the terminal and communication line are always 
available for further message input until response. 

The processing limit count feature of IMS/360 allows consideration 
of the number of messages which a reusable application program can 
process in one load of the program. 

The scheduling limit count feature, in conjunction with the 
scheduling limit priority, does not say that a program will never be 
processed if there are always higher priority messages. It does say 
that, if the particular message is not called for execution by the 
time a certain number of messages have been received and queued, the 
scheduling priority is changed to a higher one. If there are messages 
with higher selection priorities in the system, of course, this message 
may still have to wait. 

The total IMS/360 system must be considered by the user when 
structuring his system. The user must consider what the various types 
of transactions mean to the system, what the responses are, how many 
there are, etc. 

Again, the user must consider the number of programs he wishes to 
be operating concurrently; how large these programs are and how many 
transaction codes they are operating against; and with how many 
terminals. These considerations affect the amount of core which is 
dedicated to IMS/360. Each application program, and the system, at 
any given time, may require additional amounts of space. Even the 
number of terminals concurrently being transmitted to has an effect 
upon the amount of core buffer space which should be allocated. 

For example, assume a message is entered from a terminal. The 
application program for processing this message may send messages to 
each of six different terminals. This means that IMS/360 may require 
core buffer space for one line of the message output to each terminal. 
If the system is executing three application programs concurrently 
and trying to transmit to those six terminals, it would require 
allocation for 3 (number of application programs) times 6 (number of 
terminals) buffers in addition to the core required to hold the three 
application programs (in message processing regions) . 

The I/O units on which a system user chooses to place his message 
queues have special significance on system operations. If disk instead 
of drum is chosen, as an example, there is an effect on the number 
of messages run and consequently how many are processed. Since drum 
access is faster than disk, a greater number of messages can come in 
and go out of the system faster than when disk storage is used. Of 
course, there is more storage available on disk, but this is part of 
the tradeoff analysis to be made while structuring the system. 

A number of factors must be considered when the Interactive Query 
Facility (IQF) feature is incorporated into the IMS/360 environment. 
These factors include the installation's requirements for security 
and privacy, the need to limit data base processing intent, the 
requirements for multiple processing of queries, etc. The IMS/36 
V ersion 2 System Application and Design Guide (SH20-0910) provides 
further information on structuring the system environment to include 
IQF. 

DEFINING THE IMS/360 SYSTEM 

So far this discussion has centered on what the IMS/360 system user 
should consider in structuring the environment in which IMS/360 will 
execute. Now to be considered is how the IMS/360 system is tailored 
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to the user's needs. This is accomplished with the IMS/360 system 
definition macro-instructions. 

The IMS/360 requirements have been mentioned, and it is obvious 
that there must be modifications to make IMS/360 compatible with the 
operating system. These are accomplished through the use of three 
supervisor calls (SVCs) which must be made a part of the operating 
system. This is a simple matter for the system programmer to 
accomplish. 

The System/360 used for the IMS/360 two-stage definition process 
must be at least a Model 40, with the "F" assembler and at least 128K 
storage. If an OS/VS 1 or VS/2 system is used, the generation can be 
accomplished in a virtual region. The IMS/360 system definition must 
be run using the same version of the operating system under which the 
generated system will execute. The one Type 1 interregion communication 
SVC and the one Type 2 control SVC must be placed by the system user 
into (link-edited with) the Operating System nucleus of the system 
under which IMS/360 execution is to occur. In addition, the OSAM SVC 
modules for OPEN/CLOSE and the OSAM channel-end appendage must be moved 
to SYS1.SVCLIB (MFT, MVT, and VS1) or SYS1.LPALIB (VS2) . If the 
complete Data Base - Data Communication System is to be executed, the 
OS privileged name table module in SYS 1. LINKLIB must be modified to 
include the name DFSRRC00. This allows the online control program to 
be initiated through a START IMS command. (Use of the. START, STOP, 
and MODIFY commands is explained in the Executing IMS/360 section of 
Chapter 4 of the IMS/360 Oper ator'g Reference Manual, SH 20-0 913.) If 
the OS/VS 1 or OS/VS2 system is to be used for either DB/DC or DB only, 
the privileged name table must have the name DFSRRC00 added to the 
list. All IMS/360 system data sets must be cataloged. If the complete 
Data Base/Data Communication System is to; be executed and contains 
7770-3 lines, the 7770-3 channel/abnormal end appendage and DEB builder 
(load 12 of the OSAM Type 4 SVC) modules must be link edited into 
SYS1.SVCLIB (MFT, MVT, and VS1) or SYS1.LPALIB (VS2) . 

The character set used by IMS/360 is the Assembler Language character 
set as defined in the SRL IBM System/ 360 Operating S yste m: Asse mble r 
Langua ge (GC28-6514). 

IMS/360 SYSTEM DEFINITION MACRO-INSTRUCTIONS 

The function of the IMS/360 system definition utility is to provide 
a user the capability of creating an IMS/360 system tailored to a 
specific environment. 

System definition is a two-stage utility written primarily in the 
operating system assembler macro language. The first stage of the 
utility processes the user's specifications and checks them for 
validity, consistency, and compatibility. If the checks are successful 
(that is, if no errors are encountered) , an operating system job stream 
(Stage II) is produced. When this job stream is executed, it produces 
an executable IMS/360 system, capable of operating in the environment 
and with the capabilities described in Stage 2 of IMS/360 system 
definition. 

The user's input to the IMS/360 system definition utility contains 
four categories of information: (1) Data Base (Data Language/I) and 
Application, (2) Data Communications, (3) Interactive Query Facility 
(IQF) , and (4) General System environment specifications. If a complete 
Data Base - Data Communication System is not desired, only the input 
describing the general system environment is required. This batch-only 
Data Base System allows Data Language/I data base operation in a batch 
processing region environment. 
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The following paragraphs describe the information required in each 
category: 

Data Base - Data Language/I 

This category of system- definition includes information about 
application programs, transaction codes, and data bases used in the 
combined data communication - data base environment. Only application 
programs used for message processing or batch processing with data 
bases concurrently used for message processing need be defined. Only 
data bases used by application programs for message processing need 
be defined. 

Application programs, as well as information concerning their 
operating characteristics, are defined and associated with the 
transaction codes they are to process. 

Data base specifications name all Data Language/I data bases to be 
under control of the generated system and select logging and control 
blocks residency options. 

Transaction codes must be defined. This includes transaction code 
name and scheduling characteristics. If a transaction is used for 
terminal conversation, conversational scratchpad area (SPA) 
specifications are required. The SPA is maintained in main storage 
or on disk as specified. 

Data Commu nicatio ns 

The system definition utility provides the specification of all 
supported telecommunication devices. This includes telecommunication 
line group, line, terminal, and terminal component specifications. 
Facility is also provided for incorporation of user-written modules 
to edit input and output messages. 

If terminal conversation capabilities are desired, the number of 
concurrent conversations to be allowed must be specified. The user 
must also specify the number of conversational scratchpad areas (SPAs) 
to be maintained by the system, a subset of which may be defined as 
core resident. 

Interactive Que ry F acil i t y HQF), Feat ure 

Provided as an additive feature for IMS/360 users with the full 
Data Base/Data Communication system, IQF operates in a mode similar 
to a user's message processing application program. At message 
scheduling time, IQF is united with an input transaction (query) and 
a data base for execution in a message processing region. The 
association of transaction code, program and data base must be specified 
at system definition. This is accomplished through use of the system 
definition APPLCTN and TRANSACT macro-instructions described later in 
this chapter. One or more TRANSACT macro-instructions is required for 
each logical data base (or group of logical data bases) to be queried 
by a given transaction code. Each group of logical data bases 
accessible to IQF through a transaction code is described by a PSB 
(Program Specification Block) . 

If the optional IQF Index (QINDEX) capability is employed, the user 
must describe the data base(s) by the DATABASE macro-instruction, also 
described later in this chapter. It is not necessary to define either 
the IQF System Data Base or the IQF Phrase Data Base through use of 
the DATABASE macro. These data bases are automatically defined to IMS 
at system definition time. 
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G eneral S ystem Specifications 

The user supplies information determining the IMS/360 - operating 
system interfaces such as SVC numbers, appendage names, etc. as well 
as: 

• Library and message queue data sets 

• Message processing region information, including size, number, 
and class 

• Number and size of single and multiple line buffers 

• Size of DMB, PSB, data base buffer, and various teleprocessing 
pools 

• Job and SYSOOT class of the Stage 2 job stream and number of JOB 
cards produced by Stage 2 

The control blocks as well as the executable code modules included 
in the generated system are only those necessary for execution. For 
example, if no 1050 terminals are specified, neither 1050 control 
blocks nor the modules for the 1050 are included in the user's system 
residence library (IMS2.RESLIB) . Only those modules which are not 
part of the resident nucleus are moved or linked into IMS2.RESLIB. 

Some IMS/360 system definition macro-instructions appear only once 
in the Stage 1 input stream, while others may be used multiple times 
in a hierarchical set arrangement to describe related user requirements. 
Figure 4 lists which macro-instructions are required and which may 
be used more than once. The end of this chapter provides examples 
of IMS/360 system definition. 
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1 Ms 
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struction 


Type 


of Definition 


1 na 
1 In 


Data Communication - 
Data Base System 


Data Base Only 
(Batch) System 


1 1 


IMSCTRL 


Required 


1 


Required 1 


1 2 


IMSCTF 


Optional 


1 


Optional 1 


1 3 


SPAREA 


Optional 


1 


N/A * 


1 4 


BUFPOOLS 


Required 


1 


N/A 


1 5 


MSGQUEUE 


Required 


1 


N/A 


I 6 


IMSGEN 


Required 


1 


Required 1 


1 7 


DATABASE 


Required 


n 


N/A 


1 8 


APPLCTN 


Required 


n 


N/A 


1 9 


TRANSACT 


Required 


n 


N/A 


1 10 


LINEGRP 


Required 


n 


N/A 


1 11 


LINE 


Required 


n 


N/A 


I 12 


CTLUNIT 


Optional 


n 


N/A 


113 


STATION 


Optional 


n 


N/A 


|14 


TERMINAL 


Required 


n 


N/A 


115 


NAME 


Required 


n 


N/A 


|16 


POOL 


Optional 


n 


N/A 


117 


SUBPOOL 


Optional 


n 


N/A 



* N/A - Not Allowable 
Fiqure 4. Complete IMS/360 system definition macro-instruction 

Three qroups of macro-instructions form hierarchical sets which 
are required for the description of user resources. One qroup (Figure 
5) describes application programs and their related transaction codes. 
The other two describe communication line groups, communication lines, 
and associated physical and logical terminals (Figures 6 and 6A) . 

Not e: All macro-instruction positional or keyword operand values which 
are names must start with alphabetic characters. When defining 
PSB names, logical terminal names, and transaction codes, care 
should be taken in the use of keywords, synonyms, and null words 
as defined in the IMS/360 O p e rator's Re ference Manual. Note 
also that during control blocks or nucleus generation only the 
IMSCTRL card statement need be changed. 
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Hierarchical set requirements are shown in the following: 



Macro -Instruction 
APPLCTN 

TRANSACT 



Number Per Set 


Purpose 


1 


Names application 




program. Delimits 




this set of macro- 




instructions. 


n 


Names transaction 




codes which are to 




be processed by 




the above 




application 




program. 



Figure 5. Application description macro-instruction set 
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Each application program described with an APPLCTN macro-instruction 
should be used for message or batch-message processing. Application 
programs used only for batch processing are not to be described by 
APPLCTN macro-instructions. 



Macro-Instruction 


| Number Per Set 


Purpose 


LINEGRP 


1 


Names collection 
of terminals with 
like attributes. 
Delimits this set 
of macro- 
instructions. 


LINE 


n 


Provides address 
of line and 
delimits terminals 
on same line. 


CTLUNIT 


n 


Provides terminal 
control unit 
address and 
attributes. 
Delimits terminals 
on same control unit. 


TERMINAL 


n 


Provides physical 
terminal data and 
delimits logical 
terminal name. 


NAME 


n 


Provides logical 
terminal names. 



Figure 6. Communication terminal description macro-instruction set. 
Note: When the TERMINAL statement is used to describe a 
switched physical terminal, no NAME state ment may. be 
associated with it. 
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Macro-Instruction 


Hunber Per 


Set 


Purpose 


POOL 


n 




Defines a pool of 
switched terminals 
and delimits pool 
descriptions 


SDBPOOL 


n 




Describes a set of 
logical terminals 
and delimits subpools 


NAME 


n 




Provides logical 
terminal name 



Figure 6A. Switched communications terminal set 



During the system definition process, all resources, except 
communication lines and message-processing regions, are generated in 
a 'started* mode; that is, a /START command is not required to make 
the resource operational. 
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JHSCTRL Macro 

The IMSCTRL macro-instruction is used to describe the basic IBS/360 
control program options and the operating system environment under 
which IMS/360 will operate. The IMSCTRL macro- instruction is always 
required. For the batch Data Base System definition, the MAXIO and 
MAXREGN operands need not be specified. This macro-instruction should 
be the first statement in the system definition control card deck which 
is input to system definition Stage 1 and can only occur once. 



IMSCTRL 



SYSTEM= 




CTLBIKS 
NUCLEUS 



fc -BATCH 



ON-LINE 
ALL 



[ ,MAXIO=number) 

[,MAXREGN= (number, size, job class, 
msgclass) ] 

[ ,»CS= (number[ , number, . . . ]) ] 

I ,DESC=number] 

[ ,MAXCLAS=number J 



Note: The only other macro-instructions needed for a 

batch Data Base System are the IMSCTP and IMSGEN 
macro- instructions. 

• Operand Field: 

SYSTEM= 

specifies the OS programming system configuration and the type 
of IMS/360 system to be generated. The programming system 
configuration under which IMS/360 will operate may be 
multiprogramming with a fixed number of tasks (MFT) , 
multiprogramming with a variable number of tasks (MVT) , 
multiprogramming with a fixed number of tasks in a virtual 
system (VS/1) , or multiprogramming with a variable number of 
tasks in a virtual system (VS/2) . The M65MP version of MVT 
is specified as "H65MP". If programming system configuration 
is not specified, the value "MVT" is assumed. 

The following values specify the type IMS/360 generation to 
be performed: 

CTLBLKS - Generates only a composite control block module 
for use within an IHS/360 nucleus in the IMS/360 
control program region. This function is useful 
if an alternate set of IMS/360 control blocks is 
desired. The Composite Control Blocks module 
(DFSIBLKx) resulting from this option must be link 
edited with an existing control program nucleus 
(DFSCNUCx) . 

NUCLEUS - Generates a composite IMS/360 nucleus for the IMS/360 
control program region as well as a composite control 
block module which is included in the generated 
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MAXIO= 



nucleus. This parameter is useful when generating 
an alternate nucleus including new system features, 
such as additional terminal support or conversational 
support. 

BATCH - Moves required modules from the IMS/360 distribution 
libraries to the user's libraries; generates system 
procedures and a batch Data Base System. This value 
must be specified if the user has not ordered the 
IMS/360 Data Communication feature. 

ON-LINE - Moves required modules from the IMS/360 distribution 
libraries to the user's libraries, generates system 
procedures, and generates those modules comprising 
the CTLBLKS and NUCLEUS options for a Data 
Communication - Data Base System. 

ALL - Combines the BATCH and ON-LINE options. 



specifies the maximum number of terminal I/O requests, message 
queue requests, and Data Language/I data base requests which 
may be in process in the IMS/360 control program region at any 
one time. A recommended minimum number is the sum of the values 
specified in the MAXREGN parameter and the number of 
communication lines divided by 2. The value should never be 
less than the value specified in the MAXREGN parameter. The 
operand may be omitted, thus causing a value to be calculated 
by the formula: 

MAX 10 = ( (n umber o f commu nica tion lines) + MAXREGN + 2) 

2 



MAXREGN= 



MCS= 



DESC= 



specifies the maximum number of regions or partitions which 
IMS/360 is expected to support at any one time. This value 
includes batch message processing regions as well as message 
processing regions. Default value is 3 (regions) . This operand 
is also used to specify region size (default value is 52K) , 
region job class (default value is Class A) , and job message 
class (default value is Class A) . Note that region size (must 
be expressed in terms of xxK) , region job class, and job message 
class must conform to the operating system job control language 
specifications. This operand is ignored for BATCH system 
definitions. 



specifies the routing code to be assigned to the IMS/360 system 
console if multiple console support (MCS) has been included 
in the operating system. If omitted, the master system console 
will be used. 



specifies the message descriptor code to be assigned to the 
IMS/360 system console messages if MCS support has been included 
in the OS generations. If omitted, no descriptor will be 
assigned. 

See the WTO macro and Appendix C of Operating System Supervisor 
and Data Management Macro SRL, Form No. GC28-66U7, for a detailed 
description of the above two operands. Parameters should be 
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defined as required for the ROUTCDE and DESC keywords for the 
WTO macro. 

MAXCLAS= 

specifies the maximum number of unique transaction code classes 
which are to be supported by Message Class Scheduling. Any 
transaction code class specified on either the APPLCTN or 
TRANSACT macro statement must not exceed this value. Valid 
specification of this operand is a decimal number from 1 to 
255. Default value is 1. 

Example of IMSCTRL macro-instruction operands when system option is 
MVT, 50 communication lines and 3 message regions, message region job 
class and msgclass are A, and both an online and a batch system are 
to be defined. 

IMSCTRL SYSTEM=(MVT,ALL) , MAXIO=27 r MAXREGN= (3 r 52K) 

The job class and msg class for all message regions are A. A message 
region size of 52K is used. 

If system is MP65, an alternate online nucleus is to be built (normally 
assuming a previous IMS/3 60 online system definition) , and MAXREGN 
class information is to be class B, the following operands would be 
defined: 

IMSCTRL SYSTEM=(M65MP f NUCLEUS) , MAXREGN= (3 r , B, B) 

The MAXIO value is calculated to 27. 
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TMSCTF Macro 

The TMSCTF macro-instruction defines parameters to the IMS/360 
control facility. 




[SVCN0=(type1, type2 f type4) ] 

[, APNDG=(i;osam suf f ix][ ,7770 suffix])] 

[ , CPLOG=checkpoint log frequency] 

[ , CORE= (minimum, maximum) ] 



• Operand Field: 
SVCNO= 



specifies operating system 
generated IMS/360 system, 
to 255 and must be mutually 
for Type 1, 254 for Type 2, 
SVC is used for IMS/360 int 
2 SVC is used for exclusive 
resources. The Type 4 SVC 
the operands of the IMSCTRL 
for all SVC numbers. 



SVC numbers reserved for use by the 
Entered values may range from 128 

exclusive. Default value is 253 

and 255 for Type 4. The Type 1 
erregion communication. The Type 

control handling of IMS/360 
is used for OSAM. Independent of 

macro, the user must specify values 



APNDG= 



CELOG= 



CORE= 



The first value specifies the OSAM channel-end appendage suffix 
value used by the IMS/360 OSAM access method. The value may 
range from A8 to Z9. Default value is Z9. The second operand 
is the channel/abnormal end appendage suffix for the 7770-3 
if 7770—3 lines are part of the generated system. The value 
specified may range from A8 to Z9 and must not be the same as 
the OSAM suffix. The default value is Z8. The complete 
appendage name(s) will be IGG019xx. 



specifies the number of IMS/360 system log operations between 
automatic IMS/360 checkpoints. The permitted value ranges from 
500 to 32767, Default value is 1000. 



defines the amount of main storage available to the IMS/360 
control facility ENQ/DEQ routines via GETMAIN from subpool 252. 
The first parameter states a minimum main storage availability; 
the second states naximum nain storage availability. Values 
may range from to 32K. The default values are 500 bytes 
minimum and 1000 bytes maximum. For a detailed calculation 
of this value, the reader is referred to the IMS/360 
System/Appli cat ion Design Guide (SH20-0910) . 

Example of IMSCTF macro-instructions, when Type 1 SVC is 241, Type 
2 SVC is 254, and Type 4 SVC is 235, OSAM channel end appendage is 
IGG019Z6, 7770 appendage is IGG019Z0, and CPLOG=2000, is the following: 

IMSCTF SVCN0= (241,254,235) , APNDG= (Z6, Z0) ,CPLOG=2000 
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SPAREA Macro 

The SPAREA macro-instruction defines the maximal number and maximum 
size cf conversational scratchpad areas (SPAs) to be maintained by 
the IMS/360 system. The total number of disk and main storage 
scratchpads can not exceed 4000. When the user defines a conversational 
transaction through the TRANSACT macro, the SPA for that transaction 
will normally be smaller than the maximum defined here. However, it 
can never exceed the maximum specified in this macro-instruction. 
This macro-instruction should be omitted if no conversational 
transactions are subsequently specified through TRANSACT macro- 
instructions. A warning message is generated if transactions are 
subsequently defined in this system definition using SPAs 
(conversational transactions) and this macro-instruction is omitted. 

SPAREA f [CQRE= (number, size) ] \ 

I I 

I [ ,DASD= (number, size} ] I 

I' t 

t ; ; , 1 

• Operand Field: 

CftRE= 

specifies the number and size of the main storage SPAs. If 
this operand is omitted, no main storage SPAs are maintained. 
The number of main storage SPAs determines the maximum number 
of terminal conversations in which incore SPAs are used. The 
size of a main storage SPA can not exceed 32767 bytes. 

EASB= 

specifies the number and size of .the. disk-maintained SPAs. 
The size of a single disk SPA cannot exceed the track length 
of the device on which the SPA resides. One disk SPA^ must exist 
for each concurrent conversation where data associated with 
each conversation is to be maintained on a disk SPA. 

If the user wishes to allow 20 concurrent conversations, with 5 
maintained in main storage the maximum size of which is 200 bytes, 
and with 15 maintained on direct access the maximum size of which is 
1000 bytes, the following operands are appropriate* 

SPAREA CORE= (5,200) ,DASD= (15, 1000) 

If the Interactive Query Facility (IQF) has been incorporated into 
the user's system, the SPA for IQF should be large enough to hold the 
maximum IQF query which may require a full file search; an additional 
34 bytes are required for system usage. (See discussion of SPA for 
the TRANSACT macro-instruction.) 
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BUFPOOLS Macro 

With the BUFPOOLS macro-instruction, the user specifies default 
main storage buffer pool sizes for the online control program system 
region. The sizes and options specified are used unless otherwise 
expressly stated for that buffer or pool at online system control 
program execution time through the PARM field. 




(retain 1 

PSB= \ size, » FLUSH J 

(retain 

,DMB= | size, | FLUSH 



[,DBASE= size] 

[ ,GENERAL= size] 

[ ,FORMAT= size] 

[ ,FRE= number] 
[,COMM= size] 



Operand Field 



PSB= 



DMB= 



DBASE= 



specifies the size of the PSB control block pool. The functions 
provided by the RETAIN and FLUSH parameters are no longer 
required. They are retained only for compatibility with previous 
user system definition source decks. Default value is 10000 
(bytes) . Maximum allowable specification is 65535 bytes. 



specifies the size of the DMB control block pool. The functions 
provided by the RETAIN and FLUSH parameters are no longer 
required. They are retained only for compatibility with previous 
user system definition source decks. Default value is 10000 
(bytes) . Maximum allowable specification is 65535 bytes. 



specifies the size of the common data base buffer pool. This 
pool supplies buffers for all data bases used in the combined 
data base - data communication environment in the online control 
program system region. Default size for DBASE is 10000 (bytes). 
Maximum allowable specification is 65535 bytes. 



GENERAL= 



specifies the size of the general buffer pool area used 
dynamically by the IMS/360 control program and its various 
action modules for producing system messages in response to 
communication activity. Default size for GENERAL is 5000 
(bytes) . GENERAL pool size must be large enough to accommodate 
main storage SPAs, one disk SPA plus 2000. Maximum allowable 
specification is 65535 bytes. 
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FORMAT= 



FRE= 



specifies the size of the message format block pool. Minimum 
specification is 2000 bytes; maximum specification is 16000000 
bytes. Default value is 10000 plus the number of lines requiring 
format services times 1000 (10000+ (LINES*1000) ) bytes. This 
keyword parameter is ignored if no unit types requiring format 
services are included in the defined system. 



specifies the number of fetch request elements that are to be 
used for loading message format blocks into the message format 
block pool. The number specified must be in the range of 10 
to 65535. Default value is 10 plus the number of lines requiring 
format services: maximum default is 20. 



COMM= 



specifies any addition al space to be added to the value 
calculated for the communications line buffer pool. This size 
defaults to unless 3270 is included in the system. If 3270 
is included, this size defaults to 1000 bytes plus 1000 bytes 
for each 3270 line. Maximum allowable specification is 65535 
bytes. 

The reader is referred to the IMS/360 System/Aplicatio n Design Guide 
(SH20-0910) for the details of calculation for the various buffer pool 
sizes. 

In addition to those buffer pools which the system user explicitly 
defines, an additional buffer pool is created by IMS/360 system 
definition for communication device line control operations. The 
buffer requirements for each communication line, as defined by the 
communication terminal type and model attached to that line, are used 
in summation to define the communication line buffer pool size. 

An example of the BUFPOOLS macro-instruction operands with a PSB pool 
of 10,000 bytes and the FLUSH option, with a DMB pool of 10,000 bytes 
and the RETAIN option, with a data base buffer pool of 20,000 bytes, 
and a general pool of 2,000 bytes, is: 

BUFPOOLS PSB=10000,DMB= (10000, RETAIN) ,DBASE=20000, X 
GENERAL=2000 
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MSGOJJEOE Macro 

The HSGQOEUE macro- instruction defines the characteristics of the 
three message queue data sets desired by the user. 



MSGQUEUE 



DSETS= 



/ 
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^ / 



,RECLNG= 



,BUFFERS= 



jsize1\ , jsize2\ 
I 112 f \ 576 { 



111 



[ r size3 ] 



, SHUTDWN= 



nbr 
30 



• Operand Field: 
DSETS= 



specifies the device types on which the three message queue 
data sets will reside (IMS2.QBLKS, IMS2.SHMG, and IMS2.LGMSG, 
respectively) . If all three data sets will reside on the same 
device type, only the first parameter need be specified. 



RECLNG= 



specifies the logical record lengths for the short and long 
message queue data sets, respectively. The minimum value for 
sizel and size2 is 192. Size2 must be equal to or greater than 
sizel. If either sizel or size2 is not specified, default 
values of 192 and 576, respectively, will be assigned. 

SIZE2 minus 48 is the maximum size allowed for segments processed 
by the message format service facility. 



BUFFERS= 



specifies the number of buffers to allocate for message queue 
management and the block size to be assigned for all three 
message queue data sets. If ^br 1 is not specified, a default 
value equal to four plus one-tenth the sum of the number of 
logical terminal names plus the number of transaction codes 
is used. If size3 is not specified, it will be calculated by 
the following formula. If the defaults of sizel (192) and size2 
(576) are used, then size3 will equal 576. Maximum allowable 
number specification is 255. 
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SIZE3 = ((SIZE2 + SIZE1 - 1J/SIZE1) * ((SIZE1 + 47) /48) * H8 

This calculation can leave null space at the end of the short 
and long message blocks. 

SHUTDWN= 

specifies the number of records to be reserved in each data 
set to allow the system to automatically shut down if the data 
set becomes filled with unprocessed messages. 

All sizes ^specified will be rounded up to a multiple of 4. 

An example of the HSGQUEUE macro-instruction with all data sets on 
2314 is: 

MSGQOEUE DSETS=(2314) , BUFFERS= (9, 1 152) ,SHUTDWN=200 

This example indicates that the default sizes for short and long 
messages are adequate, but that two long message records should share 
a block. With the number of buffers indicated, a message flow of 6 
long messages and 11 short messages may be concurrently processed 
against 23 destinations without requiring I/O operations against the 
queue data sets. (See Message Queue Space Allocation in Chapter 3.) 



3.18 



IMSGEN Macro 

The IHSGEN macro- instruction is used to specify the data sets, 
volumes, and I/O devices required for the definition process, the 
system definition output options. 

The IMSGEN macro- instruction must be the last macro-instruction in 
the Stage 1 input stream. It must be followed immediately by an 
assembler END statement. 




[ ASM= {I}] 

|_ ,ASMPRT= (OFF/ J 

f ,JOBCTL= (nbr, jobclass, output class, 1 
L job accounting, step accounting)] 

[" ,maclib= (all ) ~ 

L ' U TILI TY f 

[ ,OBJDSET= name] [ ,USERLIB=name ] 

//NO \ 
, PROCLIB= [ \ YES>£ [ n ] 



II s } ] 



,PAGE= 

[ ,PRTY=] 

[ ,SUFFIX= character] 

I" / |MAP ) 

I ,LKPRT= V (XREFJ , LIST 

f" ,LKSIZE= ( valuel [ ,value2] ) 1 

[ ,LKRGN= size ] 



)] 



• Operand Field: 



ASM= 



defines whether OS component Assembler F or OS program product 
Assembler H Job Control Language is to be produced for the Stage 
II assembly steps. Default value is F. 



ASMPRT= 



specifies the assembler print options for those assembler job 
steps produced by IMS/360 system definition. ON specifies that 
assembly listings are to be generated; OFF, that assembly 
listings are not to be generated. OFF is the default value. 
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JOBCTL= 



nbr 



specifies the number of steps per job card to be produced by 
system definition Stage 1 for execution of Stage 2. Maximum 
allowable value is 10; default value is 5. Regardless of the 
value specified, a job card will be produced for the beginning 
of the link edit steps and for the nucleus link edit step (if 
applicable) . 



jobclass 



specifies the jobclass to be generated on the Stage 2 job card. 
Default value is A. 

output class 

specifies the output class to be generated for the Stage 2 JCL, 
Default value is A. 

job accounting and/or step accounting 

specifies job and/or step accounting data to be placed in the 
Stage 2 JCL. The length of the accounting data may not exceed 
50 bytes. If job accounting data is specified, a programmer 
name of IMS is provided. 



MACLIB= 



specifies the macro reguirements of the generated system. This 
operand is used by system definition to determine the 
macro-instructions to be moved into the IMS2.MACLIB data set. 
This operand is inoperative if the IMSCTRL macro SYSTEM operand 
specifies CTLBLKS or NUCLEUS. Default value is UTILITY. 

UTILITY - Only those macros necessary for PSB and DBD 

generation are copied to the IMS2.MACLIB data set. 

ALL - All IMS/360 macros are copied to the IMS2.MACLIB 
data set, except those necessary for an IMS/360 
system definition. 



OBJDSET= 



specifies the name of a cataloged partitioned data set into 
which assembler object modules are placed during Stage 2 of 
IMS/360 system definition. If not supplied, these modules are 
placed in IMS2.0BJDSET. 



USERLIB= 



should be supplied if any user- furnished routines, such as 
message edit routines, are to be included in the generated 
IMS/360 nucleus. If this operand is omitted and user edit 
routines are indicated, the library containing the routines is 
assumed to be IMS2.RESLIB. The data set must be a cataloged 
data set. 



PROCLIB= 



specifies whether system procedures are to be generated. If 
PROCLIB= NO, no system procedures are generated. Default Value 
is YES. The second parameter (n) defines data base buffer size 
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for a DL/I batch region. The entered value is expressed in 1K 
increments. 

When a number (n) is provided: 

1. Place the entered value as a default buffer requirement on the 
DLIBATCH, IMSCOBGO, and IMSPLIGO cataloged procedures. 

2. Place the entered value in the batch nucleus to be used by DL/I 
as the buffer requirement, when none is provided by the 
application program execution. 

If a number is not provided, the value (n) representing 7K is placed 
in the batch nucleus. 



PAGE= 



PRTY= 



defines whether (PAGE=YES) or not (PAGE=NO) the terminal paging 
feature is to be included in the defined system. 

PAGE=YES is ineffective if no 2260 or 2265 terminals are included 
in the defined system. If 3270 devices are defined, the paging 
capability is included. 

If the Interactive Query Facility has been incorporated into 
the user's system, the user must include video-paging if the 
answer to his query will generate more than one page to a 
video-device. 



specifies the priority placed on the job cards for IMS/360 
system definition Stage 2 jobs. Default is priority zero. 



SUFFIX= 



LKPRT= 



specifies the suffix character appended to the generated 
composite control blocks, nucleus, and security directory module 
names upon placing them into the IMS2.RESLIB data set. The 
IMS/360 online nucleus name always starts with DFSCNUC. This 
suffix character supplies the eighth character of the nucleus 
name. If the suffix character equals zero, the nucleus name 
is DFSCNUCO. This concept applies for composite control blocks 
and security directory module names as well. This concept 
allows the system user to generate multiple IMS/360 systems for 
use in one environment where the characteristics of each system 
vary. Default value is zero. 



specifies linkage editor print options for those linkage editor 
job steps produced by IMS/360 system definition. 

Value Print Option 

XREF Cross-reference table (XREF includes the 

MAP option) 

LIST List of control statements in card image 

format 

MAP Module map 

If this parameter is omitted, only linkage editor error messages, 
if any, are printed. For a more detailed description of these 
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options, see the publication IBM Sy stem/360 Operating Sy stem; 
Li nka ge E dito r, Form GC28-6538. 



LKSIZE= 



LKRGN= 



specifies the value (s) to be placed in the SIZE parameter for 
use by the level F linkage editor. 

where: 

valuel 

specifies the maximum number of bytes of main storage 
available to the linkage editor. This value can be 
specified in the form n (where n represents the actual 
number of bytes of main storage, not to exceed 99999) 
or nk (where n represents the number of 1K blocks of 
main storage, not to exceed 9999K) . 

value2 

specifies the maximum amount of valuel that is to be 
used as the load module buffer and is expressed in the 
form n (where n may not exceed 9999) or nk (which should 
not exceed 100K) . 

Default values are not supplied for the SIZE parameter 
specifications. If valuel and value2 are omitted, the SIZE 
parameter is not specified. For a more detailed description 
of the SIZE option, see the publication I BM System /36 Operating 
System: Linkage Editor (GC 2 8-6 53 8) . 



specifies a region size value to be placed on the generated 
EXEC card for execution of the level F linkage editor. This 
parameter may be specified as a decimal number (not to exceed 
999999) or in the form nk (not to exceed 99999K) . The default 
value is 130K. 
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DATABASE Macro 

The DATABASE macro-instruction defines all data bases to be used 
under control of the IMS/360 online control program. One DATABASE 
macro-instruction must be specified for each HSAM, HISAM, and HDAM 
data base to be used under control of the IMS/360 online control 
program. Two DATABASE macro-instructions are required for a HIDAM 
data base, one for the INDEX DBD, and one for the HIDAM DBD. 



1 

DATABASE 1 [INDEX , ] DBD=name | 
1 



The positional operand, INDEX, indicates that this is a DATABASE 
statement for the INDEX DBD of a HIDAM data base. 

• Operand Field: 

DBD= 

specifies the name of the data base description (DBD) . At 
execution time, the DBD must have been processed by the block 
builder utility program and must exist as a member in the 
partitioned data set named in the IMSACB DD statement 
(IMS2. ACBLIB) . The first character of the name must be a valid 
alphabetic character. If the DBD has not been processed by 
the block builder utility program, and is, therefore, not present 
in the ACBLIB data set, then the data base will be locked at 
execution time. This operand is required. 

If the Interactive Query Facility (IQF) has been incorporated into 
the user's system and the QINDEX capability is employed, two or more 
DATABASE macro-instructions must be added. 
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APPLCTN Macro 

The APPLCTN macro-instruction describes the program resource 
requirements for application programs which run under the control 
of the IMS/360 online control program system region. When combined 
with one or more TRANSACT macro- instructions, the set defines the 
scheduling and resource requirements for an application program. The 
APPLCTN macro-instruction describes only programs which operate in 
message processing regions or batch message processing regions. 
Application programs which operate in batch processing regions are 
not to be described by the APPLCTN macro-instruction. 



APPLCTN 



[DOPT,] 

PSB = name of PSB 

(batch) 
,pgmtype= \ tp ( 



lYESl 
,IQF= NO I 



[,OVLY] ,\class 



• Operand Field: 



DOPT 



PSB= 



specifies that this PSB is to be located dynamically. 

If this parameter is specified, the following actions are taken 
during the execution of the IMS control region: 

1. Initialization does not perform a BLDL on this PSB. Thus 
the PSB need not be present in any data set defined by the 
ACBLIB DD card until it is actually required to process 

a transaction. 

2. Each time the program called by this PSB is scheduled, a 
BLDL will be performed, thus locating the latest copy of 
the PSB. 

3. When the program terminates, the PSB will be deleted from 
the PSB pool as part of the termination process. 

In order to provide greater flexibility in the user's control 
of the library containing the dynamic PSBs, the following 
restriction is imposed: The PSB must reside in a library other 
than IMS2. ACBLIB and be concatenated to it. If the BLDL 
performed at the scheduling of the PSB determines that it resides 
in the first concatenation of the IMSACB DD card set, the PSB 
will be stopped and an error message sent to the master terminal. 
The PSB will not be scheduled. 



specifies the name of the PSB. The first character of the name 
must be a letter. If PGMTYPE is TP, this must also be the 
program name. 
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PGMTYPE= 



IQF= 



defines application program characteristics. TP implies that 
IMS/360 schedules the program when messages exist in the system 
which are processed by the program. It is also the default 
value. A BATCH program may utilize Data Language/I in the 
IMS/360 control program system region and may reference the 
message gueues. If BATCH is coded, all TRANSACT macro-statements 
which follow are assigned a normal and limit priority value 
of zero. The OVLY value indicates that the application program 
uses overlay design. If OVLY is specified for application 
programs which do not use overlay design, it results in 
unnecessary processing overhead in handling the overlay 
supervisor. If OVLY is not specified when reguired, it will 
cause unnecessary core storage to be used in the message 
processing region and may eventually cause the message region 
control program to be abnormally terminated. 

The third parameter of the PGMTYPE= keyword specifies the class 
to which the transaction codes specified in the following 
TRANSACT macro statement (s) are to be assigned. This parameter 
must be a decimal number from 1 to 255. The default value is 
1. If the transaction code class is to be specified in the 
individual TRANSACT macro statement (s) , this parameter need 
not be coded. If the transaction code class is specified in 
both the APPLCTN and TRANSACT macro-statements, the APPLCTN 
macro specification is ignored for the transaction code for 
which specification is made on the TRANSACT macro. 

If IQF=YES is specified, TP is assumed for PGMTYPE. 



specifies whether or not the program invoked by transaction 
codes associated with this transaction is the Interactive Query 
Facility (IQF) . YES must be specified for IQF. 



3.25 



TRAN S ACT Hacro 

The TRANSACT macro-instruction may be used one or more times with 
each APPLCTN macro-instruction. It specifies the transaction codes 
which cause the application program named in the preceding APPLCTN 
macro-instruction to be scheduled for execution in an IMS/360 message 
processing region. It also provides the IMS/360 control program with 
information which influences the application program scheduling 
algorithm and may define a message editing routine. 



TRANSACT 



CODE = transaction code 

,PRTY = (normal, limit, limit 
count) 



,MSGTYPE=(|MULTSEG, NONRESPONSEl class 
llSNGLSEG, RESPONSE / 



[ ,PROCLIM = (count, seconds) ] 

, INQUIRY = fNO lor INQ= (NO \ 
IYESJ IYESJ 

,MODE= 



(sngl| 

\ MULT( 



,EDIT= MOC \ , name 



,SPA=/size 



, (CORE) 

(dasd/ 



• Operand Field: 



CODE= 



PRTY= 



specifies the one- to eight-character alphameric transaction 
code. The first character of transaction codes and logical 
terminal names must be either a letter or a digit. Transaction 
codes and NAME macro-instructions must comprise a set of values, 
each of which is unigue in the system. That is, transaction 
codes and logical terminal names collectively may not contain 
duplicates. The CODE operand is reguired. 



specifies the priorities at which this transaction code contends 
for scheduling selection with other transaction codes being 
processed by the system. The normal and limit values may range 
from through 14 and are coded as one or two numeric digits. 
The limit count value may range from 1 through 65535. The 
normal field is the priority assigned to this transaction when 
the number of input transactions engueued and waiting to be 
processed is less than the value specified in the limit count 
field. The limit priority field is the priority to which this 
transaction code is raised when the engueued count of waiting 
input messages is egual to or exceeds the value specified in 
the limit count field. Once the priority of this transaction 
has been raised to the limit priority, it is not reduced to 
the normal priority until all engueued messages for this 
transaction code have been processed by the program specified 
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in the preceding APPLCTN macro-instruction, that is, the input 
queue is empty. If the limit priority feature is not desired 
for this transaction code, the normal and limit values should 
be equal and the limit count value 65535. Default values for 
normal, limit, and limit count are (1,1,65535). 



MSGTYPE= 



defines the transaction code as being single segment (SNGLSEG) , 
or multiple segment (MULTSEG) , and whether the communication 
line from which the transaction was entered will be held until 
a response is received (RESPONSE) or not (NONRESPONSE) . It 
also specifies the time at which an incoming message is 
considered complete and available to be routed to an application 
program for subsequent processing. MULTSEG means that the 
incoming message may be more than one line in length and is not 
to become eligible for scheduling to an application program 
until an end-of-message indication is received. SNGLSEG 
specifies that the incoming message is always only one line in 
length and becomes eligible for scheduling when the terminal 
operator depresses the EOB key (carriage return if the Auto EOB 
feature is present) or equivalent. NONRESPONSE specifies that, 
upon completion of the input message, single or multiple segment, 
the terminal is to accept further input without waiting for the 
completed input message to be processed. RESPONSE specifies 
that, upon completion of the input message, single or multiple 
segment, the terminal and the communication line to which it 
is attached are to accept no further input until the program 
specified in the APPLCTN macro-instruction has been scheduled, 
has processed the input message, and has sent an output message 
to the input terminal. The third parameter of the MSGTYPE= 
keyword specifies the class to which this transaction code is 
to be assigned. This parameter must be a decimal number from 
1 to -255. The default value is 1 . If the transaction code 
class is specified in the APPLCTN macro statement, this parameter 
need not be specified. If the transaction code class is 
specified in both the APPLCTN and TRANSACT macro statements, 
the APPLCTN macro statement specification is ignored for this 
transaction. The default value is (MULTSEG, NONRESPONSE, 1) . 
Note : An input transaction from a 7770-3 line, 2741 line, or 
2740 non-Station Control will be treated as a RESPONSE-type 
transaction without regard to the type specified for this 
operand. Note also that MSGTYPE=RESPONSE is ignored during 
online processing for all terminals except 2740 Model 1 with 
Station Control feature, and 10 50. 

If IQF=YES is specified in the associated APPLCTN macro, MULTSEG 
and NONRESPONSE are assumed. If the user specifies otherwise, 
it is ignored. 



PR0CLIM= 



specifies the number of messages of this transaction code a 
program can process in a single scheduling and the amount of 
time (in seconds) allowable to process a single transaction (or 
message) . The seconds field specifies a numeric value in seconds 
which may range from 1 to 65535 and represents the maximum CPU 
time allowed for each message to be processed in the message 
processing region. The count field specifies the maximum number 
of messages which are provided to the application program by 
the IMS/360 control program for processing without reloading 
the application program. The count field value may range from 
1 through 65534. Code the count field value at 65535 
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if no limit is to be placed upon the number of messages processed 
at a single program load. Default value for the PROCLIM operand 
is (65535,65535) . 

The seconds value assigned is used for the purpose of controlling 
application program erroneous looping. No attempt need be made 
to optimize the seconds value for program-transaction execution 
time. However, the seconds time value assigned should not be 
less than the expected per-transaction execution time. If the 
scheduled application program exceeds the product of seconds 
and count, the application program will be terminated abnormally. 

The count value assigned is used to determine how many messages 
an application program is allowed to process in a single 
scheduling cycle, that is, program load. When the application 
program has requested and received the number of messages 
indicated in the count value, it will receive a * no more 
messages' indicator upon any subsequent requests from the IMS/360 
control program. IMS/360 may, in fact, have other messages 
enqueued for the application program. Upon receiving the 
indication that no more messages are available, it is the 
responsibility of the message processing application program 
to terminate, thus making available for rescheduling the region 
which it occupied. This feature makes it possible for IMS/360 
to allow scheduling of higher priority transactions which may 
have entered the system while the previous transactions were 
in process. In addition, if any equal priority transactions 
are enqueued, they will become eligible for scheduling on a 
first in, first out (FIFO) basis. 

The PROCLIM parameter is ignored for transactions processed by 
a batch-message processing (BMP) program. BMP transactions are 
assigned a count of 65535 and a time of 24 hours at program 
scheduling time. 



INQUIRY= or INQ= 



MODE= 



This operand should be specified only for those transactions 
which when entered will not cause a change to any data base. 
Programs are prohibited from issuing ISRT, DIET, or REPL calls 
to a data base when scheduled to process a transaction defined 
as INQUIRY=YES. 

Since switched terminals which have signed on for the INQUIRY 
LTERM or 2741, 7770, or 33/35 TWX terminals are not allowed to 
enter transactions which update a data base, the INQUIRY=YES 
parameter must be specified for transactions which will be 
entered by these terminals. 

If an attempt to enter a transaction from one of these terminals 
is made that has not specified INQUIRY=YES, the transaction is 
rejected and a message 'DFS067 Terminal Security violations' 
will be sent to the inputting terminal. 

To prohibit the use of DEFINE or DELETE (phrase definition 
functions) for a transaction code, INQ=YES should be coded. 
Otherwise, if DEFINE and DELETE functions are desired, INQ=N0 
should be coded (or defaulted to by omitting INQ=) . 



determines whether or not data base buffers will be written to 
direct access (flushed) upon each request for a new message 
(SNGL) by the processing program or upon program termination 
(MULT) . Default value is MULT. This operand affects emergency 
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EDIT= 



SPA= 



restart. If MODE=SNGL, emergency restart will only reprocess 
the last message, even if one or more messages were scheduled 
and processed by a single load of an application program. 
Otherwise, emergency restart will reprocess all the messages 
that were scheduled and processed by the single load of an 
application program. Converstationl transactions must be defined 
as SHGL. 

SNGL is forced for IQF applications. 



is the name of a user-supplied transaction input edit routine 
to edit messages prior to the program receiving the message. 
This name must begin with a letter. The specified edit (load 
module) must reside on the USERLIB data set prior to IMS/360 
system definition Stage 2 execution. The first parameter of 
this operand defines whether the transaction is to be translated 
to uppercase (UC) or uppercase/lowercase (ULC) as entered from 
the terminal prior to presentation to the processing program. 
The default is UC. 

The EDIT operand is ignored for IQF since a default edit routine 
is provided for all IQF transactions. 



specifies where the conversational scratchpad will be kept (CORE 
or DASD) , as well as the size of the scratchpad area (SPA) 
required for this transaction. Default value is DASD. The 
inclusion of this operand defines this transaction as a 
conversational transaction and assumes the presence of the 
SPAREA macro- instruction in the system definition. 

If the user's system includes the Interactive Query Facility 
(IQF) , a scratchpad must be specified for all IQF transactions. 
The user may specify either CORE or DASD. The size of the 
scratchpad is 34 bytes plus the length of the longest query 
for which a full file search may be required. 
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L INEGRP Macro 

The LINEGRP macro-instruction defines the beginning of a set of 
communication line, communication terminal control unit r physical 
terminal, logical terminal pool, logical terminal subpool, and logical 
terminal description macro- instructions which include LINE, CTLUNIT, 
TERMINAL, POOL, SUBPOOL, and NAME. These sets are used to describe 
the user's telecommunications system. The LINEGRP macro-instruction 
is used to begin a description of one or more lines of the same type, 
over which the same type of terminal communicates. 



LINEGRP 



ALL LINE GROUPS 



DDNAME= name or list of names 



3270 

TWX 

1030 

1050 

2260 

2265 

2740 

27U1 

2770 

2780 

2980 

7770 

DISK 

PUNCH 

PRINTER 

READER 

TAPE 

SPOOL 



[,EDIT= module name] 



,UNITYPE= 



[, LOCAL] 

[, LOCAL] 
[,NOSTACTL] 



ALL NONSWITCHED LINE GROUPS ONLY 



,FEAT=f 



jl 



NONSWITCHED 
SWITCHED 



,POLL 
AUTOPOLL 



ALL SWITCHED LINE GROUPS ONLY 



,FEAT= (SWITCHED) 



2780 LINE GROUPS ONLY 
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r CODE= 



,MODE= 



' EBCDIC 
USASCII' 
TRANSC 

If} Mill 



2741 NONSHITCHED LINE GROUPS ONLY 



,CODE = ' 



EBCDIC 

BCD 

CORRS 



2741 SWITCHED LINE GROUPS ONLY 



/(EBCDIC) 

,CODE ={BCD [ 

\JC0RRS J 



(EBCDIC 
{BCD 
CORRS 



2770 LINE GROUPS ONLY 



{EBCDIC \ 
,CODE = iuSASCIIJ 



7770 LINE GROUPS ONLY 



,OUTTBL = module 



3270 REMOTE LINE GROUPS ONLY 



/EBCDIC \ 
,CODE =IUSASCIIJ 
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• Operand Field: 
DDNAME= 



specifies a one- to eight-character name w 
generated DCB for this line group within t 
control block to the generated JCL DD card 
lines within the line group. If the line 
is a SPOOL line group, a list of up to 20 
Each SPOOL ddname is associated, in the or 
specified, with the seguentially generated 
produced for the SPOOL print procedures wh 
and named seguentially for each SPOOL line 
the end of the LINEGRP macro operand field 
example of SPOOL ddname association. 



hich associates the 
he IMS/360 nucleus 
s identifying the 
group being defined 
names may be specified, 
der in which it was 

SPOOL data set names 
ich are generated 
group. Refer to 
discussions for an 



FEAT= 



The name(s) must begin with an alphabetic character. The operand 
is reguired. The following DDNAMES cannot be used as LINEGRP 
ddnames: IMS, IMSCSP, IMSDILIB, IMSLOG, IHSLOGR, JOBLIB, SHHSG, 
IMSACB, LGMSG, QBLKS, STEPLIB, SYSABEND, and SYSUDUMP. 



determines whether this group of telecommunication lines is 
leased (NONSWITCHED) or not (SWITCHED). 

when 



1050 
2740 
2741 
7770 
TWX 



FEAT = SWITCHED, UNITYPE 



are the only allowable values 



for the UNITYPE = keyword. 



when 



FEAT = 



JautopollI 
(nonswitched, |poll j), unitype 



10301 

1050 

2740 

1 2780 J 



Note : Polling features are ignored for READERS, PRINTERS, PUNCHs, 
TAPES, DISKS, SPOOLS, 2770s, 2980s, and 3270s. The AUTOPOLL 
polling feature is invalid for 2260s, 3270s (LOCAL) , 2265s, 
2741s, and 2740 (NOSTACTL) . 2260 remote lines use conventional 
polling (POLL) . No polling list is generated for 2260s (LOCAL) , 
3270s (LOCAL), 2740s (NOSTACTL), 2741s (NONSWITCHED) , READERS, 
PRINTERS, PUNCHS, TAPES, DISKS, or SPOOLS. A BTAM AUTOWLST 
is generated for 2770s, 2980s, 3270s, and multi-dropped 2780s. 
No polling list is generated for single-drop 2780s unless 
specifically reguested by specifying AUTOPOLL. 

Direct SYSOUT specifications (PRINTER, PUNCH, TAPE, or DISK) 
do not reguire that specific device type to be assigned at IMS 
execution time. All specifications except PRINTER affect only 
default BUFSIZE or generated JCL. A specification of PRINTER 
will result in execution time translation to the 48 character 
set, lowercase to uppercase and all other codes translated to 
periods (.). If a specification other than PRINTER is used. 
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no translation occurs. If a line not generated as a PRINTER 
is allocated to a printer having the universal character set 
feature (DCS) and fold mode operation is used, unprintable 
characters will print as extraneous alphamerics. 



UNITYPE= 



CODE= 



MODE= 



EDIT= 



specifies the terminal device type contained in this line group. 
UNITYPE=2260 must be specified when defining a line group 
containing both 2260 remote and 2265 terminals. If 
UNITYPE= (3270, LOCAL) is specified, then only one line statement 
may exist in the linegroup. 



specifies translate options for 2770 line groups, 2780 line 
groups, 2741 line groups, and 3270 remote line groups only. 

For 2770 and 3270 line groups, specifies translate table 
EBCDIC/EBCDIC or RASA/SASA. The operand is reguired. 

For 2780 line groups, specifies translate table EBCDIC/EBCDIC, 
RASA/SASA, or RC80/SD80. The operand is reguired. 

For nonswitched 2741 line groups, specifies Extended Binary 
Decimal (EBCDIC) , Binary Coded Decimal (BCD) , or Correspondence 
Code (CORRS) . Default value is CORRS. 

For switched 2741 line groups, specifies Correspondence Code 
(CORRS) and/or Binary Coded Decimal (BCD) . The combination 
of Extended Binary Decimal (EBCDIC) and Binary Coded Decimal 
(BCD) is invalid. Default value is CORRS. 



The first parameter specifies that communications are to be 
through the 270x Data Adapter Unit's Dual Communication Interface 
A or B. 

The second parameter specifies the use of the transmission code 
designated by Code (A or B) for the 270x Data Adapter Onit Dual 
Code Feature. This feature must be present on the 270 x. See 
the BTAM Manual, GC30-2004, BTAH DCBs . 



A user-supplied physical terminal output edit routine for the 
terminal type in this line group. In addition to the edit 
routine specified here, if the LINEGRP refers to 1030 or 7770- 
3 terminals, an edit routine (s) must exist in IMS2.RESLIB before 
system definition Stage 2 is executed. See Chapter 5 of this 
manual. 



ODTTBL= 



is specified only for 7770-3 line groups. The operand represents 
the load module name which contains the output translate table 
for this line group. The control section (CSECT) name is assumed 
to be the same as the load module name. See 7770-3 Output Edit 
Routine in Chapter 5 of this manual for special considerations 
for this module. 
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An example of the LINEGRP macro for a 2260 remote line group with an 
output edit routine is: 



LINEGRP 



DDNAME=DD2260,ONITYPE=2260,EDIT=OUTEDIT1 



An example of the LINEGRP macro for a 2780 line group with no output 
edit routine and EBCDIC translation is: 



LINEGRP 



DDNAME=DD2780,UNITYPE=2780,CODE=EBCDIC 



An example of the LINEGRP macro for a switched 7770 line group with 
an output edit routine is: 

LINEGRP DDNAME=ARU7770 r UNITYPE=7770 r 

EDIT=EDIT7770,FEAT= (SWITCHED) , 
OUTTBL=OUT7770 

An example of the LINEGRP macro and the resulting ddname/dsname and 
print procedure associations for SPOOL line groups is: 

LINEGRP DDNAME=(NAME1 # NAME2) ,UNITYPE=SPOOL 

LINEGRP DDNAME=(NAMEA,NAMEB) , UNITYPE=SPOOL 

the SPOOL print procedure for line group one would be named IHSWT000, 
The data set names produced for this print procedure would be 
IMS2.SYS01 and IMS2.SYS02. 

the SPOOL print procedure for line group two would be named IMSWT001, 
The data set names produced for this print procedure would be 
IMS2.SYS03 and IMS2.SYS04. 

the corresponding JCL generated for the IMS online execution 
procedure would be as follows: 

DISP=SHR,DSNAME=IMS2. SYS01 
DISP=SHR,DSNAME=IMS2.SYS02 
DISP=SHR,DSNAME=IMS2.SYS03 
DISP=SHR r DSNAME=IMS2.SYS04 



//NAME1 


DD 


//NAME2 


DD 


//NAME A 


DD 


//NAMEB 


DD 
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LINE Macro 

The LINE macro-instruction describes both switched and nonswitched 
communication lines. If the line described has only one terminal 
attached, only one TERMINAL macro-instruction appears after the LINE 
macro-instruction. Multiple TERMINAL macro-instructions would appear 
if the description were for a multidrop line. Multiple NAME macro- 
instructions, each of which describes a logical terminal, may appear 
after each TERMINAL macro-instruction which follows a LINE macro- 
instruction. Each LINE macro- instruction must be followed by at least 
one TERMINAL macro-instruction. If the terminal is the 2260-local 
mode, LINE macro-instruction is required with no operands. Only one 
LINE statement per line group is allowed if UNITYPE= (3270, LOCAL) is 
specified on the LINEGRP macro statement. 



LINE 



ALL LINES EXCEPT SPOOL 
2260 LOCAL, AND 3270 LOCAL 



ADDR = 3 hex digits 



2740 LINES ONLY 



,MODEL= 



120 

248} , control 

440 



1030, 7770-3, 3270 (LOCAL) , 
DISK, TAPE, and SPOOL LINES ONLY 



[ ,BUFSIZE=] 



7770-3 LINES ONLY 



,FEAT= 



ABC 
ABB* 



i NOREPE ATl 
, | REPEAT I 



2770 LINES ONLY 



,FEAT= 



BUFEXP 
BUFEXP1 
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2980 LINES ONLY 



[ ,FEAT= BOFEXP] 



• Operand Field: 



ADDR= 



MODEL= 



specifies the address of the communication line as defined in 
the 270X Communication Transmission Control Unit. The address 
value is three hexadecimal digits in the range from 000 through 
6FF. All line addresses specified in the system definition 
must be unique values. This operand is used only to generate 
IMS DD cards for cataloged procedures. It is not allowed if 
terminal is a 2260 local mode or 3270 local. This operand is 
not required for SPOOL line groups. 



is required for 2740 LINEGRP and invalid for all other LINEGRP 
types. This operand specifies whether the LINE has 2740 Model 
1 or Model 2 terminals attached. MODEL=2 is invalid if line 
group FEAT=SWITCHED. If M0DEL=1 (2740 Model 1), all other 
parameters of the MODEL= operand must be omitted. 

The second parameter specifies the maximum input buffer size 
for all 2740 Model 2 terminals on this line. 

The third parameter specifies the header control feature for 
2740 Model 2 terminals on this line and number of characters 
reserved for header control. The default value is 0. Entered 
value for header control must not exceed 28, and must be a 
multiple of 4. 



BUFSIZE= 



this operand is valid for 1030, 3270 (LOCAL), 7770, DISK, TAPE, 
and SPOOL lines only. 

For 1030 lines, this operand is used to specify the maximum 
size of an input message on this line. The operand is required. 
The minimum acceptable value is 2; the maximum value is 182. 

For 3270 local lines, this operand is used to specify the maximum 
size of an input message on this line. The operand is required 
for 3270 local lines containing 3277 terminals and is not allowed 
for lines containing 3284 or 3286 printers. The minimum 
acceptable value is 300; the maximum value is 3850. 

For DISK, TAPE, or SPOOL lines, this operand is used to specify 
the maximum output buffer size to be used for the line. The 
operand is required. The minimum acceptable value is 16; the 
maximum value is 32767. 
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For 7770 lines, this operand is used to specify the input and 
output buffer sizes to be used for the line. The first operand 
is the input buffer size; the second operand is the output 
buffer size. Default value is (50,50). Maximum value for 
either operand is 246; minimum value is 1. 



FEAT= 



For 7770-3 lines only: The first parameter is used to specify 
the line code feature on the 7770. The second parameter is 
used to specify the message repeat capabilities of this line. 

Note; The Touch-Tone Telephone* operates on either ABC or 
ABB' lines. 

See Chapter 5 of this manual for additional information on 
repeat operations, under the topic 7770-3 Input Edit Routine. 

For 2770 lines only: Specifies the largest terminal input 
buffer (2772 line buffer) size which will reside on this 
line. The omission of this keyword specifies an input 
buffer size of 128 bytes; the specification of the Buffer 
Expansion (BOFEXP) or additional Buffer Expansion (BUFEXP1) 
terminal feature will allow for an input buffer size of 256 
bytes or 512 bytes, respectively. 

For 2980 lines only: Specifies the largest terminal input 

buffer size which will reside on this line. The omission 
of this keyword specifies an input buffer size of 48 bytes; 
the specification of an expanded buffer (BOFEXP) will allow 
for an input buffer size of 96 bytes. 

An example of the LINE and LINEGRP macros used in combination to define 
a 2740 Model 2 with maximum input buffer of 248 bytes, line address 
of 024, and no header control or edit routine is: 

LINEGRP DDNAME=D274 02,UNITYPE=274 
LINE ADDR=024 , MODEL= (2 , 248) 

An example for a 1030 environment with a maximum of 50 characters for 
input messages is: 

LINEGRP DDNAME=DD1030,ONITYPE=1030 
LINE ADDR=021,BUFSIZE=50 

Although no edit routine is specified on the LINEGRP statement, the 
1030 edit routine named DFS10300 must exist in the OSERLIB library. 
See Chapter 5 of this manual. 



* Registered Trademark of the American Telephone & Telegraph Co. 
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CTLUNIT Macro 



The CTLDNIT macro 
unit characteristics 
unit address, write 
number. For 2972 co 
and buffer size. Fo 
unit address and mod 
and 3270 remote line 
2260 remote and 2265 
definition of any 22 
defined before any C 
defining 3275 displa 
group with 3 271/3277 
defined prior to any 
control unit. 



-instruction specifi 

For 2848 control 
line addressing (WLA 
ntrol units, CTLUNIT 
r 3271 control units 
el number. CTLUNIT 
groups. For 2260 1 
terminals, the CTLU 
60 terminal, and 226 
TLUNIT statements, 
y stations which are 
control unit/displa 
CTLUNIT macro state 



es 2848, 2972, and 3271 control 
units, CTLUNIT specifies control 
) feature, and 2848 model 

specifies control unit address 
, CTLUNIT specifies control 
is valid only for 2260, 2980, 
ine groups containing both 
NIT statement must precede any 
5 terminal statements must be 
All TERMINAL macro statements 

to be included in a 3270 line 
y station clusters must be 
ment which defines a 3271 



CTLUNIT 



[ ADDR= 
,WLA= 

,MODEL= 



,BUFSIZE= 




hex byte] 



, [1053] 



(2260 line groups must specify 2848 control unit features.) 

• Operand Field: 

ADDR = 

specifies the two-digit hexadecimal address of either (1) the 
2848 control unit associated with the 2260 remote mode or (2) 
the two-digit hexadecimal polling address of the 3271 associated 
with the remote 3277, or (3) the two-digit hexadecimal address 
of the 2972 control unit. These addresses are those assigned 
by the customer engineer upon installation of the control unit. 
Note that for the 3271, the customer engineer will assign the 
selection address, which must be converted to the polling address 
for specification here. This operand is not allowed if 2260 
local mode is being specified. To be acceptable as a valid 
2972 control unit address, this operand must be the hexadecimal 
representation of a character from A through Z. 



WLA= 



specifies the existence of the write line addressing and 1053 
features on this 2848 control unit. The 1053 parameter can not 
be specified for 2260 local mode, but write line addressing can 
be specified. Specification of this keyword is invalid for 
2980 line groups. 
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MODEL= 

specifies the 2848 or 3271 control unit model number. For 3271 
control units only, the value 1 or 2 may be specified. Default 
value is 2. For 2848 control units, the entered value will 
determine the input buffer size for terminals attached to this 
control unit. Specification of this keyword is invalid for 
2980 line groups. 

2848 Control Units (default value is 3) : 

Model Buff er Size 

1 240 

2 480 

3 960 



BUFSIZE= 



specifies the 2972 control unit buffer size. The entered value 
will determine the output buffer size for terminals attached 
to this control unit and may not exceed the value implied with 
the FEAT= keyword of the LINE macro instruction. This keyword 
is invalid for 2260 and 3270 line groups. 
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TERMINAL Macro 

The TERMINAL macro-instruction describes a physical terminal on 
a nonswitched line or the representation to BTAM of a physical terminal 
on a switched line. NAME macro-instructions which follow the TERMINAL 
macro-instruction supply the logical terminal name(s) associated with 
the physical terminal at system definition time. Within the definitions 
and restrictions of terminal security, the first NAME macro-instruction 
encountered following a TERMINAL macro-instruction becomes the response 
or input/output logical terminal. Each TERMINAL macro-instruction 
defining a terminal which connects to a switched communication line 
must not be followed by a NAME macro-instruction. If the terminal 
is a 274 1, PRINTER, PUNCH, TAPE, DISK, or 2740 Model 1 Non-Station- 
Control, the TERMINAL macro-instruction may be specified with no 
operands. 



[label] 



TERMINAL 



ALL TERMINAL TYPES 



[ADDR= hex byte(s) or address list] 
(YEST 
,EDIT= \NO / 

[,LTERM=name] 



2260 AND 3270 

REMOTE OR LOCAL LINE GROUPS 



,PAGDEL= ( 



NO / J 



2260 REMOTE LINE GROUPS 



f UNIT= 



1053 
2845 
2260 



2265 LINE GROUPS and TERMINALS 



,FEAT= 



,PAGDEL= 



1 1053 I 12 

|2265 ,!([, WLA ] 



3270 LOCAL LINE GROUPS 
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,UNIT= 



,FEAT= 



3284 
3286 
3277 



Bl.t 



NOCOPY ] r 



["{CARD) 

LInocdI 



(DEKYBD) 
NOPFK 



(PEN I 
INOPEN 



,BUFSIZE=, 



3270 REMOTE LINE GROUPS 



,UNIT= 



,FEAT= 



(3284 
13286 
J3275 
13277 



[nocopyV 
] copy f 



DEKYBD 

PFK 

NOPFK 



[J CARD \| ["(PEN \~] 
r [lNOCD/J ,[\NOPENjJ 



(132 

,BUFSIZE=|l26 

120 



[,COMPT= PTR1] 



1030 LINE GROUPS 



,UNIT= 



M033\ 

lion) 
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2740 MODEL 2 LINES 



r BUFSIZE= 



[,HEADCTL=] 



120 
248 
440 



1050 LINE GROUPS 



,FEAT=(|l053 LJcARdL JtAPeI 
\li0 52 ) (TAPE) (CARD) 



/PTR1I , /PTR2I, /PCHlt , /PCH2} 
,COMPT= l\ 1 i \ 2 J \ 3 I \ 4 I 



2780 LINE GROUPS 



MULTIPLElor M), [144] , Q 
r FEAT=hSTANDARD|or|s> J120J )2 



,COMPT 



=({rl - { 2 pch1 }) 



2741 LINE GROUPS 



I INTERUPT 
,FEAT= i NOINTRPT 



TWX LINE GROUPS 



[ ,FEAT = AUTOSIGN] 
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2770 LINE GROUPS 



I ill [ (BDFEXP \]\ 
,FEAT= l\2/ [_, \BUFEXPljJ I 



, COMPT= 



/ 




CARD ]■ 

READER 

VIDEO 


T~ 


CARD 

READER 

VIDEO 






CARD 

READER 

VIDEO 


| 


PTR 




PTR 




PTR 






PTR 




KYBD 


r ' 


PT 

PTRDR 
MDI 
MICR 


9 


PT 

PTRDR 
MDI 
HICR 




i 


PT 
PTRDR 
MDI 
MICR 





1 if PT or PTRDR component specified, then; | 



| [,PTSEG=] 
I 



if MDI component specified, then; 

[IGNORE) (NOCHK ) 

,erropt=Iaccept} ,VERCHK=| V OKCHK 
1 reject ) ( J 

111 \ ~ 

r REPLACE= (two hex digits/ 

[,MDISEG= ] 

if VIDEO component specified then; 



,PAGDEL = (YES) 
INO j 
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2980 LINE GROUPS 



,FEAT= 




decimal number J . 



SPOOL LINE GROUPS 



,FEAT 



(autosch \ 
= \ noautosch ( 



• Label Field: 

If any subsequent NAME statement references this TERMINAL statement 
in its OUTPUT= operand, a label must be specified for the TERMINAL 
statement. 

• Operand Field: 

ADDR= 

specifies the physical terminal addressing character in terminal 
code, hexadecimal representation, for all terminals. For 
example, physical terminal address * A* for a 2740 would be coded 
ADDR=E2. 

If the terminal is 2260 or 3270 local mode, the terminal address 
must be specified as three hexadecimal digits. 

If the terminal is a 2265 or a 3275, the address must be 
specified as four hexadecimal digits. For a 2265 terminal, the 
first two digits specify the 2845 address, while the last two 
specify the terminal address (example, ADDR=4050) . For a 3275 
terminal, the first two - digits specify the control unit polling 
address, while the last two specify the terminal address 
(example, ADDR=4040) . Note that for the 3275, the Customer 
Engineer will assign the selection address, which must be 
converted to a polling address for specification here. 

If the terminal is a 3277 or 3284/3286 attached to a 3271, the 
address must be specified as two hexadecimal digits, specifying 
the terminal address related to the particular display station 
or printer. For instance, the first display station or printer 
would have an address of ADDR=40, the second ADDR=C1, etc. 



If and only if the terminal being 
an address list of up to 24 unique 
address list specification allows 
1031 or 1035 terminals on a single 
TERMINAL macro statement. When th 
is used, the LTERM operand on this 
Independent of terminal type, all 
a line must be unique. This opera 
READER, PRINTER, PUNCH, TAPE, DISK 
Non-Station-Control terminals. 



defined is a 10 

addresses is v 

the user to def 

communication 
e address list 

macro is requi 
input terminal 
nd is not regui 
, S.POOL, or 274 



31 or 1035, 
alid. This 
ine multiple 
line with one 
specification 
red. 

addresses for 
red for 2741, 
Model 1 
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EDIT= 



UNIT= 



means that the user-supplied message output edit routine for 
this terminal type specified in the associated LINEGRP is to 
be used for this TERMINAL. Default value is NO. 



is valid for 2260, 3270, and 1030 line groups only. Defines 
this terminal as an output-only device for 2260 and 1030 line 
groups (that is, 1053 or 1033, respectively). If the terminal 
is 2260 local mode, this operand should be omitted, since 2260 
is the default and 1053 is invalid for 2260 local mode. This 
operand is also used to define the 2845 control unit for 2265 
terminals which are part of a 2260 line group. For 3270 line 
groups, this operand is used to define this terminal as a 3284 
or 3286 printer or 3277 display unit. 3270 display units may 
not be defined in the same local line group as 3284 or 3286 
printers. This operand is also used to define a 3275 terminal 
which is part of a 3270 remote line group. 



PAGDEL= 



LTERM= 



is valid for 2260, 2265, 3270, and 2770 with 2265 component 
line groups only. Specifies the desire for the Automatic Page 
Deletion feature of the Paging special feature. Default value 
is YES. 

The PAGDEL=YES option should be used for terminals used in an 

interactive or conversational manner to provide consistent and 

understandable terminal action for the terminal operator. If 

input from the terminal is normally followed by a response to 
the terminal, the YES option should be used. 

The PAGDEL=NO option is provided for terminals that will normally 
produce many input messages for which no response will be made. 
When NO is specified, input from a paged message will normally 
be responded to by IMS with the first page of that same message 
- any application program response will be queued. This type 
of operation can be useful for specific kinds of data entry 
applications, but will result in terminal operator confusion 
for most applications. 



may specify a logical terminal name for this TERMINAL statement. 
This name is used to check input terminal security for this 
terminal. The referenced NAME macro must precede this TERMINAL 
statement. When this operand is present, the TERMINAL statement 
can not be followed by a NAME statement. This operand is 
required for READER terminals. This operand would be used in 
the following manner: Assume that a previously defined TERMINAL 
statement defined a 1033 output device and was followed by the 
NAME ABLE. In addition, assume that this TERMINAL statement 
refers to one or more 1031s on the same communication line which 
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are input-only devices. All input security for the 1031s would 
be checked against the security characteristics assigned to 
ABLE, 

Also, when a list of LTERHs is defined under the previous 
TERMINAL statement to which reference is made, only the first 
LTERM name may be selected from that list. If an attempt is 
made to select other than the first, IMS/360 will ignore the 
name chosen and assign the value of the first name listed. 



TERMINAL 


ADDR=E2 


NAME 


LTERM 1 


NAME 


LTERM2 


NAME 


LTERM3 



Example: 



TERMINAL ADDR=E4,LTERM=LTERM2 

In this example, IMS/360 treats the second TERMINAL statement as 
though it read LTERM=LTERM 1. 

FEAT= 

• For 1050 Line Groups: 

with parameters 1053, 1052, CARD, and TAPE, defines the physical 
characteristics of terminals: 

The first subparameter (1053) or (1052) specifies that the 
component attached to address 01 is either a 1053 or a 1052. 
Default value is 1052. 

The second subparameter specifies that the component attached 
to address 3 is either a card or a tape punch. Default 
value is TAPE. 

The third subparameter specifies that the component attached 
to address 04 is either a card or a tape punch. Default 
value is CARD. 

If FEAT=INPUT is specified, the terminal is treated as an 
input-only terminal and cannot receive output. 

• For 2780 Line Groups: 

with the indicated parameters specifies 2780 terminal features: 

The first subparameter (MULTIPLE or M) or (STANDARD or S) 
specifies the MULTIPLE or STANDARD record transmission 
feature. Default value is STANDARD. 

The second subparameter specifies the size of the print 
line. Default value is 80. 

The third subparameter specifies the terminal model number. 
Default value is 1. 

• For 2741 Line Groups: 

with the parameter INTERUPT or NOINTRPT, specifies whether or 
not this 2741 terminal is eguipped with the Receive Interrupt 
feature. 

• For TWX (33/35 Teletypewriter) Line Groups: 
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with the AUTOSIGN parameter, specifies that this TWX terminal 
is equipped with the Automatic Sign-On feature. 

• For 2265 Line Groups and Terminals: 

specifies the 2845 control unit features. 

The first subparameter specifies that this terminal is 
either the 2265 or the 1053 component. 

The second subparameter specifies the screen configuration, 
as follows: 

1 - 15 lines of 64 characters 
2-12 lines of 80 characters 

The third subparameter specifies the write line addressing 
(WLA) feature for the 2265. 

• For 2770 Line Groups: 

specifies the VIDEO component screen size and the terminal 
output buffer size: 

The first subparameter specifies the screen configuration 
for the VIDEO component if a VIDEO component is defined. 
If this subparameter is specified and a VIDEO component is 
not defined, the subparameter is ignored. Specifications 
and applicable screen sizes follow (default value is 1) : 

1-15 lines of 64 characters 
2-12 lines of 80 characters 

The second subparameter specifies the terminal output buffer 
size. If omitted, an output buffer size of 128 bytes is 
implied. The specification of the terminal Buffer Expansion 
Feature (BUFEXP) or additional Buffer Expansion Feature 
(BDFEXP1) specifies a terminal output buffer size of 256 
or 512 bytes, respectively. The output buffer size specified 
herein may not exceed the largest terminal input buffer 
size specified with the FEAT= keyword of the LINE macro 
instruction for the line within which this terminal is to 
reside. 

• For 2980 Line Groups: 

The first subparameter defines the 2980 model number (1, 2, or 
4) . If omitted, Model 1 is default. The second subparameter 
defines the number of tabs between the first carriage stop and 
the intermediate carriage stop on 2980 Models 1 and 4. If no 
value is specified, zero (0) is default. 

• For SPOOL Line Groups: 

with the parameter AUTOSCH or NOADTOSCH, specifies whether or 
not the Spool Print Program is to be automatically scheduled 
to print a full or terminated SPOOL data set. 

• For 3270 Line Groups: 

The first subparameter (1 or 2) specifies the terminal model 
number. Default value is 1. The terminal model number specified 
for 3284, 3286, and 3277 terminals must be less than or equal 
to the 3271 control unit model number specified. The terminal 
model number specified for a 3277 terminal which specifies the 
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COPY feature must be less than or equal to the terminal model 
number specified for any candidate printers. For a detailed 
discussion of the COPY feature and candidate printers for 3270 
remote line groups, refer to the IMS/360 System/Application 
Design Guide (SH20-0910) . 

The second subparameter specifies whether or not the COPY 
function is available for this 3275 or 3277 terminal. The 
specification of the COPY feature for a 3284, 3286, or 3270 
local terminal is invalid. Default value is COPY. 

The third subparameter specifies whether a Data Entry Keyboard 
(DEKYBD) or Program Function Keys (PFK) are available on this 
3275 or 3277 terminal. PFK and DEKYBD are invalid for 3284 and 
3286 terminals. Default value is PFK. 

The fourth subparameter specifies whether the Operator 
Identification Card Reader (CARD) is available on this 3275 or 
3277 terminal. CARD specification is invalid for 3284 and 3286 
terminals. Default value is CARD. 

The fifth subparameter specifies whether the Selector Pen is 
available on this 3275 or 3277 terminal. PEN specification is 
invalid for 3284 and 3286 terminals. Default value is PEN. 



COMPT= 



specifies output components. This operand is only valid for 
1050, 2770, 2780, and 3275 terminals. 

• For 1050 terminals: 

Valid entries are PTR1, PTR2, PCH1, and PCH2 or 1, 2, 3, and 4, 
respectively. PTR1 or 1 is associated with physical terminal address 
01. PTR2 or 2 is associated with physical terminal address 02. PCH1 
or 3 is associated with physical terminal address 03. PCH2 or 4 is 
associated with physical terminal address 04. These entries may 
appear in any sequence. If this keyword specification is omitted, 
it is assumed that the user has a full complement of output components 
for the device. 

• For 2780 terminals: 

Valid entries are PTR1 and PCH1 or 1 and 2 respectively. These 
entries may appear in any sequence. If this keyword specification 
is omitted, it is assumed that the user has a full complement of 
output components for the device. 

• For 3275 terminals: 

The only valid entry is PTR1. PTR1 specifies that a 3284 Model 3 
printer is attached to this 3275 terminal. The video display will 
be considered COMPT1 and the 3284 Model 3 printer will be considered 
COMPT2. 

• For 2770 terminals: 

specifies both input and output components to be associated with 
this 2770 Data Communication System. The COMPT= keyword and operand 
are required. The four positions within the operand sublist relate 
directly to the 2772 Multi-Purpose Control Unit's four spaces 
available for attaching units of different types of input and output 
media. Position four of the operand sublist should not be used 
unless the 2772 Multi-Purpose Control Unit is equipped with the 
Expanded I/O Capability special feature. 
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KYBD may be specified only in operand sublist position one. PTR may 
be specified in operand sublist position one and/or once in one, and 
only one, of the remaining operand sublist positions. The remaining 
component specifications must be specified in operand sublist positioi 
two, three, or four and may only be specified in one of these 
positions. 

The valid sublist entry specifications and their definitions are as 
follows: 

KYBD - As the keyboard is basic in any 2770 Data Communication 
System, this entry is used merely to define the absence 
of a printer. 

PTR - PTR defines the presence of a serial printer (1053 or 
2213) or a line printer (2203). 

CARD - CARD defines the presence of an output device for 

handling cards (545 Output Punch) or the presence of 
both an input and an output device for handling cards 
(2502 Card Reader and 545 Output Punch) . 

READER -READER defines the presence of an input-only device for 
handling cards (2502 Card Reader) . 

VIDEO - VIDEO defines the presence of a 2265 Display Station. 

PT - PT defines the presence of an output device for handling 
tape (1018 Paper Tape Punch) or the presence of both 
an input and an output device for handling paper tape 
(1017 Paper Tape Reader and 1018 Paper Tape Punch). 

PTRDR - PTRDR defines the presence of an input-only device for 
handling paper tape (1017 Paper Tape Reader) . 

MDI - HDI defines the presence of the IBM 50 Magnetic Data 
Inscriber. 

MICR - MICR defines the presence of the IBM 1255 Magnetic 
Character Reader. 

Note: If a printer (2203) is attached in other than the first component 
slot, no input device will be supported in the same slot. 

BUFSIZE= 

valid only for 2740 Model 2 and 3270 lines. 

For 2740 Model 2 lines, specifies the size of the output buffer 
for this 2740 Model 2 terminal. Value cannot exceed the value 
specified for the preceding LINE statement. 

For 3270 remote lines, specifies the number of print positions 
per line for a 3284 or 3286 Model 1 or 2 terminal. 

For 3270 local lines, specifies the number of print positions 
per line for the 3284 or 3286 terminal being defined. 



HEADCTL= 



specifies header control feature for this 2740 Model 2 terminal; 
valid only for 2740 Model 2 lines and specifies the number of 



3.49 



PTSEG= 



characters reserved for header control. If either BUFSIZE or 
HEADCTL operands are omitted, the default values are the values 
specified for the preceding LINE statement. Entered value for 
header control cannot exceed 28 and must be a multiple of 4 . 



is valid only for 2770 terminals which have defined in the COMPT 
keyword the presence of- paper tape media. Specifies the largest 
input paper tape segment to be presented to IMS. This value 
may not exceed the size of a multisegment message buffer minus 
40 bytes. The size of the multisegment message buffer is 
specified through the use of the BUFFERS keyword on the MSGQUEUE 
macro statement. Default value is 80 bytes. 



MDISEG= 



is valid only for 2770 terminals which have defined in the COMPT 
keyword the presence of an IBM 50 Magnetic Data Inscriber (MDI) . 
Specifies the largest input MDI segment to be presented to IMS. 
This value may not exceed the size of a multisegment message 
buffer minus 40 bytes. The size of the multisegment message 
buffers is specified through the use of the BUFFERS keyword on 
the MSGQUEUE macro-statement. Default value is 80 bytes. 



ERROPT= 



is valid only for 2770 terminals which have defined in the COMPT 
keyword the presence of an IBM 50 Magnetic Data Inscriber. 
Specifies the handling of erroneous records as follows: 

IGNORE - error conditions are to be disregarded, and the 
record is not to be passed to the user program. 

ACCEPT - error conditions are to be disregarded, but the 
record is to be passed to the user program. 

REJECT - the entire message is to be rejected. Default 
value is REJECT. 



VERCHK= 



is valid only for 2770 terminals which have defined in the COMPT 
keyword the presence of an IBM 50 Magnetic Data Inscriber. 
Specifies whether (VOKCHK) or not (NOCHK) the records are to 
be checked for verify-OK codes. If VOKCHK is specified and a 
record does not contain the verify-OK code, the record is 
considered to be in error. 



REPLACE= 



is valid only for 2770 terminals which have defined the COMPT=MDI 
operand. This operand specifies the code to be used as a 
replacement character whenever a 2772 replacement character is 
detected in the input. It must be specified as two hexadecimal 
characters. Default value is 19. 



WARNING; If the REPLACE character is a value less than X'40», 
the character will be edited out by the system input 
edit routine before the application program receives 
the message. 
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NAME Macro 

The NAME specification defines a logical terminal name (LTERM) 
associated with a physical terminal. The presence of the keyword 
MASTER in the LTERM operand designates this logical terminal name as 
the master terminal- The COMPT operand associates the specified LTERM 
with a specific component in a 1050, 2770, 2780, or 3275 terminal 
complex. The COMPT operand is valid only for 1050, 2770, 2780, 2980, 
and 3270 line groups. 



NAME 



lterm 
(lterm, MASTER) , 



,COMPT= 



component name options 
for 1050 and 2770 line 
groups 

component name options 
for 2780 line groups 



PTR1 3275 terminals only 
COMMON 298 line groups only 
[,OUTPUT= terminal label] 



,EDIT= 



NO 
YES 



ULC 
UC 



• Operand Field: 
lterm 



defines a name for a logical terminal associated with a 
previously defined physical terminal (TERMINAL) . This name 
must begin with either a letter or a digit. WTOR is an invalid 
lterm name. The entered name cannot begin with the character 
seguence INQO. The operand is reguired. If the operand is 
entered as a sublist with the keyword MASTER as a second 
parameter, the entered name becomes the IMS/360 master terminal. 

One lterm must be specified as the master terminal. The lterm 
chosen as the master terminal cannot be on a switched LINEGRP 
and must be either a 1050 or a 2740 with Station Control physical 
terminal. 

Note : For terminals with multiple NAME lterms assigned, system error 
message responses will be presented to the lterm name with the 
lowest collating seguence, unless the terminal is an input-only 
terminal. For input only, the system responses will go to the 
first assigned lterm ODTPOT= terminal. 
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COMPT= 



defines the output component associated with this lterm. If 
this lterm is the master terminal, the COMPT= operand value 
must be either not specified or 1. 

For 1050 terminal components, the user can specify 1 or PTR1, 
2 or PTR2, 3 or PCH1, or 4 or PCH2. 

For 2770 terminal media, the user can specify 1, 2, 3, or 4. 
These values relate to the four spaces available on the 2772 
Multi-Purpose Control Unit for attaching input and/or output 
media. 

For 2780 terminal components, the user can specify 1 or PTR1, 
or 2 or PCH1. 

For 3275 terminals, the user may only specify PTR1, which refers 
to a 3284 Model 3 printer attached to a 3275 terminal within 
a remote 3270 line group. 

For 2980 terminals, the user can specify COMMON- The 
specification of COMMON assigns an output-only logical terminal 
to the common buffer of the 2972 control unit defined by the 
previous CTLUNIT statement. 



OUTPUT= 



defines the label field of a TERMINAL macro to be used as the 
output terminal for this logical terminal name. The referenced 
TERMINAL statement must occur before this NAME statement. 



EDIT= 



specifies whether or not the logical terminal user-supplied 
edit routine is to be used when routing a message to this logical 
terminal. The logical terminal edit routine is only included 
within the IMS/360 control program nucleus if one of the 
NAME statements specifies EDIT=YES. If ULC is specified, output 
will be transmitted as received. If UC is specified, output 
will be translated to uppercase before transmission. 

The following examples describe LINEGRP, LINE, TERMINAL, and LTERM 
statements for various communication configurations. 

This example describes a 1030 terminal configuration. Two communication 
lines are assumed. One line contains three 1031s and one 1033. The 
other line contains three 1031s. All input terminal security for the 
1031s on the first line is to be checked against the logical terminal 
name OUT1033. All input terminal security for the 1031s on the second 
line is to be checked against the logical terminal name OUT1033A. 
Any output engueued on the logical terminal name OUT1033A is to be 
sent to the physical 1033 terminal. Any output engueued on the logical 
terminal name OUT1033 is to be sent to the physical 1033 terminal. 

Note ; All underlined addresses on all these examples are to be replaced 
with the user's addresses. 

LINEGRP DDNAME=DD1030,UNITYPE=1030 
LINE ADDR=0A6,BUFSIZE=100 
TERMA TERMINAL ADDR=62, DNIT= 1033 
NAME OUT1033 
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TERMINAL ADDR= (62, 64, 67) ,LTERM=0UT1 033, UNIT= 1031 

LINE ADDR=0A7,BUFSIZE=100 

TERMINAL ADDR=62, UNIT=1031 

NAME OUT1033A,OUTPUT=TERMA 

TERMINAL ADDR= (64 ,67).,LTERM=OUT 1033 A 

This example describes a 2260 terminal configuration. One communication 
line is assumed with two 2848 control units attached. One 2848 is 

a Model 2, has no write-at-line-address feature, and has two 2260s 
attached. 

LINEGRP DDNAME=DD2 260,UNITYPE=2260 

LINE ADDR=0A0 

CTLUNIT ADDR=40,MODEL=2 

TERMINAL ADDR=A0 

NAME 2260A 

TERMINAL ADDR=A_1 

NAME 2260B 

CTLUNIT ADDR=4_1, MODEL=3,WLA= (YES, 1053) 

TERMINAL ADDR=A2 

NAME 2260C 

TERMINAL ADDR=A3, UNIT=1 053 

NAME 1053A 



This example describes a 2740 Model 1 and Model 2 nonswitched 
communication line environment. One line attaches two 2740 Model 1 
terminals, one of which is the IMS/360 master terminal. The second 
line attaches three 2740 Model 2 terminals. The maximum buffer size 
on the second line is 248 bytes and the header control is 16 bytes. 
The first 2740 Model 2 has buffer and header control functions as 
specified on the LINE macro. The second 2740 Model 2 has a buffer 
size of 120 bytes and header control as specified on the LINE macro. 
The third 2740 Model 2 has no header control but buffer size as 
specified on LINE macro. 

LINEGRP DDNAME=DD2740,UNITYPE=274 

LINE ADDR=027 

TERMINAL ADDR=E2 

NAME (CTRL, MASTER) 

TERMINAL ADDR=E4 

NAME B2740 

LINE ADDR=028,MODEL= (2,248, 16) 

TERMINAL ADDR=E2 

NAME A27402 

TERMINAL ADDR=E4, B0FSIZE=1 20 

NAME B27402 

TERMINAL ADDR=E6 ,HEADCTL=0 

NAME C27402 
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This example describes a 1050 configuration. One nonswitched 
communication line is assumed with three 1050s attached. The first 
1050 has output components of 1052, 1055, and 1057. It may also have 
1054 and 1056 input components. Four logical terminal names are defined 
for queuing output for various components. The first logical terminal 
name, 1050A, queues output for the 1052 printer. The second 1050 has 
the full complex of components. The third 1050 has only a 1052 printer. 

LINEGRP DDNAME=DD1050,UNITYPE=1050 

LINE ADDR=030 

TERMINAL ADDR=E27cOMPT= (PTR 1 , PCH 1 , PCH2) 

NAME 1050A 

NAME PRINTER,COMPT=PTR1 

NAME PTPNCH,COMPT=PCH1 

NAME CDPNCH,COMPT=PCH2 

TERMINAL ADDR=E4 

NAME PRINTA,C0MPT=PTR1 

NAME PRINTB,COMPT=PTR2 

NAME PTPNCHA,C0MPT=PCH1 

NAME CDPNCHA,COMPT=PCH2 

TERMINAL ADDR=E6 ,COMPT=PTR1 

NAME 1050B 
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POO L Macro 

The POOL macro-instruction describes a pool of logical terminals 
which are to be associated with a set of switched communication lines. 
The IMS/360 user need have only one logical terminal pool for all 
autoanswer communication lines. All POOL macro-instructions must 
follow after all LINE macro-instructions within a switched LINEGRP. 
See Figure 6A, Switched Communications Terminal Set. 



i 

1 I 

| I POOL 



It is suggested that reference be made to Chapter 3 of the IMS/360 

System/ Application Design Guide for a description of dial 

telecommunication support. A discussion is provided on the use of 
POOL and SUBPOOL macros. 



SUBPOOL Macro 

The SUBPOOL macro-instruction defines a set of logical terminals 
within a POOL which may be associated with a given physical terminal 
on a switched communication line when the /IAM command is executed. 
One or more SUBPOOLs may be defined within a POOL macro-instruction. 
At least one SUBPOOL must be defined for each POOL macro-instruction. 
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The subpool statement must be followed by one or more NAME macro 
statements. These NAME statements may optionally contain the COMP= 
operand. If the COMP= operand is present on any NAME statement within 
a SUBPOOL, it must be defined within a 1050 line group. If the COMP= 
operand is not present on any NAME statement within a SUBPOOL, it may 
be defined within a 2740 or 1050 line group. 
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MAXIMUM SYSTEM DEFINITION MACRO- INSTRUCTION OCCURRENCES 

The IMS/360 system produced by IMS/360 system definition has defined 
limitations on the number of each system resource type. The maximum 
number of any resource type is controlled by the number of occurrences 
of macro-instructions in each system definition. The initial resource 
limits set within IMS/360 system definition are shown by the following 
table: 



MSLE . Instr uction/Resou rce 



IMSCTRL 






1 


IMSCTF 






1 


SPAREA 






1 


MSGQUEUE 






1 


BUFPOOLS 






1 


DATABASE 






300 


APPLCTN 






350 


TRANSACT 






58U 


♦Transaction 


Edit 


Routines 


20 


LINEGRP 






50 


**User Routines 




20 


LINE 






200-A 


CTLUNIT 






40 


TERMINAL 






250-B 


NAME 






300 


POOL 






200-D 


SUBPOOL 






250-C 


IMSGEN 






1 



j|a3cimum Occu rrenc es/Specification 



* Transaction Edit Routines are specified through the use of the EDIT 
operand of the TRANSACT macro. While the initial limit of TRANSACT 
statements which may be specified is 584, only 20 Transaction Edit 
Routines are accepted. 

** User Routines refers to the user-supplied physical terminal output 
edit routines specified through the use of the EDIT operand of the 
LINEGRP macro plus the reguired edit routines for 1030, 2980, and 
7770 line groups. 

where: 



is the number of message or batch-message processing regions defined 
in the IMSCTRL macro-instruction plus the number of occurrences 
of the POOL macro-instruction. 



is the number of occurrences of the SUBPOOL macro-instruction. 



is the number of occurrences of the TERMINAL macro-instructions. 



is the number of message or batch-message processing regions defined 
in the IMSCTRL macro-insxruction plus the number of occurrences 
of the LINE macro-instruction. 
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MODIFYING SYSTEM DEFINITION RESOURCE LIMITATIONS 

The maximum number of any resource type, controlled by the number 
of occurrences of macro-instructions in an IMS/360 system defintion, 
may be modified to reach one or more of the limits shown by the 
following table: 



Macro In struction/R esource 



Maximum Occurrences/Specification 



IMSCTRL 






IMSCTF 






SPAREA 






MSGQUEUE 






BUFPOOLS 






DATABASE 




1000 


APPLCTN 




819 


TRANSACT 




584 


Transaction 


Edit Routines 


255 


LINEGRP 




255 


User Routines 


100 


LINE 




255-A 


CTLUNIT 




255 


TERMINAL 




1000-B 


NAME 




744 


POOL 




255-D 


SUBPOOL 




1000-C 


IMSGEN 




1 


where: 






A 







is the number of message or batch-message processing regions defined 
in the IMSCTRL macro-instruction plus the number of occurrences of 
the POOL macro-instruction. 



is the number of occurrences of the SUBPOOL macro-instruction. 



is the number of occurrences of the TERMINAL macro-instruction. 



is the number of message or batch-message processing regions defined 
in the IMSCTRL macro-instruction plus the number of occurrences of 
the LINE macro-instruction. 



The initial resource limits set within IMS/360 system defintion are 
designed to allow the user to perform an IMS/360 system definition 
using OS component Assembler F. Any increase in the limit of a resource 
without a corresponding decrease in the limit of another resource, may 
result in OS component Assembler F error message 'IEU054 LOCAL 
DICTIONARY FULL'. The following formula may be used to establish a 
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balance of resource limits which will allow an IMS/360 system definition 
to be performed using OS component Assembler F: 



(3* (A+B+E+J) ) + (8* (C+I) ) + (2* (D+F) ) +G+H<1 1000 



where: 



A = number of DATABASE statements 

B = number of APPLCTN statements 

C = number of TRANSACT statements 

D = number of Transaction Edit Routines 

E = number of LINEGRP statements 

F = number of User Routines 

G = number of LINE and POOL statements 

H = number of CTLUNIT statements 

I = number of TERMINAL and SUBPOOL statements 

J = number of NAME statements 

The preceding formula may be disregarded and one or more or all of the 
resource limits may be set to their respective maximums if OS program 
product Assembler H is used to perform the IMS/360 Stage 1 system 
definition. 
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IMSMAX M acro 

The IMSMAX macro is used to produce an IEBUPDTE job which will 
modify the required members of IMS2.GENLIB in order to increase and/or 
decrease the initial IMS/360 system definition resource limits. The 
format of the macro is as follows: 

IMSMAX DBASES=number 

, PGMS=number 
r TRANS=number 
,TEDITS=number 
, LGRPS=number 
,LINES=number 
,CUNITS=number 
, TERMS=number 
,NAMES=number 
,RTNES=number 
,JACCT=job accounting 
f SACCT=step accounting 
,JCLASS=job class 
, MCLASS=output class 
, PRTY=job priority 

• Operand Field 



DBASES= 



PGMS = 



TRANS= 



TEDITS= 



specifies the maximum number of DATABASE statements 
that may be specified for an IMS/360 Stage 1 system 
definition. This operand must be specified as a decimal 
number from 1 to 1000. Default value is 300. 



specifies the maximum number of APPLCTN statements that 
may be specified for an IMS/360 Stage 1 system 
definition. This operand must be specified as a decimal 
number from 1 to 819. Default value is 350. 



specifies the maximum number of TRANSACT statements 
that may be specified for an IMS/360 Stage 1 system 
definition. This operand must be specified as a decimal 
number from 1 to 584. Default value is 584. 



specifies the maximum number of Transaction Edit Routines 
that will be specified for an IMS/360 Stage 1 system 
definition. This operand must be specified as a decimal 
number from 1 to 255 and should not exceed the specified 
value of the TRANS operand. Default value is 20. 
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LGRPS= 



LINES= 



CUNITS= 



TERMS= 



NAMES= 



RTNES= 



JACCT= 



SACCT= 



specifies the maximum number of LINEGRP statements that 
may be specified for an IMS/360 Stage 1 system 
definition. This operand must be specified as a decimal 
number from 1 to 255. Default value is 50. 



specifies the maximum number of LINE and POOL statements 
that may be specified for an IMS/360 Stage 1 system 
definition. This operand must be specified as a decimal 
number from 1 to 255. Default value is 200. 



specifies the maximum number of CTLUNIT statements that 
may be specified for an IMS/360 Stage 1 system 
definition. This operand must be specified as a decimal 
number from 1 to 255. Default value is 40. 



specifies the maximum number of TERMINAL and SUBPOOL 
statements that may be specified for an IMS/360 Stage 
1 system definition. This operand must be specified 
as a decimal number from 1 to 1000. Default value is 
250. 



specifies the maximum number of NAME statements and 
logical terminal names that may be specified for an 
IMS/360 Stage 1 system definition. This operand must 
be specified as a decimal number from 1 to 744. Default 
value is 300. 



specifies the maximum number of user routines that may 
be specified for an IMS/360 Stage 1 system definition. 
This operand must be specified as a decimal number from 
1 to 100. Default value is 20. 



specifies any job accounting information that may be 
desired for placement on the produced JOB card. The 
length of this operand is limited to 40 bytes. If the 
operand is specified, a program name of IMS is provided. 



specifies any step accounting information that may be 
desired for placement on the produced EXEC card. The 
length of this operand is limited to 40 bytes. 
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JCLASS= 



MCLASS= 



PRTY= 



specifies the job class to be assigned to the 
produced job. Default value is A. 



specifies the output class to be assigned within 
the produced job. Default -value is A. 



specifies the job priority to be assigned to the 
produced job. No PRTY parameter is generated if 
the operand is omitted. 



The following example illustrates the Job Control Language (JCL) 
for Stage 1 of IMS/360 system definition default resource limits 
modification. Use the operating system assembler procedure (ASMFC) 
with the following SYSLIB DD card overide. 



// 
// 

//ASM. SYSLIB 
//ASM.SYSIN 



JOB 

EXEC ASMFC 

DD DSN=IMS2.GENLIB,DISP=SflR 

DD * 



IMSMAX control statement 
END 



/* 



The resulting output deck completes Stage 1 and is ready for input 
to Stage 2 execution. Place this deck of cards in the job stream. 

The following example illustrates the output that would be produced 
if the following limitations were specified: 



number of data bases to be defined 

number of application programs to be defined 

number of transactions to be defined 

number of transaction edit routines required 

number of line groups to be defined 

number of user routines required 

number of lines to be defined 

number of control units to be defined 

number of terminals to be defined 

number of logical terminal names required 



255 
255 
450 

20 
255 

20 
255 

45 
400 
510 
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IMSNAX DBASES=255,PGMS»255,TRANS=*50, 
LGRPS=250,LINES=254,CUNITS=48, 
TE RMS=400 , NAMES=5 10 



3* 
4+ 
5 + 
6+ 
7+ 
8 + 
9+ 
10+ 

11 + 

12 + 

13 + 
14+ 
15+ 
16 + 
17+ 
18 + 
19+ 

20 + 

21 + 

22 + 
23+ 
24+ 
25+ 
26+ 
27+ 
28+ 
29+ 

30 + 

31 + 

32 + 

33 + 
34+ 
35 + 
36+ 
37+ 
38+ 
39+ 
40+ 
41 + 
42+ 
43* 
44+ 
45 + 
46+ 
47+ 
48 + 
49+ 

50 + 

51 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



//IHSUPDTE JOB MSGLEVEL=l f MSGCLASS=AtCLASS=A* 

//STEP1 EXEC PGM=IEBUPDTE • 

//SYSPRINT DD SYS0UT=A,DCB=BLKSIZE=1210* 

//SYSUT1 DD DSN=IMS2.GENL18,DISP=SHR* 

//SYSUT2 DD DSN=IMS2.GENLIB,DISP=0LD* 

//SYSIN DD * • 

./ REPL NAME=DFSGLOBS* 

./ NUMBER NEWl=1000,rNCR=1000* 

GBLA ££CTLC48) CTLUNIT CONTROL VALUES* 
GBLA ££CTLTC<250) DEVICE INDEX BYTE* 
GBLA ££DBKEY(255) DATABASE SORT KEY" 
GBLA ££DXB1<400) CIB/CRB/CXB VALUES* 
GBLA ££DXB2<400) CIB/CRB/CXB VALUES* 
GBLA ££KEY<510) SORT KEY* 
GBLA ££LADDR(254) LINE ADDR AND CONTROL* 
GBLA ££LTS(510) LTERM CONTROL VALUES* 
GBLA ££PSKEV(255) APPLCTN SORT KEY* 
GBLA ££TAC<400) TERMINAL CONTROL VALUES* 
GBLA ££TAD<400) TERMINAL ADDRESS* 
GBLA ££TF(400) TERMINAL FEATURES/FLAGS* 
GBLA ££TRKEY(450) TRANSACT SORT KEY* 
GBLA ££TRP(450) TRANSACT PRIORITIES* 
GBLA ££TRPC<450) TRANSACT CONTROL VALUES* 
GBLA ££TRPS(450) TRANSACT PROCLIM* 
GBLA ££TRSPS(450) TRANSACT SPA SIZE* 
GBLB ££CIBC400) CIB SWITCH* 
GBLB ££CRB(400) CRB SWITCH* 
GBLB ££CWL(48) CTLUNIT WLA SWITCH* 
GBLB ££DBIC255) INDEX DATABASE SWITCH* 
GBLB ££DXB(400) CXB SWITCH* 
GBLB ££GBMl<250) 2780 MODE SWITCH 1* 
GBLB ££GBM2<250) 2780 MODE SWITCH 2* 
GBLB ££LGF(250) SWITCHED LINEGRP SWITCH* 
GBLB ££LGP(2501 AUTOPOLL LINEGRP SWITCH* 
GBLB ££LGPC 1(250) BSC POLLING OPTION 1' 
GBLB ££LGPC2(2501 BSC POLLING OPTION 2* 
GBLB ££L0V(254> COB SWITCH* 
GBLB ££LTE(510) LTERM EDIT SWITCH* 
GBLB ££LTU<510) UPPER CASE EDIT SWITCH* 
GBLB ££PLf254) POOL STATEMENT SWITCH* 
GBLB ££PGPTC255) APPLCTN OPTION SWITCH* 
GBLB ££P0Vt255) APPLCTN OVERLAY SWITCH* 
GBLB ££PQF<255) I QF APPLCTN SWITCH* 
GBLB E£PT(2551 APPLCTN PGMTYPE SWITCH* 
GBLB ££SP00L(250» SPOOL LINEGRP SWITCH* 
GBLB ££SUBI400I SUBPOOL STATEMENT SWITCH* 
GBLB ££TEI400) TERMINAL EDIT SWITCH* 
GBLB ££TREI450I TRANSACT EDIT SWITCH* 
GBLB ££TRI(450) TRANSACT INQUIRY SWITCH* 
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52 + 
53+ 
54+ 

55 + 

56 + 

57 + 
58+ 

59 + 

60 + 

61 + 

62 + 

63 + 
64+ 
65+ 
66+ 

67 + 

68 + 
69+ 
70+ 

71 + 

72 + 
73+ 
74+ 
75 + 
76+ 
77+ 
78 + 
79 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
END 



./ RE PL N 

•/ NUMBER 

&6MAX(1) 

££MAX(2) 

&£MAX{3) 

&£MAX{4) 

££MAX<5) 

&£MAX(6) 

&£MAX<7) 

&&MAX18) 

&&MAXC9) 

££MAX(10> 

./ ENDUP* 

/*» 



GBLB 

GBLB 

GBLB 

GBLB 

GBLB 

GBLC 

GBLC 

GBLC 

GBLC 

GBLC 

GBLC 

GBLC 

GBLC 

AME=DF 
NEW1= 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 
SETA 



££TRM<450) TRANSACT MODE SWITCH* 
£&TRR{450) TRANSACT MSGTYPE 2* 
££TRS(450) TRANSACT MSGTYPE 1* 
6aTRSP(450) TRANSACT SPA 2* 
&&TUI400) TERMINAL UNIT SWITCH* 
S&DBN1255) DATABASE NAME* 
S&LGDC250) LINEGRP DDNAME* 
£&LTN<510) LOGICAL TERMINAL NAME* 
&&PSBNC255) PSB NAME* 
&&RTNEC20) USER ROUTINE NAME* 
££SMBE(20) TRANSACT EDIT ROUTINE* 
£&TNAME(400) TERMINAL STATEMENT LABL* 
£&TRC<450) TRANSACTION CODE* 
SGLOB1* 
1000,INCR=1000* 

255 DATABASE MAXIMUM* 

255 APPLCTN MAXIMUM* 

450 TRANSACT MAXIMUM* 

20 TRANSACT EDIT MAXIMUM* 

250 LINEGRP MAXIMUM* 

254 LINE MAXIMUM* 

48 CTLUNIT MAXIMUM* 

400 TERMINAL MAXIMUM* 

510 LTERM MAXIMUM* 

20 USER ROUTINES MAXIMUM* 



The following example illustrates the output that would 
be produced if the following limitations were specified: 

number of data bases to be defined 450 

number of application programs to be defined 450 

number of transactions to be defined 584 

number of transaction edit routines required 20 

number of line groups to be defined 10 

number of user routines required 4 

number of lines to be defined 20 

number of control units to be defined 15 

number of terminals to be defined 30 

number of logical terminal names required 50 
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IMSMAX DBASES=450,PGMS=450,LGRPS=10,RTNES=4 f 
LINES=20,CUNITS=15,TERMS=30,NAMES=50, 
JACCT= (JOB-ACCOUNTING-INFORMATION) , 
SACCT=( STEP-ACCOUNTING-INFORMATION), 
JCLASS=C,MCLASS=I,PRTY=10 



3 + 
4+ 
5 + 
6+ 

7 + 

8 + 

9 + 
10+ 

11 + 

12 + 

13 + 
14+ 

15 + 

16 + 

17 + 
18+ 

19 + 

20 + 

21 + 

22 + 

23 + 

24 + 
25+ 
26 + 
27+ 

28 + 

29 + 
30+ 

31 + 

32 + 

33 + 

34 + 

35 + 

36 + 
37+ 

38 + 

39 + 

40 + 

41 + 

42 + 

43 + 

44 + 

45 + 

46 + 

47 + 

48 + 

49 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



//IMSUPDTE JOB (JOB-ACCOUNTING-INFORMATICN), IMS, 1 

// MSGLEVEL=1,MSGCLASS=I,CLASS=C,PRTY=10* 

//STEP1 EXEC PGM=IEBUPDTE,« 

// ACCT= {STEP-ACCOUNTING-INFORMATION) • 

//SYSPRINT DD SYS0UT=I,DCB=BLKSIZE=1210* 

//SYSUT1 CO DSN=IMS2.GENLIB,DISP=SHR* 

//SYSUT2 DO DSN=IMS2.GENLIB,DISP=0LD* 

//SYSIN DD * • 

./ REPL NAME=DFSGLOBS* 

•/ NUMBER NEW1=1000,INCR=1000• 

GBLA CSCTU15) CTLUNIT CONTROL VALUES* 

GBLA G&CTLTC110) DEVICE INDEX BYTE* 

GBLA ££DBKEY(450) DATABASE SORT KEY* 

GBLA GSDXBK30) CIB/CRB/CXB VALUES* 

GBLA SSDXB2C30) CIB/CRB/CXB VALUES* 

GBLA ££KEY<584) SORT KEY* 

GBLA ££LADDR(20) LINE AODR AND CONTROL* 

GBLA G£LTS(50) LTERM CONTROL VALUES* 

GBLA ££PSKEY(450) APPLCTN SORT KEY* 

GBLA GGTAC(30) TERMINAL CONTROL VALUES* 

GBLA GGTADC30) TERMINAL ADDRESS* 

GBLA G£TF(30) TERMINAL FEATURES/FLAGS* 

GBLA GGTRKEYC584) TRANSACT SORT KEY* 

GBLA ££TRP(584) TRANSACT PRIORITIES* 

GBLA £ETRPC(584) TRANSACT CONTROL VALUES* 

GBLA GGTRPSC584) TRANSACT PROCLIM* 

GBLA ££TRSPS( 584) TRANSACT SPA SIZE* 

GBLB ££CIB(30) CIB SWITCH* 

GBLB £CCRB(30) CRB SWITCH* 

GBLB CGCWLC15) CTLUNIT WLA SWITCH* 

GBLB SGDBK450) INDEX DATABASE SWITCH* 

GBLB GGDXB(30) CXB SWITCH* 

GBLB SGGBMKIO) 2780 MODE SWITCH 1* 

GBLB £GGBM2(10) 2780 MODE SWITCH 2* 

GBLB GGLGFUO) SWITCHED LINEGRP SWITCH* 

GBLB SGLGPUO) AUTOPOLL LINEGRP SWITCH* 

GBLB GSLGPCK10) BSC POLL ING OPTION 1* 

GBLB £GLGPC2(10) BSC POLLING OPTION 2* 

GBLB ££L0V(20) COB SWITCH* 

GBLB G£LTE(50) LTERM EDIT SWITCH* 

GBLB ££LTU(50) UPPER CASE EDIT SWITCH* 

GBLB GGPL120) POOL STATEMENT SWITCH* 

GBLB ££P0PT(450) APPLCTN OPTION SWITCH* 

GBLB CGP0V(450) APPLCTN j OVERLAY SWITCH* 

GBLB GCPQF(450) IQF APPLCTN SWITCH* 

GBLB GGPT1450) APPLCTN PGMTYPE SWITCH* 

GBLB GGSPOOLUO) SPOOL LINEGRP SWITCH* 
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50+ 

51 + 

52 + 

53 + 

54 + 

55 + 
56+ 
57 + 
58+ 
59 + 
60+ 
61 + 
62+ 

63 + 

64 + 
65+ 

66 + 

67 + 
68+ 
69 + 
70+ 

71 + 

72 + 

73 + 
74+ 

75 + 

76 + 

77 + 

78 + 

79 + 
80+ 
81 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
END 



GBLB 
GBLB 
GBLB 
GBLB 
GBLB 
GBLB 
GBLB 
GBLB 
GBLB 
GBLC 
GBLC 
GBLC 
GBLC 
GBLC 
GBLC 
GBLC 
GBLC 
./ REPL NAME=DF 
•/ NUMBER NEW1= 
&CMAXC1) SETA 
£&MAX(2) SETA 
££MAX(3) SETA 
£&MAX(4) SETA 
CSMAXC5) SETA 
E£MAX(6) SETA 
£GMAX(7) SETA 
£&MAX(8> SETA 
&SMAXC9) SETA 
££MAXU0) SETA 
•/ ENDUP' 
/*» 



C£SUB(30) SUBP00L STATEMENT SWITCH 1 
&&TE130) TERMINAL EDIT SWITCH* 
££TRE(584) TRANSACT EDIT SWITCH* 
CGTRK584) TRANSACT 
CSTRM{584) TRANSACT 
6£TRR(584) TRANSACT 
£&TRS(584) TRANSACT 
£&TRSP(584) TRANSACT 



INQUIRY SWITCH' 
MODE SWITCH' 
MSGTYPE 2' 
MSGTYPE 1" 
SPA 2' 



££TU(30)-TERMINAL UNIT SWITCH' 
&&DBN1450) DATABASE NAME' 
CfiLGD(lO) LINEGRP DDNAME' 
££LTN(50) LOGICAL TERMINAL NAME' 
££PSBN(450) PSB NAME' 
ei£RTNE(4> USER ROUTINE NAME' 
££SMBE(20) TRANSACT EDIT ROUTINE' 
££TNAME(30) TERMINAL STATEMENT LABL' 
£&TRC(584) TRANSACTION CODE' 
SGL0B1' 
lOOOt INCR=1000' 

450 DATABASE MAXIMUM' 

450 APPLCTN MAXIMUM' 

584 TRANSACT MAXIMUM' 

20 TRANSACT EDIT MAXIMUM' 

10 LINEGRP MAXIMUM* 

20 LINE MAXIMUM' 

15 CTLUNIT MAXIMUM' 

30 TERMINAL MAXIMUM' 

50 LTERM MAXIMUM' 

4 USER ROUTINES MAXIMUM' 
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SYSTEM DEFINITION JOB CONTROL LANGUAGE STATEMENTS 

The Job Control Language (JCL) for Stage 1 of system definition is 
for an assembly execution. Use the standard operating system assembler 
procedure (ASMFC) with the following SYSLIB DD card override. The 
user generates a card deck of the following format and places these 
cards in an OS job stream. 

// JOB 

// EXEC ASMFC, REGION=130K 

//ASM. SYSLIB DD DSNAME=IMS2. GENLIB , DISP=OLD 

//ASM.SYSIN DD * 

IMS/360 Stage 1 - 
INPUT CONTROL CARDS - 
SYSTEM DEFINITION PROGRAM 

/* 

The resulting output deck completes Stage 1 and is ready for input 
to Stage 2 execution. It is suggested that this output deck be listed 
and examined to understand the content. Prior to Stage 2 execution, 
the IMS/360 system data sets used in Stage 2 must be allocated and 
cataloged. Place this deck of cards in the job stream. 

Examples of system definition are shown at the end of this chapter. 

IMS/360 SYSTEM DATA SETS 

As received by the user, the IMS/360 system consists of either two 
or three unloaded partitioned data sets on an unlabeled 800- or 1600-bpi 
tape. The data set names are IMS2. GENLIB, IMS2. LOAD, and, optionally, 
IMS2. SOURCE. The IMS2. GENLIB and IMS2.LOAD data sets are required for 
execution of the IMS/360 system definition utility and must exist as 
cataloged partitioned data sets (PDSs) on the generating system. The 
IMS2. SOURCE PDS contains the source code for all IMS/360 action modules. 
The IMS2. GENLIB PDS contains the IMS/360 system definition utility 
macro definitions, the PSB and DBD generation utility macro definitions, 
and those IMS/360 macro definitions necessary to assemble action modules 
from the IMS2. SOURCE PDS. 

The user must specify the name of a cataloged partitioned data set 
to be used as output of object modules created during Stage 2 execution. 
The name of this data set is specified in the IMSGEN macro. 

Stage 2 of the IMS/360 system definition utility assumes the 
existence of the following cataloged partitioned data sets, in addition 
to those specified in the IMSGEN macro-instruction of Stage 1, on the 
generated system: 

IMS2.RESLIB Depending on the type of system being generated, Stage 

2 places the batch and/or teleprocessing system nucleus, 
composite online control blocks module, and all action 
modules loaded by the control program in this library. 

IMS2.MACLIB The macro definition set requested in Stage 1 is placed 
into this library as required by the type of generation 
being performed. 

IMS2.PROCLIB All IMS/360-generated cataloged procedures are placed 

into this data set as required by the type of generation 
being performed. 
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The generated IMS/360 system requires that the following data sets 
and libraries be allocated and cataloged on the operating system used 
for IMS/360 execution: 

IMS2.RESLIB contains the IMS/360 nucleus and required action modules 

IMS2.PGMLIB contains user-written application programs 



IMS2.PSBLIB 



IMS2.DBDLIB 



IMS2.ACBLIB 



IMS2.MACLIB 
IMS2.SPA 

IMS2.DBLL0G 

IMS2.SYS0nnn 



IMS2.QBLKS 
IMS2.SHMSG 
IMS2.LGMSG 



contains the user's program specification blocks (PSBs) . 
This data set is used by the block builder utility 
program and may optionally be used if a DL/I batch 
region is executing. 

contains the user's data base description blocks (DBDs) . 
This data set is used by the block builder utility 
program and by the utility type (DLO & UDR) regions. 
It may optionally be used if a DL/I batch region is 
executing. 

contains the application description and data base 
control blocks produced by the block builder utility 
program. The data set is required by the IMS/360 Data 
Base/Data Communications System. Its use in DL/I batch 
regions is optional. 

required to execute the DBD and PSB generation utilities 

contains the specified direct access device scratchpad 
areas, as required by the SPAREA statement in Stage 1 
of system definition. 

is a work data set used by emergency restart to save 
the data base log records until they are needed by the 
data base backout routines of the restart facility. 

direct access data set(s) used to store spool SYSODT 
data that will be printed by the IMS/360 print utility 
when the spool SYSOUT option is selected during system 
definition. The 'nnn' is a numeric suffix assigned 
sequentially by system definition. 

required by the IMS/360 Data Base/Data Communication 
system for message queuing. 



The various partitioned data sets used by IMS/360 for libraries 
must be defined and allocated by the user. The DCB characteristics 
for these data sets should be specified at time of allocation. In all 
cases, these DCB characteristics should be equated to existing operati 
system partitioned data sets. This can be done with a DCB= operand 
of the DD statement used for allocation. The following lists the 
IMS/360-operating system data sets which would have equivalent DCB 
characteristics: 



IMS/360 
IMS2.RESLIB 
IMS2.PGMLIB 
IMS2.PR0CLIB 
IMS2. MACLIB 



Oper ating Sys tem 
SYS1.LINKLIB 
SYS1.LINKLIB 
SYS1.PR0CLIB 
SYS1. MACLIB 
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IMS2.PSBLIB 
IMS2.DBDLIB 
IMS2. ACBLIB 



SYS1.LINKLIB 
SYS1.LINKLIB 
SYS1.LINKLIB 



It is suggested that the Operating System utility program, IEHPROGM, 
be used to allocate and catalog these IMS/360 system data sets. 

To summarize, the different libraries made available or modified 
by the user or by the system definition program are as follows: 



Data Base - 

Data Communication 

System Definition 

IMS2.RESLIB 

IMS2.MACLIB 

IMS2.PSBLIB 

IMS2.PGMLIB 

IMS2.PR0CLIB 

IMS2.DBDLIB 

IHS2. ACBLIB 

IMS2.SPA 
/SYS1.SVCLIB\ (OSAM SVC and 
\SYS1 .LPALIB/ channel-end appendage) 

SYS1.LINKLIB (Link pack modules) 

SYS1. NUCLEUS (Type 1 and 2 SVCs) 

IMS2.DBLL0G 

IMS2.SYS0nnn 

IMS2.QBLKS (Message 

IMS2.SHMSG Queue 

IMS2.LGMSG Data sets) 



Data Base 

S yst em Defin iti on 

IMS2.RESLIB 

IMS2.MACLIB 

IMS2.PSBLIB 

IMS2.PGMLIB 

IMS2.PR0CLIB 

IMS2.DBDLIB 

IMS2. ACBLIB 



'SYS1.SVCLIBN 
,SYS1. LPALIB/ 
SYS1.LINKLIB 



All of the IMS/360 data sets above are to be allocated as the 
operating system partitioned data sets except IMS2.SPA, IMS2.DBLLOG, 
IMS2.QBLKS, IMS2.SHMSG, and IMS2.LGMSG. These data sets are to be 
allocated with DSORG=PS. 

IMS/360 SYSTEM DATA SET ALLOCATION 

Space allocation for IMS/360 MACRO, PSB, SPA, DBD, PROGRAM, 
PROCEDURE, and RESLIB libraries depends upon user reguirements. Space 
reguirements for user libraries of programs, program specification 
blocks, and data base definition blocks depend entirely upon the user's 
operating environment. Some examples may be useful: 

• DBD Library - Each DBD (one per data base) reguires approximately 
1500 to 2500 bytes of direct access storage. Exact reguirements 
depend upon number of data set groups, segments, fields, and 
hierarchical levels. 

• PSB Library - Each PSB (one per program) reguires approximately 
250 to 500 bytes of direct access storage. Exact reguirements 
depend upon number of data bases (PCB) used in PSB and number of 
sensitive segments. 

• ACBLIB Library - reguires space for each PSB and all unigue physical 
DBDs. The space can be calculated from the formulae supplied in 
the IMS/360 System/Applic ati on Design Guide under PSB and DBD 
storage estimates. 
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• PROCLIB Library - About 10 tracks (2314) of space are required. 

• RESLIB library - About 5 cylinders of 2314 space are required. 

• HACLIB Library - About 10 cylinders of 2314 space are required 
for ALL macro-instructions. About one cylinder is required for 
PSBGEN and DBDGEN macro-instructions only. 

• PGMLIB Library - This library contains the application programs. 

• IMS2.0BSDSET - Allocate one cylinder on 2314. 

• IHS2.SPA allocation should be a sequential data set with the SPACE 
parameter similar to SPACE= (number of SPAs, size of an SPA + 10). 
Refer to the SPAREA macro. 

• IMS2.DBLLOG allocation should be a sequential data set with the 
space parameter similar to SPACE= (512 r X times Y) , where: X= the 
number of processing regions specified in the MAXREGN parameter 
of the IMSCTRL statement of system definition, and Y= the largest 
number of data base segments that may be modified during any single 
scheduling of a user message processing program. If any data base 
segments are larger than 460 bytes, Y must be adjusted upward by 

1 for each 460-byte portion of the segment. If pointers and indexes 
are used in the data base, Y must also be incremented by 1 for 
each pointer or index that may be modified. 

• The space requirements for all message queue data sets vary 
depending upon the user's environment. Allocation guidelines are 
provided in the next section. 

• IMS2.SYSnn data sets should be allocated as sequential data sets, 
with sufficient space in the primary allocation to contain the 
amount of output desired to be batched by the user. 

When the Interactive Query Facility (IQF) feature is incorporated 
into IMS/360 (with the combined Data Base/Data Communication system) 
approximately 10 cylinders of 2314 space are required for IQF. 

Message Queu e Space Allocatio n 

The amount of direct access storage space allocated to the message 
queue data sets depends upon how many transaction codes and logical 
terminal names have been specified during system definition, and how 
many messages, both short and long, are to be held by the system during 
any period of time. The best way to provide guidance for space 
allocation is to consider a specific example. Assume: 

1. 200 transaction codes were defined. In addition, 10 of the 
defined transaction codes are used to accumulate error statistics 
for twice a day batch processing. 

One half of the defined transaction codes are single mode, and 
the remainder are multiple mode, with processing limit counts 
of 10. 

200 logical terminal names were defined. 

2. The specification in the MSGQUEUE macro was 

DSETS= (2314) ,SHDTDWN=140 which will cause a common block size 
of 576, with: 

long message length = 576 blocking factor 1 
short message length = 192 blocking factor 3 
queue block record length = 4 8 blocking factor 12 
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3. Estimated message volume for a 12-hour operating period: 

Input - short (average < 132 characters) 40,000 

long (average < 500 characters) 10,000 

Output- short (average < 132 characters) 25,000 

long (average < 1,000 characters) 25,000 

4. Ten blocks will fit on a 2314 track 

From the above assumptions, 

A. the space required for the IMS2.QBLKS data set can be 
calculated: 

tracks = (2.,,*, (Transa c tion codes + Logical termin a ls) + Shutdown ) 
(blocking factor * number of blocks per track) 

= (2,* (200 + 200) + 14 0) 
12 * 10 

= 940 
120 

= 8 

B. The amount of direct access space required for the IMS2.SHMSG 
and IMS2.LGMSG data sets is dependent on message throughput, 
since the disk space is reusable as soon as the message to which 
it was allocated has been processed and is no longer required 
for recovery in case of failure. 

For single-mode transactions, a message space is available as soon 
as it has been processed by an application program and the program 
terminates normally or requests the next message. 

For multiple-mode transactions, the message spaces are made available 
only after the application program which processed them terminates 
normally. 

For logical terminal messages, a given message space is made 
available after the succeeding message has been successfully transmitted 
to a terminal device. 

40,000 short messages are processed against the 200 transaction 
codes in 12 hours. 

1. With an even distribution, that would be 200 per transaction 
code 

If 10 transaction codes are queued for batch processing every 
six hours, there would be 

2. 2 00 x 10 = 1,000 short messages stored at the end of each 

2 6-hour period 

3. 100 transaction codes are single mode, so the message space 
required if the messages were all processed immediately would 
be 100 short records. 

100 transaction codes are multiple mode, with processing limit 
count of 10. Therefore, each transaction code could hold 10 
message spaces for processed messages before releasing them. 

4. 100 x 10 =1,000 short messages 
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25,000 short messages are processed against the 200 logical terminals 
in 12 hours. With an even distribution, that would be 125 short 
messages per logical terminal. Because messages may be produced 
for an output device which is not in operation (terminal turned 
OFF in a remote location, etc.) , allocation must include space to 
save these messages. 

5. Estimate 20 of the logical terminals transmit no output. 

6. 20 x 125 = 2500 short messages 

The remaining logical terminals would have one message in process 
and one prior message held. 

7. 180 x 2 = 360 short messages 

Space must be allocated in the IMS2.SHMSG data set to hold 

8. 1,000 held input messages 

100 single mode input messages 

1,000 multiple mode input messages 

2,500 held output messages 

360 processing output messages 

140 messages reserved for shutdown 

5, 100 

9. Space required 5, 100 = 170 tracks 

3 * 10 

C. The amount of direct access space required for the IMS2.LGMSG 
data set utilizes the same assumptions as in B. , with the 
following difference: 

Since the long message output is approximately 1000 bytes, 
two records are required for each message. 

25,000 x 2 = 50,000 long output message records 

1- 10, .000 = 50 long messages per transaction code 
200 

2. 50 x 10 = 250 input messages held 

2 

3. 100 input single mode 

4. 100 x 10 = 1,000 multiple mode 

5- 50,000 = 250 message -records per logical terminal 
200 

6. 20 x 250 = 5,000 output messages held 

7. 180 x 2 = 360 processing output 

8. 250 held input messages 

200 single mode input messages 
1,000 multiple mode input messages 
5,000 

360 

V\0 

6,950 

9. Space required = 6,950 = 695 tracks 

1 x 10 
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D. From the above, space allocation in 2314 cylinders may- 
be determined 

Tracks +19/20 Cylinders 



IMS2.QBLKS 


8 


24 
20 


1 


IMS2.SHMSG 


170 


189 
10 


9 


IMS2.LGHSG 


695 


714 
20 


35 



Mess age J2ueue Spa ce A ll oc at ion - Secondary 

For most efficient operation, message gueue data set space should 
be allocated in terms of contiguous cylinders. Secondary allocation 
is ignored unless the secondary space has been preallocated (that is, 
.multivolume data set with preallocated space on both volumes) . 

SYSOUT Data Set A llocatio n 

Space for spool SYSOUT data sets may be allocated by the user as 
reguired, but the user must not specify secondary allocation. DCB 
parameters DSORG=PS and RECFM=UM are reguired. If not supplied, these 
parameters will be set automatically. Blocksize can be specified on 
the DD card, but it may be adjusted downward if it is larger than the 
system definition specification. 

Records written to this data set are standard OS variable-length 
blocked records. The designation of the undefined-record format 
specification reduces the buffer space reguirement in the IMS/360 
control region. Minimum block size is 20 bytes, but this would normally 
be sufficient to accommodate one print line. Maximum block size would 
be the track size of the device on which the data set is allocated. 

The buffer size specified in the LINE macro instruction for system 
definition must be at least 16 bytes larger than the desired block 
size. 

D irec t Out put Dat a Sets 

For direct SYSOUT lines defined to IMS, any valid output device, 
supported by operating system BSAM access method, may be used. The 
following record formats can be specified: F, FM, FB, FBM, FBS, FBSM, 
V, VM, VB, and VBM. Blocksizes may be specified, but will be adjusted 
downward at execution time, if they are in excess of system generation 
maximums. 

For fixed record formats, the system-defined buffer size must be 
at least 20 bytes longer than the DCB block size for the data set. 
For variable-length records, buffer size must be 16 bytes longer than 
the desired block size. Logical record specifications may be selected 
by the user to accommodate the data to be written and are restricted 
as follows: 

a. For fixed-format records, the blocksixe must be an even multiple 
of logical record length. 

b. For variable-format records, maximum logical record length is 
egual to block size minus 4. 
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RECFM 


LRECL 


BLKSIZE 


VM 


125 


129 


VH 


137 


141 


V 


85 


89 


VBM 


125 


Note 1 


VBM 


125 


1/4 Track 



If no DCB parameters are supplied, the following defaults apply: 

Devic e Type 

1403, 1443 

3211 

2540P 

2400 series tape 

DASD 

Note : Blocksize is only dependent on system definition buffer 

size. Each segment is treated as a logical record. When 
blocking is specified, all segments of a message will be 
contained within a block, unless the block size is not large 
enough to hold them. 

Fixed length segments are always padded with trailing blanks. 
If blocking is used, the balance of the block will also 
be padded if a message does not contain the same number 
of segments as logical records in the block. 

Tape blocks are never shorter than 18 bytes regardless of 
the record format. 

Since volume switching is provided by operator command when 
tape is used, it is necessary that the volume count 
subparameter of the VOLUME keyword, on the associated DD 
card, be specified with a large value; for example, 99. 
If this procedure is used in an IMS system where binary 
synchronous devices are also operating and only one tape 
drive is allocated, timeout problems can occur. 

Use of SYSIN for Local Card R eader Lin es 

When a SYSIN data stream is assigned to a local card reader line, 
the following conditions apply: 

a - IMS running as a problem program; the DD card referring to the 
line must contain DCB=BLKSIZE=80. 

b - IMS running as a system task; the SYSIN test stream must be placed 

in a sequential data set with the DCB attributes: RECFM=F, 

BLKSIZE=80, and pointed to by a DD card for a reader line within 
the IMS procedure. 

3270 Format Services Library Allocat i on Guideline s 

The DD cards below show the initial minimum allocation that should 
be made for the 3270 format services libraries based upon 2314 devices. 

The IMS2.REFERAL and IMS2. FORMAT data sets should have additional 
one (1) track allocated for each user defined FMT/MSG descriptor. 
The first six (6) data sets below constitute two (2) HIDAM data bases 
used to remember inter-descriptor relationships. More precise storage 
allocation for the data bases can be performed by consulting the DBD 
definition source members, DFSUTS30, DFSUTS40, DFSUTS50, and DFSUTS60. 
These definitions are contained within the distribution DCSOURCE 
library. With the DBD source members, normal DL/I allocation 
computation applies* 
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//FMTINDX DD 

// 

// 

// 

// 

// 

//FMTINDXO DD 

// 
// 
// 
// 
// 
//FMTDB DD 

// 
// 
// 
// 
// 
//MSGINDX DD 

// 
// 
// 
// 
// 
//MSGINDXO DD 

// 

// 

// 

// 

// 

//MSGDB DD 

// 

// 

// 

// 

// 

//HISTORY DD 

// 
// 
// 
// 
// 
// 
//ONLINE DD 

// 
// 
// 
// 
// 



DSN=IHS2.FHTINDX, 

DCB=DSORG=IS, 

DISP=(NEH r KEEP) r 

UNIT=sysda r 

VOL=SER=serial r 

SPACE= (CYL, (5,,1)) 

DSN=IMS2. FMTINDXO, 

DCB=DSORG=PS, 

DISP=(NEW,KEEP) r 

UNIT=sysaa r 

VOL=SER=serial 

SPACE= (CYL, (1,1)) 

DSN=IMS2. FORMATS, 

DCB=DSORG=PS, 

DISP= (NEW, KEEP) , 

UNIT=sysda, 

VOL=SER=serial, 

SPACE=(CYL, (1,1)) 

DSN=IMS2. MSGINDX, 

DCB=DSORG=IS, 

DISP= (NEW, KEEP) , 

DNIT=sysda, 

VOL=SER=serial, 

SPACE= (CYL, (5,,1)) 

DSN=IMS2. MSGINDXO, 

DCB=DSORG=PS, 

DISP= (NEW, KEEP) , 

UNIT=sysda, 

VOL=SER=serial, 

SPACE=(CYL, (1,1)) 

DSN=IMS2. MESSAGES, 

DCB=DSORG=PS, 

DISP= (NEW, KEEP) , 

ONIT=sysda, 

VOL=SER=serial, 

SPACE- (CYL. (1,1)) 

DSN=IMS2.REFERAL, 

DCB= (RECFM=U, DSORG=PO , 

BLKSIZE=.ge.IMS2.LOAD) , 

DISP= (NEW, KEEP) , 

UNIT=sysda, 

VOL=SER=serial, 

SPACE=(CYL, (5,2,10)) 

DSN=IMS2. FORMAT, 

DCB=DSORG=PO, 

DISP= (NEW, KEEP) , 

ONIT=sysda, 

VOL=SER=serial, 

SPACE= (CYL, (5,2,10)) 
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The •FMTINIT* procedure is placed in the user specified procedure 
library by IMS System Definition, Stage II. 3270 users must execute 
this procedure prior to on-line execution. To initiate the •FMTINIT' 
procedure enter from the O.S. system console: 

S IMSRDR, MBR = FMTINIT 

The user should scratch and reallocate the format utility data sets 
prior to the building of the default blocks. 

If at any subsequent time the format utility data bases are scratched 
and reallocated, the user should scratch and reallocate the format 
utility data sets and rerun the FMTINIT procedure. 

SYSTEM DEFINITION GUIDE 

Execution of the system definition utility is shown in general 
flowchart form following. It provides for both Stage 1 and Stage 2 
of system definition and all the other requirements to make IMS/360 
operative. 

Syste m Definitio n Job S teps 

The steps to be accomplished in performing an IMS/360 system 
definition are listed below. Depending on the individual definition 
involved, certain of the assemblies may be skipped. However, all steps 
must be accomplished in the order listed. 

Copy macros to IMS2. MACLIB. 

Add cataloged procedures to IMS2.PROCLIB. 

Assemble the batch nucleus. 

Assemble the PSB directory, SMB, and the DMB directory. 

Assemble CLBs, LERBs, line DCBs, communication open 
lists and polling lists, CTBs, COBs, CNTs, and CTM. 

Assemble CCBs, CTTs, and translate tables. 

Assemble CVBs. 

Assemble the SDB. 

Assemble system control blocks 

(XC, IOBs, MSG DCBs, PSTs, save areas, and queues) 

Assemble secondary SCD. 

Assemble SCD. 

Link-edit reentrant modules. 

Link-edit reusable modules. 

Link-edit overlay modules. 
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Start system definition. 



START SYS 0£f * 

* 
*************** 



********************* 

* * 

CARD Dfc'CK OF 

* CTRL CARDS * 

*************** 



4*************4 
*6£NERATNG-SYS* 
$ PERFORS" * 

* DATA SET > 

♦ ALLOCATION * 
*************** 



*************** 
< * 

SYSTEM * 
DEFINITION * 
STAGE 1 * 
■ * 

*************** 



I 



Stage 1 system definition is a deck 
of control cards prepared from the 
macro-instructions of system 
definition shown earlier in this 
chapter. 



The computer system used to execute 
Stage 1 and Stage 2 of system 
definition need not be the actual 
IMS/360 computer system. However, 
the version of the operating system 
used for Stage 2 must be the same 
version under which the defined 
system will be executed. If it 
is not the same system, perform 
data set allocation for IMS2. GENLIB, 
IMS2.L0AD, and specify the data 
set in the OBJDSET of the operand 
of the IMSGEN macro. 



System definition Stage 1 reguires 
an assembly run for compilation 
of the control statements. The 
assembly reguires its SYSLIB DD 
statement to point to the IMS/360 
system definition macro data set 
IMS2.GENLIB. 



Go to next page 
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****************** 

* * 

PUNCHED CARD 
* DECK * 

****************** 



******************* 



SYSTEM 

DEFINITION 

STAGE 2 



* * 

* * 

* * 

* * 



**************** *** 



System definition Stage 2 takes 
as input a punched deck of cards 
created as output from Stage 1. 



Perform Stage 2 of system definition. 



*************** 

* END" OF SYS * 
*DEf; CREATED * 

* AS MAX - * 

* IMSNUC S3* 

* LIBS * 
*************** 



1/ 

* * 

* * 

* *YES **** 

* * * * 
A TP ONLINE *> * 

* SYSTEM ? * * * 

* * **** 

* * 

* * **** 
* -NO * * 
>* * 

* * 
**** 
NOTP 



TP 



When Stage 2 is complete, system 
definition creates an IMS/360 nucleus 
and establishes content in three 
libraries (as maximum output) , 
IMS2.RESLIB, IMS2.MACLIB, and 
IMS2. PROCLIB, on the preallocated 
data sets specified on the generating 
system. 



Is the IMS/360 system that was first 
generated a teleprocessing (online) 
system? Yes, go to label TP. No, 
go to label NOTP. 
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TP 




*************** 


*** 


* * 


* * 


* PERFORM OS * 


* - 


->* DATA SET * 


♦ * 


* ALLOC IMSG * 


*** 


* QUE S LIBS) * 



*************** 



NOTP V 

*************** 

*** * * 

* * *PERFORM PSB S* 

* — >*DRD DATA SET * 

* * * ALLOCATION * 
*** * * 

**************& 



*************** 

* CONNECT * 

* LNKLSTOO * 

* * 
*************** 



Label TP: If the system being 
generated is to process message 
processing and/or batch message 
processing programs, the message 
gueue data sets must be allocated 
on the computer system under which 
IMS/360 is to operate. 



Label NOTP: Perform PSB and DBD 
data set allocation, whether 
generated system is a message 
processing and batch message 
processing, or a batch processing 
region system. 



Connect IMS2.RESLIB to system link 
library using the LNKLSTOO member 
Of SYS1.PARMLIB. 



*************** 
* MOVF OSAM *- 



*CHAN END APP 


* 


*& 


SVC MODULE 


* 


* 


TO 


* 


* 


SYS1.SVCLIB 


* 


** 


{!****: 


e******* 




* 


* 


USER-APPL 




* * 




* 




*N0 ***• 


* 




* * * 


* 


TP ONLINE 


*> * 


* 


SYSTEM ? 


* * * 


* 


* * 
* * 


*. *** 






»• YES 





System definition creates OSAM 
channel end appendage and Type 4 
SVC modules and places these in 
IMS2.RESLIB. OSAM channel end 
appendage and SVC modules must be 
moved to SYS1.SVCLIB (MFT, MVT, and 
VS1) or SYS1.LPALIB (VS2) . 
(Described later in this manual.) 
If this is a generation for an OS/VS 
system, the privileged name table 
and program properties table must 
be modified to include the name 
DFSRRCOO. 



Again, is this an online 
(teleprocessing) system? 
to label USER-APPL. 



No, go 



Go to next page 
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** 


£**** ***$***# 


*< 


* 


* 

* 
* 


LINK EDIT * 

SVC'S TO * 

OS * 

NUCLEUS * 



if A' #$*##*$$<«***# 



* * 

* MODIFY * 

* PRIVILEGED * 
*NAME TABLE - * 
*SYS1.LINKLIB * 



* * 

* MOVE * 

* IMS, IMSRDR * 

* PROCS TO * 
*SYSl.PROCLIB * 



V 

* * USER-APPL 

SECURITY * * * 

MAINTENANCE *> * 

R FQ • D ? * * * 

* YES 



Two of the user SVC load modules 
created in Stage 2 of system 
definition must be link-edited into 
the OS nucleus prior to attempting 
to execute IMS/360. 



In order to initiate the IMS/360 
online control program through a 
START IMS command, the name DFSRRCOO 
must be added to the OS privileged 
name table (described later in this 
chapter) . 



The IMS and IMSRDR procedures must 
be copied from IMS2. PROCLIB to 
SYS1.PROCLIB for proper execution 
of the START IMS command and the 
/START REGION or /START MSG REGION 
master terminal command. 



Message region procedures which 
are going to be specified in the 
/START REG Command must be added 
to IMS 2. PROCLIB. 



Go to next page 
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****************** 
* * 

CARD DECK OF 
* CTRL CARDS * 

****************** 



*************** 

* * 
*RUN SECURITY * 

* MAINTENANCE * 

* PROGRAM * 

* * 
*************** 



V 

*************** 

* * 
♦OUTPUT OF SEC* 

* MAINT PGM - * 

* CHANGES * 

* IMSNUC * 

****£********** 



****** $******£* 

♦NRESTART * 

* * 

♦INITIATE NEW * 

* SECURITY PG * 

* * 

*************** 



Set up control cards for input card 
deck to the security maintenance 
program. (See the description of 
control cards in Chapter 4 of this 
manual.) 



Execute the security maintenance 
program (SMP) . 



The output of SMP is added to the 
IMS2.RESLIB library 



V 



The result of the SMP does not 
become effective until the next 
normal restart (See Security 
Maintenance Program (SMP) , Chapter 
4 of this manual, for more details.) 



Go to next page 
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IQF SYS 



* * 



.*. USER-APPL 

Al *• , 

a A ** O 4" -r *r 

a * I OF TO *o NO * * 

• ^ IN ******* * 

* a SYSTEM?^,* 

*. o * 

* YES 



#**Q]_ ************ 



* CARD DECK OF * 
CONTROL CARDS, 



$ # ^ # * * * * * * * * * * * * * 



V 

* EXECUTE IQF * 

* UTILITY * 

* t 

* * 

# #***** ********** 

I 



If the Interactive Query Facility 
(IQF) feature is to be included 
in the IMS system, an additional 
process is required. 



Set up IQF Utility control card 
deck as described in the IMS/36 
Version 2 Utilities Reference Manual 



(SH20-0915) . 



Execute the IQF Utility, Creating 
the IQF Processor data bases. 



Go to next page 
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USER-APPL V 

4*************7 

* * 

* user * 
* application * 

* pgm functions * 

* * 
*************** 



********:!<:****** 

♦CREATE S LOAD* 

* PSBtDBD T * 

* OTHER SYS * 

* LIBS * 

*************** 



^c* ******* ****** 



LOAD 
APPLICATION 
SYSTEM DATA 

BASES 



*************** 



*************** 
READY FOR 

IMS/360 
EXECUTION 

*************** 



Label OSER-APPL: The user must 
perform all the application 
programming functions; that is f 
load his application programs in 
the libraries and the names in the 
directories, etc. 



The PSB and DBD data sets must be 
loaded prior to executing IMS/360. 
Any other IMS/360 oriented procedures 
or data sets desired could also 
be loaded at this time. 



The application system data bases 
must be loaded before execution 
of IMS/3 60 can proceed. 



Execute IMS/360 ("IPL") per 
instructions in Chapter 6 of the 
IMS/360 Operator's Manual . 
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PREPARATION OF O PERATIN G SYSTEM FOR IMS/360 

The successful completion of system definition Stage 2 has done the 
following: 

1. Placed the following modules in IMS2.RESLIB: 

a. The OSAM channel end appendage routine. 

b. The OSAM and other Type 4 SVC routines. 

c. The Type 1 and 2 SVC routines. 

d. The Type 1 and 2 SVC interface routines. 

e. The region control module DFSRRCOO. 

2. Placed the cataloged procedures IMS and IMSRDR in IMS2. PROCLIB. 
The IMS/360 system user must perform the following functions: 

1. Link edit the Type 1 and 2 SVC interface modules with his 
operating system nucleus. 

2. Link edit the OSAM channel end appendage and SVC modules into 
SYS1.SVCLIB (MFT, MVT r and VS1) or SYS1.LPALIB (VS2) . 

3. Move the cataloged procedures IMS and IMSRDR to SYS 1. PROCLIB. 

4. Concatenate IMS2.RESLIB with SYS1.LINKLIB by a change to 
SYS1.PARMLIB. The member name to be changed in SYS1.PARMLIB 
is LNKLSTOO. See the Syst em/36 Operating Syst em, System 
Progr ammer's Gui de (GC28-6550) . 

5. Change the operating system privileged name list in SYS1.LINKLIB 
to include DFSRRCOO. The member name is IEEVLNKT. See the 
Sjst em/3.6 Operati ng System , Job . Management Program Logic Manual 
(GY28-6660) . This step must be performed for both the Data 
Base/Data Communications System and the Data Base-only System 

in an OS/VS environment. 

6. If the online system contains 7770-3 lines, link edit the 7770-3 
channel/abnormal end appendage and additional load of the Type 

4 SVC into SYS1.SVCLIB (MFT, MVT, and VS1) or SYS1.LPALIB (VS2) . 

IMS/360 SUPERVISOR CALL ROUTINES 

The IMS/360 system utilizes three supervisor call (SVC) routines. 
One of these is used for interregion communication. The second routine 
is used for IMS/360 online control program functions. The third routine 
is used by OSAM to create its multivolume data extent block (DEB) . 
All three routines must be specified during system definition for the 
IMS/360 system even if only a batch-only Data Base System is being 
generated. IMS/360 system definition creates these routines with 
user-defined SVC numbers. The next section of this chapter explains 
how to perform the link edit. 

INCLUSION OF IMS/360 SVC ROUTINES IN THE OPERATING SYSTEM NUCLEUS 

Two user SVC routines must be added to the operating system nucleus 
and one to SYS1.SVCLIB (MFT, MVT, and VS1) or SYS1.LPALIB (VS2) for 
execution of the IMS/360 system. These routines are not reguired if 
the batch Data Base System execution is used exclusi vely. These SVC 
routines are created by IMS/360 system definition from 
macro-instructions. The SVC numbers to be used may be specified by 
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the IMS/360 system user. The load modules which represent the SVC 
routines are placed in IMS2.RESLIB by system definition. Two SVC 
routines are used by the IMS/360 online system. A Type 1 SVC is used 
for interregion communications, and a Type 2 SVC is used for IMS/360 
control functions. The SVC routines used for OSAM are part of a Type 
4 SVC. The batch system (data base) uses only the OSAM facility of 
the Type 4 SVC. 

When the IMS/360 user performs his operating system generation, 
provision must be made for the later incorporation of the SVC routines. 
The IMS/360 SVC routines need not and normally would not be incorporated 
at operating system generation. They may, however, be incorporated 
at that time, if desired. The following SVCTABLE macro-instruction 
operands should be included in the Stage I input to the OS system 
generation no matter when the SVC routines are incorporated. 

(For OS) SVCTABLE SVC-nnn-T1-S0,SVC-nnn-T2-S6, SVC-nnn-T4-S6 

(For VS1) SVCTABLE SVC-nnn-D 1-SO, SVC-nnn-E2-S6, SVC-nnn-E4-S6 

(For VS2) SVCTABLE SVC-nnn-D 1 ,SVC-nnn-E2, SVC-nnn-E4 

If the actual SVC routines are not incorporated during the operating 
system system generation, three "dummy" load modules should be placed 
in the RESMODS partitioned data set. This should be done prior to 
Stage II of operating system system generation. These modules are of 
the format: 

For SVC Types 1 and 2 For Type 4 SVC 

IGCnnn CSECT IGCOOnnn CSECT 
BR 14 BR 14 

END END 

where nnn is the unigue SVC number. This effectively "no-ops" the SVC 
number. 

The alternate approach, which would cause inclusion of the actual 
SVC routines during operating system system generation, requires 
placement of the actual SVC modules into the partitioned data set 
referred to by the RESMODS macro-instruction. This would require 
IMS/360 system definition execution prior to Stage II of operating 
system system generation. The RESMODS control card could then refer 
to the IMS2.RESLIB data set for the incorporation of the SVC routines. 

If the SVC routines are added after operating system generation, 
the technique for the resident SVCs is to relink-edit the operating 
system nucleus. Basically, this involves replacing the "dummy" SVC 
routines through the link-edit with the actual SVC routines. The best 
explanation for performing this link-edit is to: 

1. Start with JCL and control cards of link-edit step from Stage 
II of OS system generation. 

2. Provide an additional DD statement allocating the IMS2.RESLIB 
data set to access the SVC modules. 

3. Provide an additional DD statement to allocate the SYS 1. NUCLEUS 
data set other than //SYSLMOD. 

4. Provide additional INCLUDE control cards for the two SVC routines 
from IMS2.RESLIB immediately after the INSERT control cards of 
the original link-edit. 

/ 

5. Replace the INCLUDE cards from the original operating system ^ v 
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nucleus link-edit with one INCLUDE card for the old operating 
system nucleus (that is, the one without the SVC routines) . 

Provide a NAME card for the new operating system nucleus (for 
example, IEANOC02) . 



It may be good practice to consider the output from the link-edit 
of the nucleus as another member in SYS1. NUCLEUS (for example, 
IEANUC02) . The OS Operators Manual explains how to IPL an alternate 
operating system nucleus. If everything executes properly, then 
IEANUC02 can be renamed IEANUCO 1 . 



OSAM CHANNEL END APPENDAGE AND TYPE 4 SVC 

OSAM reguires a channel end appendage module and Type 4 SVC modules 
created as load modules during execution of IMS/360 system definition. 
The modules are distributed on IMS2.L0AD and are renamed during system 
definition. The renamed modules are placed in IMS2.RESLIB. 

It is the user's responsibility to link edit the created OSAM channel 
end appendage module and Type 4 SVC modules from IMS2.RESLIB to 
SYS1.SVCLIB (MET, MVT, and VS1) or SYS1.LPALIB (VS2) . 

Type 4 SVC load modules and channel end appendage module to be 
placed into SYS1.SVCLIB (MFT, MVT, and VS1) or SYS1.LPALIB (VS2) . 



IMS2.L0AD 
DFSVC400 
DFSVC410 
DFSAOSAO 

DFSAOSBO 

DFSAOSCO 

DFSAOSDO 

DFSICSCO 

DFSVCIOO 

DFSVC440 

where: 

nnn 

is the specified Type 4 SVC number converted to a signed decimal 
number. 

WA RNIN G; If the low-order digit of the SVC number is a zero, the signed 

integer value of zero is an unprintable character. For example, 
assuming a specified Type 4 SVC value of 240, the Type 4 SVC 
module names would appear on listings as IGC0024b (where 
lowercase b indicates a blank) . 



IMS2.RESLIB 
IGCOOnnn 
IGCOInnn 
IGC04nnn 

IGC05nnn 
IGC06nnn 
IGC07nnn 
IGCIOnnn 
IGC1 1nnn 
IGC!3nnn 



Basic interface module 

System control 

OSAM open/close EOV entry and 
initialization 

OSAM open 

OSAM open/EOV 

OSAM open/close EOV final processing 

Issue START and STOP commands 

Type 1 and 2 vector initialization 

VS system initialization 
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DFSIOCEO IGG019XX channel-end appendage 

where: 

xx 

is the specified channel end appendage number 

These modules must be link edited with the RENT, REFR attributes. 

7770-3 CHANNEL/ABNORMAL END APPENDAGE AND TYPE 4 SVC 

The 7770-3 device support requires a channel/abnormal end appendage 
module and a load of the Type 4 OSAM SVC modules created as load modules 
during execution of the IMS/360 system definition. The modules are 
distributed on IMS2.LOA.D and are renamed during system definition. 
The renamed modules are placed in IMS2.RESLIB. 

It is the user's responsibility to link edit the created 7770-3 
modules from IMS2.RESLIB to SYS1.SVCLIB (MFT, MVT, and VSl) or 
SYS1.LPALIB (VS2) . 

The appendage and Type 4 SVC load to be placed into SYS1.SVCLIB 
(MFT, MVT, and VS1) or SYS1.LPALIB (VS2) are: 

IMS^iLOAD IMS 2.RESL IB 

DFSAAP10 IGG019xx appendage module 

DFSASV10 IGd2nnn Type 4 load 

where: 

xx 

is the appendage suffix specified on the IMSCTF macro 

nnn 

is the Type 4 SVC number converted to a signed decimal 
number from the value specified in the IMSCTF macro. 

These modules must be link edited with the 'RENT, REFR 1 attributes. 

IMS AND IMSRDR PROCEDURES 

The IMS and IMSRDR procedures are used to initiate the IMS/360 
control program region and message regions. These are placed into 
IMS2.PROCLIB by system definition. The user must copy these procedures 
to SYS1.PROCLIB prior to IMS/360 execution. Copies of these procedures 
are supplied later in this chapter. 

CONCATENATING IMS2.RESLIB TO SYS1.LINKLIB 

Since the IMS/360 control program region operates as a system task, 
the modules which comprise it must exist in SYS 1 .LINKLIB. It is the 
user's responsibility to concatenate IMS2.RESLIB with SYS1. LINKLIB. 
This is performed by modification of the member in SYS1.PARMLIB named 
LNKLST00. (This is also required for the DL/I batch region.) An example 
of this member is provided below in its modified format. 
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LNKLSTOO 

SYS 1 . LINKLIB, IMS2. RESLIB 



PRIVILEGED PROGRAM NAME LIST MODIFICATION 



The IMS contr 
must be started 
The IMS/360 proc 
This procedure, 
control program 
control is the r 
must be included 
this, OS module 
DFSRRCOO. After 
renamed dependin 
being used. It 
of several modul 
a reassembly and 
Release 20 of OS 
although they ar 
OS may require m 
the privileged p 
PLMs, Forms GY28 
all modules have 
I output should 



ol program operates as an OS system task and therefore 
from the OS operator's console with an OS START command, 
edure named IMS is invoked by the 'START IMS' command, 
which must exist in SYS1 . PROCLIB, initiates the IMS 
as a. system task. The first IMS/360 module to gain 
egion controller, DFSRRCOO. The name of this module 

in the OS privileged program name list. To accomplish 
IEEVLNKT must be reassembled to include the name 

reassembly the new CSECT must be link edited and 
g upon the type of OS system, MFT, MVT, VS1, or VS2 
may be necessary to include the IEEVLNKT CSECT as part 
es. The following examples show the JCL required for 

link edit of the privileged program name list for 
These examples are intended as guidelines, and 
e accurate for Release 20.1 of OS, future changes of 
odif ications to the JCL examples. Information about 
rogram name list can be found in the OS Job Management 
-6660 for MVT and GY27-7128 for MFT. To verify that 

been correctly changed, the OS system generation stage 
be checked to see where the name list is used. 



Example I. Assembly and Linkedit of the privilleged name 

table (CSECT IEEVLNKT) into SYS1 .LINKLIB. This 
applies to MVT, MFT, VS1, and VS2. 



//IEEVLNKT 

//STEP1 

//ASM.SYSIN 

IEEVLNKT 

REFTBL 



REFEND 

REFTBL2 

REFEND2 



JOB 
EXEC 

DD 
CSECT 
EQU 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

TABL 
EQU 
DC 
DC 
END 



1,IMS,MSGLEVEL=1 
ASMFCL 



CL8 
CL8 
CL8 
CL8 
CL8 
CL8 
CL8 
CL8 
CL8 
CL8 
CL8 
CL8 
CL8 
X'OO 



ASSUMED PREVIOUS 
CONTENT OF 
PRIVILEGED 
PROGRAM 
NAME LIST 



E 2 



CL8 1 
X'OO 



•IEFIRC *** 
•IEFSD080' 
•IEEVMNT2' 
'IEFVRRC 
'IEFVMA' 
' IEFIIC 
'IKJEFFUO' 
•IKJFATRC 
•IHLGTF' 
•HHLGTF' 
' AHLGTF' 
•HASP' 
'DFSRRCOO' 
i 

PROGRAMS FOR STARTABLE SYSTEM TASKS WHICH 
ARE NOT TO HAVE DATA SET INTEGRITY 
IEFSD080' 



### 



IMS REGION CONTROLLER ADDED 



/* 

//LKED.SYSLMOD DD DSN=SYS 1 . LINKLIB (IEEVLNKT) , DISP=SHR 

/* 
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Example II. Link Edit JCL for a MVT System 



//MVTLINK JOB 1 , IMS, MSGLEVEL= 1 

//LNK EXEC LKED,PARM.LKED='NCAL, LIST, XREF, LET' 
//LKED.SYSLMOD DD DSN=SYS 1 . LINKLIB, DISP=SHR 
//LKED.SYSIN DD * 

INCLUDE SYSLMOD(IEEVLNKT) 

INCLUDE SYSLMOD(IEEVRCTL) 

ENRTY IEEVRCTL 

NAME IEEVRCTL (R) 
/* 



Example III. Link Edit JCL For an MFT System 



//E 

//LKED.CI505 DD 
//LKED.SYSLMOD DD 
//LKED.SYSIN 

INCLUDE 

INCLUDE 

ENTRY 

ALIAS 

NAME 

INCLUDE 

INCLUDE 

INCLUDE 

ENTRY 

NAME 
/* 



NEW NAME LIST 



EXEC LKED,PARM.LKED='NCAL, LIST, XREF, LET' 

DSN=SYS1.CI505,VOL=SER=DL1B02,UNIT=2314,DISP=SHR 
DSN=SYS1. LINKLIB, DISP=OLD 
DD * 

SYSLMOD(IEEVLNKT) 

CI505 (IEEVRJCL,IEEPSN) 

IEEVRJCL 

IEEPSN 

IEEVRJCL (R) 

CI505 (IEEVSMSG) 

CI505 (IEEVACTL,IEEVSMBA) 

SYSLMOD(IEEVLNKT) 

IEEVACTL 

IEEVACTL(R) 



NEW NAME LIST CSECT 



Example IV. Link Edit JCL For An OS/VS1 System 



//E 



EXEC 



LKED,PARM.LKED='NCAL, LIST, XREF, LET' 



//LKED.SYSLMOD DD 



//LKED.SYSIN 
INCLUDE 
INCLUDE 
ALIAS 
ENTRY 
NAME 
INCLUDE 
INCLUDE 
ENTRY 
NAME 



DD 



DSN=SYS1. LINKLIB, DISP=SHR 
* 

SYSLMOD (IEEVLNKT) 
SYSLMOD (IEEVRCTL) 
IEEVIC 
IEEVRCTL 
IEEVRCTL (R) 
SYSLMOD (IEEVLNKT) 
SYSLMOD (IEFIRC) 
IEFIRC 
IEFIRC (R) 



NEW NAME LIST CSECT 



NEW NAME LIST CSECT 



Example V. Link Edit JCL for a VS2 System 



//VS2LINK JOB 1,IMS,MSGLEVEL=1 

//LK EXEC LKED,PARM.LKED='NCAL,LIST, XREF, LET' 
//LKED.LINK DD DSN=SYS1 . LINKLIB, DISP=SHR 
//LKED.SYSLMOD DD DSN=SYS 1 . LPALIB, DISP=SHR 
//LKED.SYSIN DD * 

INCLUDE LINK (IEEVLNKT) 

NAME IEEVLNKT (R) 
/* 
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PROGRAM PROPERTIES TABLE MODIFICATION IN OS/VS1 

When executing in an OS/VS1 system, IMS/360 requires the authorized 
subsystem status. To accomplish this, 0S/VS1 CSECT IEFSDPPT must be 
reassembled to include name DFSRRCOO. This CSECT is comprised of four 
sections, each with its own entry point. The fourth section, with an 
entry point named AUTHSEC, should be changed to include the name 
DFSRRCOO. This CSECT should then be re-linked into module IEFSD161. 
The 0S/VS1 SYSGEN should be consulted to determine the correct method 
for replacing this module. 

PROGRAM PROPERTIES TABLE IN OS/VS2 

No changes are required to the program properties table in OS/VS2. 

DFSILNKO TO SYS1.LINKLIB 

Prior to using any of the generated IMS/360 assembler or compiler 
procedures, the user must either link edit module DFSILNKO from 
IMS2.RESLIB to SYS1.LINKLIB or must have concatenated IMS2.RESLIB to 
SYS1.LINKLIB through the LINKLSTOO member of SYS1 . PARMLIB. This module 
permits the use of SHR disposition on SYSLMOD data sets in the link 
steps of procedures. This module invokes the linkage editor under the 
alias name LINKEDIT. 
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OPERATING SYSTEM LINK PACK MODULES 



In an operating environment where there are sever 
or a combination of online and batch regions, it may 
to place some of the frequently used IMS and BISAM m 
operating system RAM area (MET or VS1) or link pack 
The following is a list of loaded modules which are 
recommended candidates for the RAM or link pack area 
be included must previously exist in either the SYS1 
SYS1.LINKLIB or its concatenations. (IMS2.RESLIB sh 
with SYS1 .LINKLIB.) To determine additional candidat 
pack area, refer to the list of IMS modules with the 
attributes provided in Chapter 1 of the IMS/360 Syst 



al batch regions 
be advantageous 
odules in the 
area (MVT or VS2) . 
reentrant and are 
The modules to 
. SVCLIB or the 
ould be concatenated 
es for the link 
ir linkage editor 
em Manual. 



Erom SYS 1. LINKLIB 



Module name 



Module definition 



DESDLAOO 
DESDLROO 
DFSDBHOO 
DESDLEOO 
DFSDLDOO 
DESAOS50 
DFSAOS20 
DESAOS30 
DFSDISMO 
DFSDHDSO 
DFSARWOO 
DFSFCPYO 



Data Language/I Analyzer 

Data Language/I Retrieve 

Data Base Buffer Handler 

Data Language/I Insert 

Data Language/I Delete/Replace 

OSAM Common Subroutines 

OSAM Read/Write 

OSAM CHECK 

Data Language/I ISAM Simulator 

Data Language/I Space Management 

7770-3 Read/Write Module 

Interregion Copy Routine 



From SYS1. SVCLIB 



Module name 



Module definition 



IGG019Z9 
IGG019GX 
IGG019G9 
IGG019JV 

IGG019J7 
IGG019Z8 
IGC00NNN 
IGCOUNNN 
IGC05NNN 
IGC06NNN 
IGC07NNN 



OSAM Channel End Appendage 

BISAM Asynchronous Read/Write 

BISAM Appendage with Write Check 

BISAM Non-Privileged Macro-Time 

Read/Write 

BISAM Privileged Macro-Time Read/Write 

7770-3 Channel/Abnormal End Appendage 

OSAM Basic Interface Module (DFSVC400) 

OSAM Open/Close/EOV (DFSAOSA0) 

OSAM Open (DFSAOSB0) 

OSAM Open/EOV (DFSAOSC0) 

OSAM Open/Close/EOV (DFSAOSD0) 



The last two characters of module IGG019Z9 (OSAM channel end 
appendage) and module IGG019Z8 (7770-3 channel/abnormal end appendage) 
are determined by the IMS/360 user during system definition. 
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OPERATING S YST EM RESIDENT ROUTINES 

The procedure for placing loaded modules into the RAM or link pack 
area, and building the required parameter library lists, varies with 
the type of system, MFT, M7T, VS1, or VS2. This information can be 
found in the Resident Routine Options section in the following SRLs: 

MFT Guide (GC27-6939) 

MVT Guide (GC28-6720) 

VS1 Planning and Use Guide (GC24-5090) 

VS2 Planning and Use Guide (GC28-0600) 

SYSTEM DEFINITION STAGE J. OUTPUT WARNINGS 

The following machine listing is an output example 
from Stage 1 of IMS/360 system definition. 

This listing informs the IMS/360 system user of actions which 
must be performed prior to IMS/360 system execution. 
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SYSTEM DEFINITION - ALL FUNCTIONS 

• Batch and Teleprocessing 

• 1030 Line Groups 

• LTERM Edit 

• Terminal Conversation Feature (Disk SPAs) 

• Cataloged Procedures 



33 

34 
35 
36 
37 

38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
81 
34 
85 
36 
37 

88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 



****************************************************** 
****************************************************** 

** ** 

** SUCCESSFUL IMS/360 SYSTEM DEFINITION ** 

** FOR ALL FUNCTIONS. ** 

BEFORE STAGE II EXECUTION 

THE FOLLOWING IMS/360 DATA SETS MUST BE ALLO- 
CATED AND CATALOGED BEFORE ATTEMPTING TO EXECUTE 
THE GENERATED STAGE II JOB STREAM: 

IMS2.LOAD IMS2.GENLIB IMS2.RESLIB 

IMS2.MACLIB 

IMS2.0BJDSET USER.PDS.L IBRARY 

OTHER REQUIRED DATA SETS MUST BE ALLOCATED 
AND CATALOGED PRIOR TO EXECUTION OF THE IMS/360 
CONTROL PROGRAM. 

SPECIFIED USER SUPPLIED MODULES MUST RESIDE 
IN USER. PDS. LIBRARY REFORE EXECUTION OF THE 
CUNTROL BLOCK LINK EDIT STEP OF STAGE II. 

1030 LINE GROUPS REQUIRE LOAD MEMBER NAMED 
(DFS1O300) AND MUST RESIDE IN USER .PDS .L IBRARY 
BEFORE EXECUTION OF THE CONTROL BLOCK LINK EDIT 
STEP OF STAGE II. 

REQUESTED LTERM EDIT FUNCTION REQUIRES LOAD 
MEMBER NAMED (OFSCNTEO) RESIDE IN USER .PDS. LI BRARY 
BEFORE EXECUTION OF THE CONTROL BLOCK LINK EDIT 
STEP OF STAGE II. 



BEFORE SYSTEM EXECUTION 

THE FOLLOWING FUNCTIONS MUST BE COMPLETED 
BfcFURE SUCCESSFUL EXECUTION OF THE IMS/360 CONTROL 
PROGRAM CAN BE ACHIEVED: 

THE REQUIRED TYPE 4 SVC AND APPENDAGE MODULES 

MUST BE PLACED IN SYS1 .SVCLIB (MFT.MVT AND VS1) OR SYS1.LPALIB(VS2). 

THE RESIDENT SVC INTERFACE MODULES MUST BE LINK 
EDITED WITH THE OS/360 NUCLEUS. THESE MODULES ARE 
PLACED IN IMS2.RESLIB BY THE STAGE ll JOB STREAMt 
AND ARE NAMED IGC253 AND IGC254. 

THE LOAD MEMBER DFSRRCOO MUST BE ADDED TO THE 
•PRIVILIoED PROGRAM NAME LIST* MEMBER ( IFbVLNKT) 
IN SYS1.LINKLIB. 

THE IMS2.RESLIB DATASET MUST BE CONCATENATED WITH 
SYS1.LINKLI3 BY ADDING THE NAME • IMS2.RESLIB • TO 
THE LNKLSTOO MEMBER OF SYS1 .PARML IB'. 



THE TERMINAL CONVERSATION FEATURE REQUIRFS THE 
IMS2.SPA DATA SET BE ALLOCATED AND CATALOGED! 
WITH SPACE SPECIFICATION - SPACE=(150, 22) . 

REFER TO THE IMS/360 SYSTEM PROGRAMMING 
REFERENCE MANUAL FOR INSTRUCTIONS AND ASSIST- 
ANCE IN PERFORMING THESE AND OTHER REQUIRED 
FUNCTIONS BEFORE SYSTEM EXECUTION. 



** 

** 



***** ************************************************* 
****************************************************** 
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SYSTE M DEFINITION - NUCLE US GENERATION 

• Terminal Conversation Feature (Disk SPAs) 



104 
105 
106 
107 
108 
109 
110 

111 

112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 



♦♦a*************************************************** 
***#**«*$********************************************* 
** ** 

** SUCCESSFUL IMS/36C SYSTEM DEFINITION ** 
** FOR NUCLEUS FUNCTION. ** 

BEFORE STAGF II EXECUTION 

THE FOLLOWING IMS/360 DATA SETS MUST BE ALLO- 
CATED AND CATALOGED BEFORE ATTEMPT I NG TO EXECUTE 
THE GENERATED STAGE II JOB STREAM: 

IMS2.LGAD IMS?.GENLIB IMS2.RESLIB 

IMS2.MACLI3 IMS2. PRGCLIB 

IMS2.0* IDSET USER.PDS.L IBRARY 

OTHER REQUIRED DATA SETS MUST BE ALLOCATEO 
AND CATALOGED .PRIOR TO EXECUTION OF THE IMS/360 
CONTROL PROGRAM. 

SPECIFIEO USER SUPPLIED MODULES MUST RESIDE 
IN USER. PDS. LIBRARY BEFORE EXECUTION OF THE 
CONTROL BLOCK LINK EDIT STEP OF STAGE II. 



BEFORE SYSTEM EXECUTION T 

THE FOLLOWING FUNCTIONS MUST BE COMPLETED 
BEFORE SUCCESSFUL EXECUTION OF THE IMS/360 CONTROL 
PROGRAM CAN BE ACHIEVED: 

NUCLEUS GENERATION ASSUMES SPECIFIED OS/360 SVC, 
SYS1.LINKLI8, AND SYS1.PARMLIB INTERFACES ARE 
CONSISTENT WITH SPECIFIED VALUES. 

THE TERMINAL CONVERSATION FEATURE REQUIRES THE 
IMS2.SPA DATA SET BE ALLOCATED AND CATALOGED, 
WITH SPACE SPECIFICATION - SPACE= (200, 39 ) . 

THE CATALOGED PROCEDURE 'IMS' MUST BE UPDATED 
TO INCLUDE DD STATEMENTS FOR ON-LINE OATABASES 
AND PLACED IN SYSi.PROCLIB BEFORE THIS PROCEDURE 
CAN BE SUCCESSFULLY EXECUTED. 

THE CATALOGED PROCEDURE MMSRDR' MUST BE PLACED 
IN SYSI.PROCLIB BEFORE ANY OTHER IMS GENERATED 
PROCEDURE CAN BE SUCCESSFULLY EXECUTED. 

REFER TO THE IMS/360 SYSTEM PROGRAMMING 
REFERENCE MANUAL FOR INSTRUCTIONS AND ASSIST- 
ANCE IN PERFORMING THESE AND OTHER REQUIRED 
FUNCTIONS BEFORE SYSTEM EXECUTION. 
**. ** 

** ** 

***************#**** * ******* ************************** 
*********#*#***********«*********«******************** 
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SYSTEM DEFINITION - ALL FUNCTIONS EXCEPT TERMINAL CONVERSATION FEATURE 



162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
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212 
213 
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** ** 

** SUCCESSFUL IMS/360 SYSTEM DEFINITION ** 
** FOR ALL FUNCTIONS. ** 

BEFORE STAGE II EXECUTION 

THE FOLLOWING IMS/360 DATA SETS MUST BE ALLO- 
CATED AND CATALOGED BEFORE ATTEMPTING TO EXECUTE 
THE GENERATED STAGE II JOB STREAM: 

IMS2.L0AD IMS2.GENLIB IMS2.RESLIB 

IMS2.MACLIB 

IMS2.0BJDSET USER. PDS.L IBRARY 

OTHER REQUIRED DATA SETS MUST BE ALLOCATED 
AND CATALOGED PRIOR TO EXECUTION OF THE IMS/360 
CONTROL PROGRAM. 

SPECIFIED USER SUPPLIEO MODULES MUST RESIDE 
IN USER. PDS. LIBRARY BEFORE EXECUTION OF THE 
CONTROL BLOCK LINK EDIT STEP OF STAGE II. 

1030 LINE GROUPS REQUIRE LOAD MEMBER NAMED 
(DFS10300) AND MUST RESIDE IN USER. PDS. LI BRARY 
BEFORE EXECUTION OF THE CONTROL BLOCK LINK EDIT 
STEP OF STAGE II. 

REQUESTED LTERM EDIT FUNCTION REQUIRES LOAD 
MEMBER NAMED (DFSCNTEO) RESIDE IN USER. PDS. LI BRARY 
BEFORE EXECUTION OF THE CONTROL BLOCK LINK EDIT 
STEP OF STAGE II. 



BEFORE SYSTEM EXECUTION 

THE FOLLOWING FUNCTIONS MUST BE COMPLETED 
BEFORE SUCCESSFUL EXECUTION OF THE IMS/360 CONTROL 

PROGRAM CAN BE ACHIEVED: 

THE REQUIRED TYPE 4 SVC AND APPENDAGE MODULES 

MUST BE PLACED IN SYS1 .SVCL IB (MFT.MVT AND VS1) OR SYS1.LPALIB(VS2). 

THE RESIDENT SVC INTERFACE MODULES MUST BE LINK 
EDITED WITH THE OS/360 NUCLEUS. THESE MODULES ARE 
PLACED IN IMS2.RESLIB BY THE STAGE II JOB STREAM, 
AND ARE NAMED IGC253 AND IGC254. 

THE LOAD MEMBER OFSRRCOO MUST BE ADDED TO THE 
•PRIVILEGED PROGRAM NAME LIST* MEMBER ( IEEVLNKT) 
IN SYS1.LINKLIB. 

THE IMS2.RESLIB DATASET MUST BE CONCATENATED WITH 
SYS1.LINKLIB BY ADDING THE NAME • IMS2 .RESL IB • TO 
THE LNKLSTOO MEMBER OF SYS1.PARMLIB. 

REFER TO THE IMS/360 SYSTEM PROGRAMMING 
REFERENCE MANUAL FOR INSTRUCTIONS AND ASSIST- 
ANCE IN PERFORMING THESE AND OTHER REQUIRED 
FUNCTIONS BEFORE SYSTEM EXECUTION. 
** #* 

** *# 
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Si!**************-*************:************************* 
** ** 

** SUCCESSFUL IMS/360 SYSTEM DEFINITION ** 
** FOK CTLBLKS FUNCTION. ** 

- — BEFORF STAGE II EXECUTION 

THE FOLLOWING IMS/360 DATA SETS MUST BE ALLO- 
CATED AND CATALOGFD BEFORE ATTEMPT ING TO EXECUTE 
THE GENERATED STAGE II JOB STREAM: 

IMS2.L0AD IMS2.GENLIB IMS2.RESLIB 

IMS2.0BJ0SET USER.PDS .L IBRARY 

OTHER REQUIRED DATA SETS MUST BE ALLOCATED 
AND CATALOGED PRIOR TO EXECUTION OF THE IMS/360 
CONTROL PROGRAM. 

SPECIFIED USER SUPPLIED MODULES MUST RESIDE 
IN USER.PDS. LIBRARY BEFORE EXECUTION OF THE 
CONTROL BLOCK LINK EDIT STEP OF STAGE II. 



BEFORE SYSTEM EXECUTION — — 

THE FOLLOWING FUNCTIONS MUST BE COMPLETED 
BEFORE SUCCESSFUL EXECUTION OF THE IMS/360 CONTROL 
PROGRAM CAN BE ACHIEVED: 

CTLBLKS GENERATION ASSUMES SPECIFIED OS/360 SVC, 
SYSl.LINKLIBt AND SYS1 .PARMLI B INTERFACES ARE 
CONSISTENT WITH SPECIFIED VALUES. 

REFER TO THE IMS/360 SYSTEM PROGRAMMING 
REFERENCE MANUAL FOR INSTRUCTIONS AND ASSIST- 
ANCE IN PERFORMING THESE AND OTHER REQUIRED 
FUNCTIONS BEFORE SYSTEM EXECUTION. 
** ** 

** ** 

**************************************************** 
****************************************************** 
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*** * ** ********** *** *** ********* ***** ******* *********** 
****************************************************** 
** ** 

** SUCCESSFUL IMS/360 SYSTEM DEFINITION ** 

** FOR BATCH FUNCTION. ** 

BEFORE STAGE II EXECUTION 

THE FOLLOWING IMS/360 DATA SETS MUST BE ALLO- 
CATED AND CATALOGED BEFORE ATTEMPTING TO EXECUTE 
THE GENERATED STAGE II JOB STREAM: 

IMS2.LOAD IMS2.GENLIB IMS2.RESLIB 

IMS2.MACLIB 

IM52.0BJDSET USER. PDS. LIBRARY 

GTHER REQUIRED DATA SETS MUST BE ALLOCATED 
AND CATALOGED PRIOR TO EXECUTION OF THE IMS/360 
CONTROL PROGRAM. 



BEFORE SYSTEM EXECUTION 

THE FOLLOWING FUNCTIONS MUST BE COMPLETED 
BEFORE SUCCESSFUL EXECUTION OF THE IMS/360 CONTROL 
PROGRAM CAN BE ACHIEVED: 

THE REQUIRED TYPE 4 SVC AND APPENDAGE MODULES 

MUST BE PLACED IN SYS1. SVCLIB (MFT.MVT AND VS1) OR SYS1.LPALIB(VS2). 

THE LOAD MEMBER DFSRRCOO MUST BE AODED TO THE 
•PRIVILEGED PROGRAM NAME LIST* MEMBER ( IEEVLNKT) 
IN SYS1.LINKLIB. 

THE IMS2.RESLIB DATASET MUST BE CONCATENATED WITH 
SYS1.LINKLIB BY ADDING THE NAME • IMS2 .RESL IB 1 TO 
THE LNKLSTOO MEMBER OF SYS1. PARMLIB. 

REFER TO THE IMS/360 SYSTEM PROGRAMMING 
REFERENCE MANUAL FOR INSTRUCTIONS AND ASSIST- 
ANCE IN PERFORMING THESE AND OTHER REQUIRED 
FUNCTIONS BEFORE SYSTEM EXECUTION. 
** ** 

** ** 

****************************************************** 
****************************************************** 
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SYSTEM PROCEDURES 



If PROCLIB=YES is specified o 
suggested in the Stage I input o 
procedures are created and place 
procedures should be examined ca 
JCL has been correctly generated 
all applications, but can be use 
account oriented procedures. If 
defined, particular attention sh 
allocation generated within the 
addresses and logical and physic 
IMS/360 system definition which 
correct terminal allocation. De 
defined, the procedures which ma 



n the IMSGEN macro-instruction as is 
f IMS/360 system definition, certain 
d in IMS2.PR0CLIB. The created 
refully to determine if the desired 

These procedures may not apply to 
d as guidelines for user generated 
an online IMS/360 system has been 
ould be devoted to the terminal device 
IMS procedure. A list of terminal 
al terminals is printed by Stage I of 
should be helpful in checking for 
pendent upon the type of system being 
y be created are as follows: 



PROCEDURE LIBRARY 



Member Name 
ACBGEN 



Desc rip tion 

A one-step execution procedure for 
ACBLIB maintenance 



DBBBATCH 



DBDGEN 



DLIBATCH 



A one-step execution procedure for a 
stand-alone Data Language/I batch 
processing region using IMS2. ACBLIB 

A two-step assemble and link edit 
procedure to produce data base definition 
blocks (DBDs) 

A one-step execution procedure for a 
stand-alone Data Language/I batch 
processing region using PSB and DBD 
libraries 



FMTINIT 



A six-step job used to initialize the 
Format Utility data bases, setup the 
required PSBs and DBDs, and load the 
default blocks 



FMTUTL 



FMTSRVC 



A four-step execution procedure for 
defining message and format descriptions 
to the Format Utility program 

A one-step execution procedure for 
maintaining the message format data 
bases 



IMS 



IMSBATCH 



IMSCOBGO 



IMSCOBOL 



Execution of IMS/360 online control 
region 

Execution of IMS/360 online batch message 
processing region 

A three-step compile, link edit, and 
go procedure combining the procedure 
IMSCOBOL with an execution step for a 
stand-alone Data Language/I batch 
processing region 

A two-step compile and link edit 
procedure for IMS/360 applications 
written in COBOL 
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IMSMSG Execution of IMS/360 message processing 

region 



3.96.1 



Member Name 



Description 



IMSPLI 



IMSPLIGO 



IMSRDR 



IHSWTnnn 



HFDBDUMP 



A two-step compile and link edit 
procedure for IMS/360 applications 
written in PL/I 

A three-step compile, link edit, and 
go procedure combining the procedure 
IMSPLI with an execution step for a 
stand-alone Data Language/I batch 
processing region 

DASD reader procedure to read IMSMSG 
procedure into the operating system 
job stream from direct access devices 

These are procedures to print datasets 
created by the SPOOL SYSOUT options. 

This is a procedure to dump the sample 
problem data base onto a SYSOUT data 
set. 



MFDBLOAD 



PSBGEN 



SECURITY 



IQFUT 



A Data Language/I batch execution 
procedure used to load the sample problem 
data base. Input data for the data 
base procedure is contained in the 
MFDFSYSN member of IMS2.MACLIB if the 
user specified MACLIB=ALL on the IMSGEN 
statement of his system definition. 
If MACLIB=ALL was not specified. Stage 

I of IMS/360 system definition did not 
produce the necessary IEBCOPY control 
cards to place member MFDFSYSN into 
MACLIB, and this procedure is not usable 
as generated. 

A two-step assemble and link edit 
procedure to produce program 
specification blocks (PSBs) 

A three-step execution, assembly, and 
link edit procedure for terminal and 
password security which invokes the 
security maintenance program 

This is a procedure for executing the 
Interactive Query Facility (IQF) Utility 
system. An EXEC statement to invoke 
the procedure is included in the Stage 

II OS job stream by the IQF module 
DMGSI1 (Part 1 of IQF Stage I) . After 
system definition, this procedure is 
contained in IMS2. PROCLIB. 



IQFFC 



This procedure causes execution of the 
IQF System Data Base (Field File) 
Creation Utility program during the 
Stage II OS job stream created by 
IQF Stage I. An EXEC statement to 
invoke the procedure is included in 
the job stream by the DMGSI1 module. 
After system definition, this procedure 
is contained in the IMS2.PR0CLIB. 
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IQFIU This procedure causes execution of the 

IQF Index Creation/Update Utility program 
during the Stage II OS job stream 
created by Stage I. An EXEC statement 
to invoke the procedure is included 
in the job stream by the IQF DMGSI2 
module (Part 2 of IQF Stage I) . After 
system definition, this procedure is 
contained in IMS2. PROCLIB. 

In addition to the procedures placed in IMS2. PROCLIB, the following 
Data Language/I interfaces are also generated: 

CBLTDLI Control cards necessary to establish 

a COBOL to Dl/I interface 

PLITDLI Control cards necessary to establish 

a PL/I to DL/I interface 



Note that the generated procedures accommodate either MVT, MFT, 
VS1, or VS2 configurations of the operating system. 

All procedures should be placed into IMS2. PROCLIB except for the 
IMS and IMSRDR procedures. These two procedures should be placed into 
SYS 1. PROCLIB. 

EXECUTING JOBS USING PROCEDURES FROM IMS2. PROCLIB 

The operating system reader/interpreter reguires that the reader 
procedure used to enter jobs into the operating system job stream 
contain allocation to the procedure library containing the procedures 
used by those jobs. The procedure library is defined on the reader 
procedure's IEFPDSI DD statement. IMS/360 system definition provides 
a reader procedure called IMSRDR which satisfies these reguirements. 
This procedure is used as generated to start message regions for the 
online System. If entered from the operating system operator's console 
using the start command (that is, S IMSRDR) , it will cause a message 
processing region to be started; however, if S IMSRDR, DDD (where DDD 
is the device address of the card reader) is entered, it will read 
jobs into the operating system job stream from that card reader, 
allowing those jobs to use procedures from the IMS2. PROCLIB data set. 
S IMSRDR, DDD will not work unless a DCB BLKSIZE is included with the 
start command 

S IMSRDR, DDD, DCB=BLKSIZE=80 



MEMBER NAME ACBGEN 



// 


PROC 


//G 


EXEC 


//SYSPRINT 


DD 


//IMS 


DD 


// 


DD 


//IMSACB 


DD 


//SYSUT3 


DD 


//SYSUT4 


DD 


//COMPCTL 


DD 



SOUT=A , COMP=, RGN= 1 00K 

PGM=DFSRRC00,PARM=»UPB,&COMP«,REGION=SRGN 

SYSOUT=SSOUT 

DSN=IMS2.PSBLIB,DISP=SHR 

DSN=IMS2.DBDLIB,DISP=SHR 

DSN=IMS2. ACBLIB,DISP=OLD 

UNIT=SYSDA,SPACE=(80, (100,100)) 

UNIT=SYSDA,SPACE=(256, (100,100)) , DCB=KEYLEN=8 

DSN=IMS2. PROCLIB (DFSACBCP) ,DISP=SHR 



EXEC CARD PARAMETERS FOR THE ACBGEN PROCEDURE 
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SOUT= 

is the SYSOOT class - Default •A*. 

COMP= 

•PRECOMP,POSTCOMP , in any combination to cause the required 
inplace compression. Default is none. 



RGN= 



the region size for this execu-cion. Default is 100K. 



MEMBER NAME DBBBATCH 



// 


PROC 


//G 


EXEC 


// 




//STEPLIB 


DD 


// 


DD 


//IMSACB 


DD 


//IEFRDER 


DD 


// 




//SYSUDUMP 


DD 


// 




Assumes 





MBR=TEMPNAME,SOUT=A,PSB=,BUF=8,SPIE=0,TEST=0 

PGM=DFSRRC00,REGION=130K, 

PARM='DBB,&MBR,&PSB,&BUF,&SPIE&TEST' 

DSN=IMS2.RESLIB,DISP=SHR 

DSN=IMS2.PGMLIB,DISP=SHR 

DSN=IMS2.ACBLIB,DISP=SHR 

DSN=IMSLOG,DISP=(,KEEP) ,VOL=(,,,99) ,UNIT= (2400 , , DEFER) , 

DCB=(RECFM=VBS,BLKSIZE=1408,LRECL=1400,BUFNO=1) 

SYSODT=&SOUT,DCB= (RECFM=FBA r LRECL=121 # BLKSIZE=605) r 

SPACE= (605, (500,500) ,RLSE, , ROUND) 



1. User adds DD statements for data sets representing 
data bases. 



Not e: Symbolic parameters are the same as for 
DLIBATCH. 



MEMBER NAME DBDGEN 



// 


PROC 


//c 


EXEC 


//SYSLIB 


DD 


//SYSGO 


DD 


// 




//SYSPRINT 


DD 


// 




//SYSUT1 


DD 


//SYSUT2 


DD 


//SYSUT3 


DD 


// 




//L 


EXEC 


//STEPLIB 


DD 


//SYSLIN 


DD 


//SYSPRINT 


DD 


// 




//SYSLMOD 


DD 


//SYSUT1 


DD 


// 





MBR=TEMPNAME, SOUT=A 

PGM=IEUASM,REGION=120K,PARM=«LOAD,NODECK« 

DSN=IMS2.MACLIB,DISP=SHR 

UNIT=SYSDA,DISP= (,PASS) ,SPACE= (80, (100, 100) ,RLSE) , 

DCB=(BLKSIZE=400,RECFM=FB,LRECL=80) 

SYSOUT=SSOUT,DCB=(LRECL=121,RECFM=FBM,BLKSIZE=605) , 

SPACE= (121, (500,500) , RLSE, , ROUND) 

UNIT=SYSDA,DISP= (, DELETE) ,SPACE= (1700, (100,50) ) ' 

UNIT=SYSDA,DISP=(, DELETE) , SPACE= ( 1700, (100,50)) 

UNIT=(SYSDA,SEP=(SYSLIB,SYSUT1,SYSUT2)) , 

SPACE=(1700, (100,50)) 

PGM=DFSILNK0,PARM='XREF,LIST«,COND=(0,LT,C) ,REGION=120K 

DSN=IMS2.RESLIB,DISP=SHR 

DSN=*. C. SYSGO , DISP= (OLD, DELETE) 

SYSOUT=&SOUT, DCB=(LRECL=121,RECFM=FBA,BLKSIZE=605) , 

SPACE= (121, (100, 100) ,RLSE) 

DSN=IMS2.DBDLIB(&MBR) ,DISP=SHR 

UNIT=(SYSDA,SEP= (SYSLMOD, SYSLIN)) ,DISP= (, DELETE) , 

SPACE= (1024, (100, 10) , RLSE) 
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// 


PROC 


//G 


EXEC 


// 




//STEPLIB 


DD 


// 


DD 


//IMS 


DD 


// 


DD 


//IEFRDER 


DD 



MEMBER NAME DLIBATCH 

MBR=TEMPNAME,SOUT=A,PSB=,BUF=8,SPIE=0,TEST=0 

PGM=DFSRRC00,REGION=130K, 

PARM^DLIj&MBR^PSB^BUF^SPIE&TEST* 

DSN=IMS2. RESLIB,DISP=SHR 

DSN=IMS2.PGMLIB,DISP=SHR 

DSN=IMS2.PSBLIB,DISP=SHR 

DSN=IMS2.DBDLIB,DISP=SHR 

DSN=IMSLOG,DISP= (,KEEP) ,VOL=(,,,99) , UNIT= (2400 , DEFER) , 
// DCB= (RECFM=VBS,BLKSIZE=1408,RECL=1400,BUFNO=1) 

//SYSUDUMP DD SYSOUT=&SOUT, DCB= (RECFM=FBA, LRECL=12 1 ,BLKSIZE=605) , 
// SPACE=(605, (500,500) , RLSE, , ROUND) 

Assu mes 

1. User adds DD statements for data sets representing DL/I data 
bases. 

EXEC CARD PARAMETERS FOR THE DLIBATCH PROCEDURE 
MBR= 

is an application program name. 



PSB= 



BUF= 



SPIE= 



TEST= 



is an optional parameter specifying a PSB name when the PSB 
name and application program name are different. 



specifies the data base buffer size. If not present, the default 
size specified at system definition will be used. Buffer size 
is specified in IK multiples. Values may range from 1 through 
999. 



SPIE option: 

0= allow user SPIE, if any, to remain in effect while processing 
the application program call. 

1= negate the user's SPIE while processing the application 
program call. Negated SPIEs are reinstated before returning 
to the application program. 



validity check option 

0= no validity checking 

1= validity check the addresses in the user's call list. 
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MEMBER NAME FMTINIT 



//IMSFMT JOB 
//STEP1 EXEC 

// 

//SYSPRINT DD 

// 

//LOAD DD 
//SYSLMOD DD 
//SYSUT1 DD 
//SYSLIN DD 

INCLUDE LOAD 
NAME DFSUTS10 
INCLUDE LOAD 
NAME DFSUTS20 
//STEP2 EXEC 

// 

//SYSPRINT DD 

// 

//LOAD DD 
//SYSLMOD DD 
//SYSUT1 DD 
//SYSLIN DD 

INCLUDE LOAD 
NAME DFSUTS30 
INCLUDE LOAD 
NAME DFSUTS40 
INCLUDE LOAD 
NAME DFSUTS50 
INCLUDE LOAD 
NAME DFSUTS60 
//STEP3 EXEC 
//SYSPRINT DD 



//SYSUT1 
//SYSUT2 
//SYSUT3 
//SYSUT4 
//SYSIN 



DD 
DD 
DD 
DD 
DD 



COPY OUTDD=SY 

SELECT MEMBER 

SELECT MEMBER 

SELECT MEMBER 

SELECT MEMBER 

SELECT MEMBER 

SELECT MEMBER 

SELECT MEMBER 

SELECT MEMBER 

SELECT MEMBER 

SELECT MEMBER 

//STEP4 EXEC 

// 

//IMS DD 

// DD 

//MSGINDX DD 
//MSGINDXO DD 

//MSGDB DD 

//FMTINDX DD 
//FMTINDXO DD 

//FMTDB DD 
//SYSPRINT DD 

//SYSIN DD 

//STEP5 EXEC 

// 

//IMS DD 



1,IMS,MSGLEVEL=1 
PGM=IEWL,REGION=130K, 
PARM=«XREF, LIST, LET, NCAL,DCBS« 

SYSOUT=A,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=605) , 
SPACE=(605, (10,10) f RLSE,, ROUND) 
DSN=IMS2.LOAD,DISP=SHR 
DSN=IMS2.DBDLIB,DISP=OLD 
UNIT=SYSDA,SPACE=(CYL, (5,1)) 
* 
(DFSUTS10) 

(R) 

(DFSUTS20) 

(R) 

PGM=IEWL,REGION=130K, 

PARM=' XREF, LIST, LET, NCAL,DCBS' 

SYSOUT=A,DCB= (RECFM=FBA,LRECL=1 21 , BLKSIZE=605) , 

SPACE=(605, (10, 10) , RLSE,, ROUND) 

DSN=IMS2.LOAD,DISP=SHR 

DSN=IMS2.DBDLIB,DISP=OLD 

UNIT=SYSDA,SPACE=(CYL, (5,1)) 

* 

(DFSUTS30) 

(R) 

(DFSUTS40) 

(R) 

(DFSUTS50) 

(R) 

(DFSUTS60) 
(R) 

PGM=IEBCOPY 

SYSOUT=A 

DSN=IMS2. LOAD,DISP=SHR 

DSN=IMS2. REFERAL,DISP=SHR 

UNIT=SYSDA,SPACE=(80, (10,20)) 

UNIT=SYSDA,SPACE=(256, (2,4)) 

* 

SUT2,INDD= ( (SYSUT1 ,R) ) 

=DFSMI1 

=DFSMI2 

=DFSMI4 

=DFSM01 

=DFSM02 

=DFSM03 

=DFSM04 

=DFSDF1 

=DFSDF2 

=DFSDF4 

PGM=DFSRRC00,REGION=200K, 

PARM= , DLI,DFSUTS00,DFSUTS10,4,00' 

DSN=IMS2.PSBLIB,DISP=SHR 

DSN=IMS2.DBDLIB,DISP=SHR 

DSN=IMS2. MSGINDX, DISP=OLD 

DSN=IMS2. MSGINDXO, DISP=OLD 

DSN=IMS2. MESSAGES, DISP=OLD 

DSN=IMS2. FMTINDX, DISP=OLD 

DSN= IMS 2. FMTINDXO, DISP=OLD 

DSN=IMS2. FORMATS, DISP=OLD 

SYSOUT=A,DCB=BLKSIZE=80 

DSN=IMS2.GENLIB(DFSUTS70) ,DISP=SHR 

PGM=DFSRRC00,REGION=250K, 

PARM= , DLI,DFSUNU20,DFSUTS20,4,00' 

DSN=IMS2.PSBLIB,DISP=SHR 
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// 


DD 


//IEFRDER 


DD 


// 




//DFSLOGTT 


DD 


//SYSUDUMP 


DD 


//SYSPRINT 


DD 


//UTPRINT 


DD 


//SYSTEXT 


DD 


//REFER AL 


DD 


//MSGINDX 


DD 


//MSGINDXO 


DD 


//MSGDB 


DD 


//FMTINDX 


DD 


//FMTINDXO 


DD 


//FMTDB 


DD 


//SEQBLKS 


DD 


// 




//STEP 6 


EXEC 


//SEQBLKS 


DD 


//SYSPEINT 


DD 


//UTPRINT 


DD 


//SYSUDUMP 


DD 


//FORMAT 


DD 


//DUMMY 


DD 



DSN=IMS2.DBDLIB f DISP=SHR 

DSN=&&IMSLOG r DISP=( r PASS) , 

UNIT=SYSDA,SPACE=(CYL, (1, 1)) , DCB=DSORG=PS 

DSN=IMS2.LOGT,DISP=SHR 

SYSOUT=A 

SYSOUT=A,DCB= (RECFM=FA,LRECL= 133 r BLKSIZE= 133) 

SYSOUT=A 

DSN=IMS2.GENLIB (DFSUTS90) ,DISP=SHR 

DSN=IMS2. REFERAL,DISP=SHR 

DSN=IMS2. MSGINDX, DISP=OLD 

DSN=IMS2. MSGINDXO / DISP=OLD 

DSN=IMS2. MESSAGES, DISP=OLD 

DSN=IMS2. FMTINDX, DISP=OLD 

DSN=IMS2. FMTINDXO, DISP=OLD 

DSN=IMS2. FORMATS, DISP=OLD 

DSN=&&BLKS,DISP= (NEW, PASS) , 

UNIT=SYSDA,SPACE=(CYL, (1, 1) ) 

PGM=DFS(JNU30,REGION=200K 

DSN=SSBLKS,DISP= (OLD, DELETE) 

SYSOUT=A 

SYSOUT=A 

SYSOUT=A 

DSN=IMS2.FORMAT,DISP=OLD 

DUMMY, DCB=BLKSIZE=80 



Note: STEP4 PROGRAM, DFSUTSOO, may create a S03B abend as part of its 
normal operation. To ensure transparency to the user, no 
SYSUDUMP or SYSABEND DD card has been supplied for this step 
of the procedure. If the user elects to supply a dump DD card 
for this step, the S03B abend should be ignored. For further 
information, refer to the description of MODULE DFSUTSOO in the 
IMS/360 SYSTEM MANUAL VOLUME I. 
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MEMBER NAME FMTUTL 



// 


PROC 


// 




//PREPROC 


EXC 


//SYSPRINT 


DD 


//SYSPONCH 


DD 


// 




//SYSLIB 


DD 


// 


DD 


//SYSUT1 


DD 


//SYSUT2 


DD 


//SYSOT3 


DD 


//SYSIN 


DD 


//PHASE1 


EXEC 


// 




//SYSPRINT 


DD 


//SYSODUMP 


DD 


//UTPRINT 


DD 


//SYSLIN 


DD 


//SYSLMOD 


DD 


//DUMMY 


DD 


//SYSDT1 


DD 


//SYSTEXT 


DD 


// 




//SYSIN 


DD 


//PHASE3 


EXEC 


// 




//IMS 


DD 


// 


DD 


//IEFRDER 


DD 


// 




//DFSLOGTT 


DD 


//SYSUDUMP 


DD 


//SYSPRINT 


DD 


//UTPRINT 


DD 


//SYSTEXT 


DD 


//REFER AL 


DD 


//SEQBLKS 


DD 


// 




//FMTINDX 


DD 


//FMTINDXO 


DD 


//FMTDB 


DD 


//MSGINDX 


DD 


//MSGINDXO 


DD 


//MSGDB 


DD 


//PHASEU 


EXEC 


//SEQBLKS 


DD 


//SYSPRINT 


DD 


//UTPRINT 


DD 


//FORMAT 


DD 


//SYSUDUMP 


DD 


//DUMMY 


DD 



SNODE=IMS2,SOR=NOLIB, MBR=NOMBR,MNODE=IMS2, MAC=GENLIB, 

RGN=250K,BUF=4,SPIE=0,TEST=0, SOUT=A 

PGM=IEUASM,PARM=« NOLOAD,DECK' ,REGION=100K 

SYSOUT=&SOUT 

DSN=&&ITBPASS,DISP= (NEW, PASS) ,SPACE=(CYL, (1,1)) , 

UNIT=SYSDA 

DSN=&MNODE. . &MAC, DISP=SHR 

DSN=SYS1.MACLIB,DISP=SHR 

UNIT=SYSDA,SPACE=(CYL, (1,1)) 

UNIT=SYSDA,SPACE=(CYL, (1,1)) 

UNIT=SYSDA,SPACE=(CYL, (1,1)) 

DSN=&SNODE. ,&SOR(&MBR) ,DISP=SHR 

PGM=DFSUNU10,COND= (8, LE, PREPROC) , 

PARM=« COMPRESS' ,REGION=SRGN 

SYSOUT=&SOUT 

SYSOUT=&SOUT 

SYSOUT=&SOUT 

UNIT=SYSDA,SPACE=(CYL, (1,1)) , DCB=BLKSIZE=80 

DSN=IMS2. REFERAL,DISP=OLD 

DUMMY, DCB=BLKSIZE=80 

UNIT=SYSDA, SPACE= (CYL, (1,1)) 

DSN=&&TXTPASS,DISP= (NEW, PASS) ,UNIT=SYSDA, 

SPACE=(CYL, (1,1)) ,DCB=BLKSIZE=80 

DSN=&&ITBPASS,DISP= (OLD, DELETE) 

PGM=DFSRRC00,COND= (4, LE, PHASE 1) , REGION=&RGN, 

PARM="DLI,DFSUNU20,DFSUTS20,&BUF f &SPIE&TEST' 

DSN=IMS2. PSBLIB,DISP=SHR 

DSN=IMS2.DBDLIB,DISP=SHR 

DSN=&&IMSLOG,DISP=(,PASS) ,UNIT=SYSDA, 

SPACE= (CYL, (1, 1) ) ,DCB=DSORG=PS 

DSN=IMS2.LOGT,DISP=SHR 

SYSOUT=&SOUT 

SYSOUT=&SOUT,DCB=(RECFM=FA,LRECL=133,BLKSIZE=133) 

SYSOUT=&SOUT 

DSN=&&TEXTPASS,DISP= (OLD, DELETE) 

DSN=IMS2.REFERAL,DISP=SHR 

DSN=&&BLKS,DISP= (NEW, PASS) ,UNIT=SYSDA, 

SPACE=(CYL, (2,2)) 

DSN=IMS2. FMTINDX, DISP=OLD 

DSN=IMS2. FMTINDXO, DISP=OLD 

DSN=IMS2. FORMATS, DISP=OLD 

DSN=IMS2. MSGINDX, DISP=OLD 

DSN=IMS2. MSGINDXO, SIDP=OLD 

DSN=IMS2. MESSAGES, DISP=OLD 

PGM=DFSUNU30,REGION=&RGN,PARM=« COMPRESS 1 

DSN=&&BLKS,DISP= (OLD, DELETE) 

SYSOUT=&SOUT 

SYSOUT-&SOUT 

DSN=IMS2.FORMAT,DISP=OLD 

SYSOUT=&SOUT 

DUMMY, DCB=BLKSIZE=80 
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EXEC CARD PARAMETERS FOR THE FMTUTL PROCEDURE 

SNODE= 

is the NODE of the PREPROC step SYSIN data set name 

SOR= 

is the remainder of the qualified name of the PREPROC step SYSIN 
data set name 

MBR= is the member name of the PREPROC step SYSIN partitioned data 
set to be used as input 

MNODE= 

is the NODE of the PREPROC step SYSLIB data set 

MAC= 

is the remainder of the qualified name of the PREPROC step 
SYSLIB data set 



RGN= 



BUF= 



SPIE= 



is the value to be specified in the REGION= parameter of the 
EXEC cards for the PHASE1 and PHASE3 steps 



specifies the data base buffer size. Buffer size is specified 
in IK multiples. Values may range form 1 through 999. 



0= allow user SPIE, if any, to remain in effect while processing 
the program call. 

1= negate user SPIE 
TEST= 

validity check option 

0= no validity checking 

1= validity check the addresses in the user's call list 
SODT= 

is class assigned for SYSOUT DD cards 
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MEMBER NAME FMTSRVC 



SOUT=A 

PGM=DFSRRC00,REGION=250K, 

PARM= , DLI,DFSUTSA0,DFSUTS20,4,00' 

DSN=IMS2.PSBLIB,DISP=0LD 

DSN=IMS2.DBDLIB,DISP=0LD 

DSN=8&IMSL0G,UNIT=SYSDA, 

SPACE= (CYL, (1,1)) , DCB = DSORG=PS 

UNIT=SYSDA / SPACE= (TRK r (1) ) 



// PROC 

//FMTSRVC EXEC 

// 

//IMS DD 

// DD 

//IEFRDER DD 

// 

//DFSLOGTT DD 

//* 

//* FORMAT DATA BASE (HIDAM) 

//* 

//FMTINDX DD 
//FMTINDXO DD 
//FMTDB DD 

//* 

//* MESSAGE DATA BASE (HIDAM) 

//* 

//MSGINDX DD 

//MSGINDXO DD 

//MSGDB DD 

//* 

//* PRINT FILES 

//* 

//SYSPRINT DD 

//* 

//SYSSNAP DD 

//* 

//SYSUDUMP DD 

//* 

//* REFERAL LIBRARY 

//* 

//REFERAL DD DSN=IMS2. REFERAL, DISP=OLD 

//* 

//* ON-LINE FORMAT LIBRARY 

//FORMAT DD DSN=IMS2. FORM AT,DISP=OLD 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 



DSN=IMS 2. FMTINDX, DISP=OLD 
DSN=IMS2. FMTINDXO, DISP=OLD 
DSN=IMS2. FORMATS, DISP=OLD 



DSN=IMS2. MSGINDX, DISP=OLD 
DSN=IMS2. MSGINDXO, DISP=OLD 
DSN=IMS2. MESSAGES, DISP=OLD 



SYSOUT=&SOUT 

DCB= (RECFM=VB A, LRECL= 1 37) 

SYSOUT=&SODT 

DCB= (RECFM=VBA,LRECL=125,BLKSIZE=1632) 

SYSOUT=&SOUT 



//SYSIN DD * MUST BE SUPPLIED BY 
USER WITH INPUT CONTROL CARD STREAM 

ALL DISP=OLD SPECIFICATIONS OF THIS 
PROCEDURE ARE REQUIRED ... 



EXEC CARD PARAMETERS FOR FMTSRVC PROCEDURE 



SOUT= 



is class assigned to sysout data sets 
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MEMBER NAME IMS 



// PROC 

// 

//IEFPROC EXEC 

// 

// 

// 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//IEFRDER DD 

// 

//IMSLOGR DD 

// 

//QBLKS DD 

//SHMSG DD 

//LGMSG DD 

//IMSACB DD 

//IMSDILIB DD 

//IMSSPA DD 

//SYSUDUMP DD 

// 

//IMSDBL DD 



RGN=300K, DMBP=000, PSBP=000,DBBP=000,TPDP=000 , WKAP=000, 

S=0,PKEY=1,PTY=254,TEST=1,QCR=000,FBP=000,SOUT=A 

PGM=DFSRRC00,REGION=&RGN, 

PARM=(CTL, 

SPTY8PKEY. O&TEST&S&QCR. &FBP&PSBP&DMBP&DBBP&TPDP. 

000000&WKAP) 



PARM = (AAA,BBBCDEFGGGHHHIIIJJJKKKLLL000000OOO) 

AAA REGION TYPE 

BBB DISPATCHING PRIORITY 

C REGION PROTECT KEY (0=0; 1 = NON ZERO) 

E TEST OPTION 

F CONTROL PROGRAM SUFFIX 

GGG NUMBER OF QUEUE BUFFERS 

HHH FORMAT BUFFER POOL SIZE (IN 1K BLOCKS) 

III PSB POOL SIZE (IN 1K BLOCKS) 

JJJ DMB POOL SIZE (IN 1K BLOCKS) 

KKK DATABASE BUFFER POOL SIZE (IN 1K BLOCKS) 

LLL LINE BUFFER POOL (IN 1K BLOCKS) 

000000 RESERVED PARM AREA 

OOO WORKING STORAGE (IN IK BLOCKS) 

IF SYMBOLIC PARMS ARE NOT SPECIFIED; THE VALUES 
PROVIDED BY SYSTEM DEFINITION ARE USED. 

DSN=IMSLOG,DISP= (,KEEP) ,VOL=(,,,99) , UNIT= (2400, , DEFER) , 

DCB= (RECFM=VBS,BLKSIZE=14 08,LRECL=1400,BUFNO=1) 

DSN=IMSLOG,DISP= (OLD, KEEP) , VOL=SER=000000, 

UNIT=AFF=IEFRDER 

DSN=IMS2. QBLKS, DISP=OLD 

DSN=IMS2. SHMSG, DISP=OLD 

DSN=IMS2. LGMSG, DISP=OLD 

DSN=IMS2.ACBLIB,DISP=SHR 

DSN=IMS2.FORMAT,DISP=OLD * 

DSN=IMS2.SPA,DISP=OLD 

SYSOUT=&SOUT,DCB= (LRECL=125, RECFM = FBA , BLKSIZE=3 129) , 

SPACE= (6050, 300,,, ROUND) 

DSN=IMS2.DBLLOG,DISP=SHR 



M°%.§. I- This procedure can not be entered in the normal OS job 

stream (that is, via a card reader) unless modified as 
described in Chapter 6 of the IMS/36 Operato r's Reference 
Man ual, under "Execution of IMS/360 as a Problem Program". 

It is assumed that the IMS/360 modules are in the IMS2.RESLIB 
data set. The user must add DD statements for the data 
sets representing data bases. 

Note 2: In a VS System, the //IEFPROC EXEC card must indicate that 
real storage is to be used: 

*Note 3: This DD statement must specify DISP=OLD. 



//IEFPROC EXEC 



PGM=DFSRRC00,REGION=&RGN,ADDRSPC=REAL, 
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EXEC CARD PARAMETERS FOR THE IMS PROCEDURE 

RGN = 

size of the OS region to be allocated to the IMS control program. 
This parameter has no effect in an MFT system. 

DMBP= 

number of 1K blocks of subpool to be reserved for the DMB 
pool. (Identified in a core dump as DLDP.) 



PSBP= 



DBBP= 



TPDP= 



WKAP= 



S= 



PKEY= 



PTY= 



TEST= 



QCR= 



number of 1K blocks of subpool to be reserved for the PSB 
pool. (Identified in a core dump as DLMP.) 



number of 1K blocks of subpool to be reserved for the data 
base buffer pool. (Identified in a core dump as DBAS.) 



number of 1K blocks of subpool to be reserved for the 
teleprocessing line buffer pool. (Identified in a core dump 
as I/OP.) 



number of 1K blocks of subpool to be reserved for the control 
program working area. 



control program name suffix. Character to be used as the last 
character of the eight-character control program name. This 
allows multiple copies of the IMS nucleus to reside on 
IMS2.RESLIB. 



protect key option. If PKEY=1 is selected, IMS will operate 
utoder a non-zero protect key. If PKEY=0 is selected, IMS will 
run with protect key of 0. PKEY=1 is the recommended option. 
This parameter is ignored in MFT or VS1 because all system tasks 
run under protect key 0. 



dispatching priority. OS/360 dispatching priority at which the 
IMS control region should operate. This parameter is ignored 
in MFT. 



test option. If TEST=1 is selected, all subpool core obtained 
for the control region will be cleared before use. 



number of queue buffers in subpool to be allocated to the 
queue pool. (Identified in a core dump as QBUF.) 
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FBP= 



SOUT= 



number of 1K blocks of subpool to be reserved for the message 
format block pool (MFBP) . (This is identified in a main storage 
dump as MFBP) 



class assigned for SYSOUT DD cards. 



MEMBER NAME IMSBAT CH 

// PROC MBR=TEMPNAME,SOUT=3,OPT=N,SPIE=0,TEST=0,PSB=,IN=,OUT=, 

DIRCA=000 

PGM=DFSRRC00,REGION=30K, 

PARM='BMP,&MBR,&PSB,&IN,&OUT,&OPT&SPIE&TEST&DIRCA 
DSN=IMS2.RESLIB,DISP=SHR 
DSN=IMS2. PGMLIB,DISP=SHR 

SYSOUT=&S0UT r DCB= (LRECL= 1 2 1 , RECFM=VBA , BLKSIZE=3 129) , 
SPACE= (125, (2500, 100) ,RLSE,, ROUND) 

EXEC CARD PARAMETERS FOR THE IMSBATCH PROCEDURE 
MBR= 

is an application program name. 



//G 


EX 


// 




//STEPLIB 


DD 


// 


DD 


//SYSUDUMP 


DD 


// 





SOUT = 



PSB= 



IN= 



OUT= 



OPT= 



specifies the SYSOUT class for the SYSUDUMP DD card. 



is an optional parameter specifying a PSB name when the PSB 
name and application program name are different. 



is an input transaction code. This parameter is necessary only 
when the application program intends to access the message 
queues. If this parameter is specified, the OUT= parameter is 
ignored. 



is an output transaction code or logical terminal name. It is 
necessary when the application program desires to send output 
without accessing the input queues. This parameter is ignored 
if IN= is also specified. 



action to be taken if the batch message region starts and no 

control program is active. 

N= ask operator for decision. This is the default. 

W= wait for a control program. 

C= cancel the batch message region automatically. 
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SPIE= 



TEST = 



DIRCA= 



SPIE option 

0= allow user SPIE, if any, to remain in effect while processing 
the application program call. 

1= negate the user's SPIE while processing the application 
program call. Negated SPIEs are reinstated before returning 
to the application program. 

SPIE macros issued by the application program are only effective 
for program checks which occur within the batch message region. 



validity check option. 

0= no validity checking. 

1= validity check the addresses in the user's call list. 



number of 1K blocks of subpool 253 to be reserved to hold a 
copy of the user's PCBs. If this value is not specified, the 
system will reserve an area which can hold the PCBs for any 
program in the online system. This parameter applies only to 
OS/VS systems and must be a three-digit number (for example, 
001). To determine the size of the PCBs, see the output of the 
ACB utility program. 
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MEMBER NAME IMSCOBGO 



// 
//C 

//SYSLIN 

// 
// 

//SYSPRINT 

// 

//SYSUT1 

//SYSUT2 

//SYSOT3 

//SYSUT4 

//L 

// 

//STEPLIB 

//SYSLIB 

// 

//RESLIB 

//SYSLIN 

// 

// 

//SYSLMOD 

//SYSPRINT 

// 

//SYSDT1 

// 
//G 

// 

//STEPLIB 

// 

//IMS 

// 

//IEFRDER 

// 

//SYSOUT 

//SYSUDUMP 

// 



PROC 

EXEC 
DD 



DD 

DD 
DD 
DD 
DD 
EXEC 

DD 
DD 
DD 
DD 
DD 
DD 
DD 
DD 
DD 

DD 

EXEC 

DD 
DD 
DD 
DD 
DD 



DD 
DD 



MBR=,PAGES=60,SOUT=A,PSB=,SPIE=0,TEST=0,BUF=8 

PGM=IKFCBL00,PARM= , SIZE=130K,BUF=10K,LINECNT=50',REGION=150K 

DSN=&&LIN / DISP= (MOD /PASS) ,UNIT=SYSDA, 

DCB= (LRECL=80,RECFM=FB,BLKSIZE=400) , 

SPACE= (CYL, (4, 1) ,RLSE) 

SYSOUT=&SOUT,DCB=(LRECL=121,BLKSIZE=605,RECFM=FBA) , 

SPACE= (605, (&PAGES. 0,&PAGES) , RLSE, , ROUND) 

UNIT=SYSDA,DISP=(, DELETE) ,SPACE=(CYL, (10,1) ,RLSE) 

UNIT=SYSDA,DISP= (,DELETE) ,SPACE= (CYL, (10, 1) , RLSE) 

UNIT=SYSDA,DISP=(,DELETE) ,SPACE=(CYL, (10,1) ,RLSE) 

UNIT=SYSDA,DISP= (, DELETE) ,SPACE= (CYL, (10, 1) ,RLSE) 

PGM=DFSILNK0,REGION=120K,PARM='XREF, LET, LIST' , 

COND= (4,LT,C) 

DSN=IMS2. RESLIB, DISP=SHR 

DSN=SYS 1 . COBLIB,DISP=SHR 

DSN=SYS1.PL1LIB,DISP=SHR 

DSN=IMS2. RESLIB, DISP=SHR 

DSN=5&LIN,DISP= (OLD, DELETE) , VOL=REF=*. C. SYSLIN 

DSN=IMS2.PROCLIB (CBLTDLI) ,DISP=SHR 

DDNAME=SYSIN 

DSN=IMS2.PGMLIB(&MBR) ,DISP=SHR 

SYSOUT=&SOUT,DCB= (RECFM=FBA,LRECL= 1 2 1 , BLKSIZE=605) , 

SPACE= (605, (&PAGES. 0,SPAGES) , RLSE, , ROUND) 

UNIT=(SYSDA,SEP= (SYSLMOD, SYSLIN)) , DISP= (, DELETE) , 

SPACE=(CYL, (10, 1) ,RLSE) 

PGM=DFSRRC00,REGION=150K,TIME = 2,COND= (4,LT) , 

PARM=«DLI,SMBR,&PSB,SBUF,SSPIESTEST' 

DSN=IMS2. RESLIB, DISP=SHR 

DSN=IMS2.PGMLIB,DISP=SHR 

DSN=IMS2. PSBLIB,DISP=SHR 

DSN=IMS2.DBDLIB,DISP=SHR 

DSN=IMSLOG,DISP= (,KEEP) ,VOL= (,, ,99) ,UNIT= (2400, , DEFER) , 

DCB= (RECFM=VBS,BLKSIZE=1408,LRECL=1U00,BUFNO=1) 

SYSOUT=&SOUT,SPACE=(CYL, (1,1) ) ,DCB= (LRECL= 133, RECFM=FA) 

SYSOUT=&SOUT,DCB=(LRECL=121,RECFM=FBA,BLKSIZE=3025) , 

SPACE= (3025, (200, 100) , RLSE, , ROUND) 



Assumes 



1. User supplies source data from SYSIN 

2. Output Class A 

3. MBR=NAME, when name is load module name for program 

4. SYSDA is generic device name 

5. User add DD statements in execute set for data sets 
representing Data Language/I data bases. 

6. Execution time limit of 2 minutes specified. 
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MEMBER NAME IMSCOBOL 



// 

//C 

//SYSLIN 

// 

// 

//SY SPRINT 

// 

//SYSUT1 

//SYSOT2 

//SYSUT3 

//SYSUT4 

//L 

// 

//STEPLIB 

//SYSLIB 

// 

//RESLIB 

//SYSLIN 

// 

// 

//SYSLMOD 

//SYSPRINT 

// 

//SYSDT1 

// 



PROC 

EXEC 
DD 



DD 

DD 
DD 
DD 
DD 
EXEC 

DD 
DD 
DD 
DD 
DD 
DD 
DD 
DD 
DD 

DD 



MBR=,PAGES=60,SOUT=A 

PGM=IKFCBL00,PARM=»SIZE=130K,BUF=10K,LINECNT=50«REGION=150K 

DSN=&SLIN,DISP= (MOD, PASS) ,UNIT=SYSDA, 

DCB= (LRECL=80,RECFM=FB,BLKSIZE=400) , 

SPACE= (CYL, (4, 1) ,RLSE) 

SYSOUT=&SOUT,DCB=(LRECL=121,BLKSIZE=605,RECFM=FBA) , 

SPACE=(605, (&PAGES.O r SPAGES) ,RLSE, r ROUND) 

UNIT=SYSDA,DISP=(, DELETE) r SPACE=(CYL r (10 r 1) r RLSE) 

UNIT=SYSDA r DISP=( r DELETE) ,SPACE=(CYL, (10,1) ,RLSE) 

DNIT=SYSDA,DISP=(, DELETE) ,SPACE=(CYL, (10,1) ,RLSE) 

UNIT=SYSDA,DISP= (, DELETE) ,SPACE=(CYL, (10,1) ,RLSE) 

PGM=DFSILNK0,REGION=120K,PARM=«XREF, LET, LIST', 

COND= (4,LT,C) 

DSN=IMS2. RESLIB, DISP=SHR 

DSN=SYS1 . COBLIB,DISP=SHR 

DSN=SYS1.PL1LIB,DISP=SHR 

DSN=IMS2. RESLIB, DISP=SHR 

DSN=&&LIN,DISP= (OLD, DELETE) , VOL=REF=*. C. SYSLIN 

DSN=IMS2. PROCLIB (CBLTDLI) , DISP=SHR 

DDNAME=SYSIN 

DSN=IMS2.PGMLIB(SMBR) ,DISP=SHR 

SYSODT=&SOUT,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=605) , 

SPACE= (605, (&PAGES.0,SPAGES) ,RLSE, , ROUND) 

DNIT=(SYSDA,SEP= (SYSLMOD, SYSLIN)) , DISP= (, DELETE) , 

SPACE= (CYL, (10,1) ,RLSE) 



Assumes 



1. User supplies source data from SYSIN 

2. Output Class A 

3. MBR=NAME, when name is load module name for program 

4. SYSDA is generic device name 

5. RESLIB cataloged. 



MEMBER NAME IMSMSG 



//MESSAGE JOB 1 ,IMS,MSGLEVEL= 1 , PRTY=1 1 ,CL ASS=A, MSGCLASS=3,REGION=30K 



//REGION EXEC 

// 

//STEPLIB DD 
// DD 

//SYSUDUMP DD 
// 



PGM=DFSRRC00,REGION=30K,TIME=1440, 

PARM=«MSG, 001000000000* 

DSN=IMS2. RESLIB, DISP=SHR 

DSN=IMS2.PGMLIB,DISP=SHR 

SYSOUT=3,DCB= (LRECL=125,BLKSIZE=3219,RECFM=VBA) , 

SPACE= (125, (2500, 100) ,RLSE, , ROUND) 



EX^C CARD PARAMETERS FOR THE IMSMSG PROCEDURE 

PARM= 

• MSG, AAAAAAAAAAAA, BCDEFFGGG* 

MSG= 

a required positional parameter indicating a message region 
is to be started. 
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AAAAAAAAAAAA= 



B= 



C= 



D= 



E= 



PF= 



GGG= 



a required positional parameter specifying 4 three-digit decimal 
numbers indicating which classes of messages will be handled 
by this message region. That is, if classes 1, 2, and 3 are 
to be processed by this region, the PARH field would be specified 
as PAEM= , HSG / 001002003000» 

The sequence of specifying the classes determines relative class 
priority within the message region. In the above example, all 
Class 1 messages are selected for scheduling before any Class 
2 messages would be considered. Class numbers can not be greater 
than the maximum number of classes specified at system definition 
time. 



action to be taken if the message region starts and no control 

region is active. 

W - wait for control program to start 

N - ask operator for decision •- this is the default 

C - cancel message region automatically 



overlay supervisor option. 

- allow OS to load and delete the overlay supervisor for 

every overlay application program - this is the default 

1 - load and retain a copy of the overlay supervisor at 

message region initialization time 



SPIE option. 

- allow user SPIE, if any, to remain in effect while 

processing the application program call 

1 - negate the user's SPIE while processing the application 

program call. Negated SPIEs are reinstated before 
returning to the application program. 

SPIE macros issued by the application program are only 
effective for program checks which occur within the message 
region. 



validity check option 

- no address validity checking will be made. 

1 - validity check the addresses in the user's call list. 



termination limit option. A decimal number between 1 and 99. 
When the number of application program ABENDS reaches this limit 
the message region will be automatically terminated. This will 
allow OS to print the accumulated SYSOUT data sets. Default 
value is 1. 



number of 1K blocks of subpool 253 to be reserved to hold a 
copy of the user's PCBs. If this value is not specified, the 
system will reserve an area which can hold the PCBs for any 
application program in the system. This parameter applies only 
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to OS/VS systems and must be a three-digit number (for example, 
001) . 

Note: The output from the ACB utility program DFSUACBO will 
specify application program PCB sizes. 



MEMBER NAME IMSPLI 



// 


PROC 


//c 


EXEC 


// 




//SYSOT1 


DD 


// 




//SYSUT3 


DD 


// 




//SYSPRINT 


DD 


// 




//SYSLIN 


DD 


// 




/A 


EXEC 


// 




//STEPLIB 


DD 


//SYSLIB 


DD 


// 


DD 


//RESLIB 


DD 


//SYSLIN 


DD 


// 


DD 


// 


DD 


//SYSLMOD 


DD 


//SYSPRINT 


DD 


// 




//SYSUT1 


DD 



MBR=, PAGES=50, SOUT=A 

PGM=IEMAA,REGION=114K, 

PARM=« XREF,ATR,LOAD r NODECK r NOMACRO rr OPT=1 , 

UNIT=SYSDA r SPACE= (1024, (60,60) , RLSE, , ROUND) , 

DCB=BLKSIZE=1024,DISP= (, DELETE) 

UNIT=SYSDA,SPACE= (1024, (60,60) ,RLSE, , ROUND) , 

DCB=BLKSIZE=1024,DISP= (, DELETE) 

SYSOUT=&SOUT,DCB=(LRECL=125,BLKSIZE=629,RECFM=VBA) , 

SPACE=(605, (&PAGES.0,&PAGES) ,RLSE) 

UNIT=SYSDA,SPACE= (80, (250,80) ,RLSE) ,DCB=BLKSIZE=80 , 

DISP=(,PASS) 

PGM=DFSILNK0,PARM=»XREF,LIST,LET«,COND=(4,LT,C) , 

REGION=120K 

DSN=IMS2. RESLIB, DISP=SHR 

DSN=SYS1.PL1LIB,DISP=SHR 

DSN=SYS1.C0BLIB,DISP=SHR 

DSN=IMS2. RESLIB, DISP=SHR 

DSN=*.C. SYSLIN, DISP= (OLD, DELETE) 

DSN=IMS2.PROCLIB(PLITDLI) ,DISP=SHR 

DDNAME=SYSIN 

DSN=IMS2.PGMLIB(&MBR) ,DISP=SHR 

SYSOUT=&SOUT,DCB= (LRECL=121, RECFM=FBA, BLKSIZE=605) , 

SPACE= (605, (&PAGES.0,&PAGES) ,RLSE) 

UNIT=SYSDA,DISP=(, DELETE) ,SPACE=(CYL, (5,1) ,RLSE) 



Same assumptions as IMSCOBOL 
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MEMBER NAME IMSPLIGO 



// 


PROC 


//c 


EXEC 


// 




//SYSUT1 


DD 


// 




//SYSUT3 


DD 


// 




//SYSPRINT 


DD 


// 




//SYSLIN 


DD 


// 




//L 


EXEC 


// 




//STEPLIB 


DD 


//SYSLIB 


DD 


// 


DD 


//RES LIB 


DD 


//SYSLIN 


DD 


// 


DD 


// 


DD 


//SYSLMOD 


DD 


//SYSPRINT 


DD 


// 




//SYSUT1 


DD 


//G 


EXEC 


// 




//STEPLIB 


DD 


// 


DD 


//IMS 


DD 


// 


DD 


//IEFRDER 


DD 


// 




//SYSPRINT 


DD 


// 




//SYSUDUMP 


DD 


// 





MBR=,PAGES=50,SOUT=A,PSB=,SPIE=0,TEST=0,BUF=0 

PGM=IEMAA,REGION=114K, . 

PARM= , XREF,ATR,LOAD r NODECK r NOMACRO #r OPT=1» 

UNIT=SYSDA,SPACE=(102U, (60,60) r RLSE r r ROOND) , 

DCB=BLKSIZE=1024,DISP= (, DELETE) 

UNIT=SYSDA,SPACE= (1024, (60,60) ,RLSE, , ROUND) , 

DCB=BLKSIZE=1024,DISP= (, DELETE) 

SYSOUT=&SOUT,DCB- (LRECL=125,BLKSIZE=629,RECFM=VBA) , 

space=(605, (SPAGES.O,SPAGES) ,RLSE) 

UNIT=SYSDA,SPACE= (80, (250,80) , RLSE) ,DCB=BLKSIZE=80 , 

DISP=(,PASS) 

PG M=DFSILNK0,PARM= , XREF, LIST, LET 1 , COND=(U,LT,C), 

REGION=120K 

DSN=IMS2. RESLIB,DISP=SHR 

DSN=SYS1.PL1LIB,DISP=SHR 

DSN=SYS1.COBLIB,DISP=SHR 

DSN=IMS2. RESLIB,DISP=SHR 

DSN=*.C. SYSLIN, DISP= (OLD, DELETE) 

DSN=IMS2.PROCLIB (PLTTDLI) ,DISP=SHR 

DDNAME=SYSIN 

DSN=IMS2.PGMLIB(5MBR) ,DISP=SHR 

SYSOUT=&SOUT,DCB= (LRECL=121, RECFM=FBA, BLKSIZE=605) , 

SPACE=(605, (&PAGES.0,SPAGES) ,RLSE) 

DNIT=SYSDA,DISP=(, DELETE) ,SPACE=(CYL, (5,1) ,RLSE) 

PGM=DFSRRC00,REGION=150K,TIME=5,COND=(4,LT) , 

PARM=«DLI,SMBR,&PSB,SBUF,&SPIE&TEST I 

DSN=IMS2. RESLIB,DISP=SHR 

DSN=IMS2.PGMLIB,DISP=SHR 

DSN=IMS2. PSBLIB,DISP=SHR 

DSN=IMS2.DBDLIB,DISP=SHR 

DSN=IMSLOG,DISP=(,KEEP) ,V0L=(,,,99) ,UNIT= (2400, , DEFER) , 

DCB=(RECFM=VBS,BLKSIZE=1408,LRECL=1400,BUFNO=1) 

SYSOUT=&SOUT, DCB= (LRECL= 12 1 , BLKSIZE=605 ,RECFM=FBA) , 

SPACE= (605, (500,500) , RLSE, , ROUND) 

SYSOUT=8SOUT,DCB=(LRECL=121,BLKSIZE=605,RECFM=FBA) , 

SPACE=(605, (500,500) , RLSE, , ROUND) 



Same assumptions as IMSCOBGO, 

except execution time of 5 minutes specified 
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MEMBER NAME IMSRDR 



// PROC 

//IEFPROC EXEC 

// 

// 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//* 

//IEFRDER DD 

//IEFPDSI DD 

// DD 

//IEFDATA DD 

// 

// 



MBR=IMSMSG 

PGM=IEFIRC, READER FIRST LOAD 

REGION=48K READER BASIC REGION 

PARM='00103005001024905210SYSDA ■ DEFAULT PARM FLD 
BPPTTTOOOMMMIIICCCRLSSSSSSSS 

B DEFINED PROGRAMMER NAME & ACCT NBR NOT NEEDED 

PP PRIORITY=01 

TTT JOB STEP INTERVAL=30 MINUTES 

OOO PRIMARY SYSOUT SPACE=50 TRACKS 

MMM SECONDARY SYSOUT SPACE=10 TRACKS 

III READER/INTERPRETER DISPATCHING PRIORITY=249 

CCC JOB STEP DEFAULT REGION=52K 

R DISPLAY & EXECUTE C0MMANDS=1 

L BYPASS LABEL=0 

SSSSSSSS SYSOUT UNIT NAME=SYSDA 

DSN=IMS2.PR0CLIB(&MBR) , DISP=SHR, DCB=BUFNO= 1 

DSN=IMS2.PR0CLIB,DISP=SHR PROCEDURE LIBRARY 

DSN=SYS1.PR0CLIB,DISP=SHR 

UNIT=SYSDA, SPOOL DEVICE 

SPACE= (80, (500,500) , RLSE,CONTIG) , AMOUNT 

DCB= (BUFNO=2,LRECL=80,BLKSIZE=80,RECFM=FB,BUFL=80 



MEMBER NAME IMSWTnnn 



//SPRTn JOB 
//PRINT EXEC 
//STEPLIB DD 
//SYSPRINT DD 
//SYSUDUMP DD 
//SPOOLn DD 



1,IMS,CLASS=A,MSGCLASS=3,MSGLEVEL=1 

PGM=DFSUPRT0,REGION=30K 

DSN=IMS2.RESLIB / DISP=SHR 

S YSOUT= 3 , DCB=BLKSIZ E= 1 H 1 

SYSOUT=3 

DSN=IMS2.SYSOn,DISP=SHR 



Note: IMSWTnnn member (s) job class and message class are determined 
by the MAXREGN keyword specification on the IMSCTRL macro 
statement at System Definition time. 



MEMBER NAME MFDBDUMP 



// PROC 

//DUMP EXEC 

//STEPLIB DD 

// DD 

//IMS DD 

// DD 

//SYSUDUMP DD 

//DI 21 PART DD 

//DI21PARO DD 

//OUTPUT DD 



SOUT=A 

PGM=DFSRRC00 r PARM=' DLI, DFSSAM08' ,REGION=130K 

DSN=IMS2.RESLIB,DISP=SHR 

DSN=IMS2. PGMLIB,DISP=SHR 

DSN=IMS2.PSBLIB # DISP=SHR 

DSN=IMS2.DBDLIB,DISP=SHR 

SYSOUT=&SOUT 

DSN=IMS2.DI21PART,DISP=SHR 

DSN=IMS2.DI21PARO r DISP=SHR 

SYSOUT=&SOUT 
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MEMBER NAME MFDBLOAD 



// 


PROC 


//LOAD 


EXEC 


//STEPLIB 


DD 


// 


DD 


//IMS 


DD 


// 


DD 


//SYSUDUMP 


DD 


//DI21PART 


DD 


// 




//DI21PARO 


DD 


// 




//SYSOUT 


DD 


//INPUT 


DD 



SOUT=A 

PGM=DFSRRC00, PARM=' DLI r DFSSAM01 • , REGION= 1 30K 

DSN=IMS2. RESLIB r DISP=SHR 

DSN=IMS2.PGMLIB,DISP=SHR 

DSN=IMS2. PSBLIB, DISP=SHR 

DSN=IMS2.DBDLIB,DISP=SHR 

SYSOUT=SSOUT 

DSN=IMS2.DI21PART (PRIME) ,DISP= (,KEEP) ; DCB=DSORG=IS, 

SPACE= (CYL r 3, ,CONTIG) , VOL=SER=SPSER, UNIT=SPUNIT 

DSN=IMS2.DI21PAR0,DISP=(,KEEP) ,SPACE= (CYL, 3 , , CONTIG) , 

VOL=SFR=SOSER,UNIT=&OUNIT 

SYSOUT=SSOUT 

DSN=IMS2.GENLIB (MFDFSYSN) ,DISP=SHR 



MEMBER NAME PSBGEN 



// 


PROC 


//c 


EXEC 


//SYSLIB 


DD 


//SYSGO 


DD 


// 




//SYSPRINT 


DD 


// 




//SYSUT1 


DD 


//SYSUT2 


DD 


//SYSDT3 


DD 


// 




//L 


EXEC 


//STEPLIB 


DD 


//SYSLIN 


DD 


//SYSPRINT 


DD 


// 




//SYSLMOD 


DD 


//SYSDT1 


DD 


// 





MBR=TEMPNAME, SOUT=A 

PGM=IEUASM,REGION=120K,PARM='LOAD,NODECK' 

DSN=IMS2.MACLIB,DISP=SHR 

UNIT=SYSDA,DISP= (,PASS) , SPACE= (80, (100, 100) ,RLSE)., 

DCB= (BLKSIZE=400,RECFM=FB,LRECL=80) 

SYSOUT=&SOUT,DCB=(LRECL=121 , RECFM=FBM, BLKSIZE=605) , 

SPACE=(121, (500,500) ,RLSE, , ROUND) 

UNIT=SYSDA,DISP=(, DELETE) ,SPACE= ( 1700, (100,50)) 

UNIT=SYSDA,DISP=(, DELETE) , SPACE= ( 1700 , ( 100 , 50) ) 

UNIT=(SYSDA,SEP= (SYSLIB, SYSUT 1 , SYSUT2) ) , 

SPACE=(1700, (100,50)) 

PGM-DFSILNKO^ARM^XREF^IST' ,COND= (0,LT,C) ,REGION=120K 

DSN=IMS2. RESLIB,DISP=SHR 

DSN=*.C.SYSGO,DISP= (OLD, DELETE) 

SYSOUT=SSOUT,DCB=(LRECL=121,RECFM = FBA,BLKSIZE=605) , 

SPACE= (121, (100,100) ,RLSE) 

DSN=IMS2.PSBLIB(&MBR) ,DISP=SHR 

UNIT=(SYSDA,SEP= (SYSLMOD, SYSLIN)) , DISP= (, DELETE) , 

SPACE=(1024, (100, 10) ,RLSE) 



3.114 



MEMBER NAME SECURITY 



// 
//S 

//STEPLIB 

//SYSPRINT 

//SYSPUNCH 

// 

//SYS LIN 

// 

//SYSDT1 

// 

//SYSUT2 

// 

//SYSIN 
//C 

//SYSPRINT 
//SYSGO 

// 

//SYSUT1 
//SYS0T2 
//SYSDT3 
//SYSIN 

//L 

//STEPLIB 

//SYSPRINT 

//SYSLMOD 

//INPUT 

//SYSUT1 

//SYS LIN 



PROC 

EXEC 

DD 

DD 

DD 

DD 

DD 

DD 

DD 

EXEC 

DD 
DD 

DD 

DD 

DD 

DD 

EXEC 

DD 

DD 

DD 

DD 

DD 

DD 



OPTN=UPDATE,IMS=« ,0* ,SOUT=A 

PGM=DFSISMP0,PARH=»SOPTN.&IMS. • 

DSN=IMS2.RESLIB,DISP=SHR 

SYSOUT=&SOUT,DCB=(RECFM=VBA,BLKSIZE=400,BUFL=404) 

UNIT=SYSDA,SPACE=(80, (800,400) , ,, ROUND) , 

DCB=(RECFM=FB,LRECL=80 r BLKSIZE=400) ,DISP= (,PASS) 

UNIT=SYSDA,SPACE=(TRK, (1,1)) ,DCB= (RECFM=F, BLKSIZE=80) , 

DISP= (,PASS) 

UNIT=SYSDA,SPACE=(100, (400,400) ,,, ROUND) , 

DCB=(BLKSIZE=500,RECFM=FB) 

UNIT=(SYSDA,SEP=SYSUT1) ,SPACE=(100, (400,400) ,,, ROUND) , 

DCB=*.S.SYSUT1 

DSN=NO. SYSIN. DD. ASTERISK 

PGM=IEUASM,PARM= , LOAD r NODECK l ,COND= (12,LT,S) , 

REGION=96K 

SYSOUT=&SOUT,DCB=(RECFM=FBM,LRECL=121,BLKSIZE=60 5) 

UNIT=(SYSDA r SEP=SYSPRINT) r DISP= (,PASS) , 

DCB=*.S. SYSPUNCH, SPACE=(80, (400,400) ,,,ROUND) 

UNIT=SYSDA,SPACE=(CYL, (5,1)) 

UNIT=SYSDA,SPACE= (CYL, (5, 1) ) 

UNIT=(SYSDA,SEP=(SYSUT1,SYSUT2)) ,SPACE=(CYL, (5,1)) 

DSN=*. S. SYSPUNCH, DISP= (OLD, DELETE) 

PGM=DFSILNK0,PARM=»XREF,NE,OL',REGION=110K,COND=(4,LT,S) 

DSN=IMS2.RESLIB,DISP=SHR 

SYSOUT=&SOUT, DCB= (RECFM=FBA, LRECL= 1 2 1 , BLKSIZE=605) 

DSN=IMS2.RESLIB,DISP=SHR 

DSN=*.C. SYSGO, DISP= (OLD, DELETE) 

UNIT= (SYSDA,SEP=INPUT) ,SPACE= (CYL, (5, 1) ) 

DSN=*.S.SYSLIN,DISP= (OLD, DELETE) 
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MEMBER NAM! IQZU1 



// 


PROC 


//SI A 


EXEC 


//STEPLIB 


DD 


//SYSUT1 


DD 


//SYSPRINT 


DD 


//SYSPUNCH 


DD 


//SIB 


EXEC 


// 




//STEPLIB 


DD 


//IMS 


DD 


// 


DD 


//SYSPRINT 


DD 


//SYSPUNCH 


DD 


//QFF 


DD 


//QFFOVF 


DD 


//SYSUT1 


DD 


Assumes 





SOUT= A, SPCH=B , IMSREG=DLI 

PGM=DMGSI1 ,REGION=120K 

DSN=IMS2.RESLIB,DISP=SHR 

UNIT=SYSDA,DISP= (,PASS) ,SPACE= (TRK, (24, 1 1) ) 

SYSOUT=&SOOT 

SYSODT=SSPCH 

PGM=DFSRRC00 r PARM=»&IMSREG,DMGSI2,DMGSIB , ,REGION=150K r 

COND=(0,LT) 

DSN=IMS2.RESLIB,DISP=SHR 

DSN=IMS2.PSBLIB,DISP=SHR 

DSN=IMS2.DBDLIB,DISP=SHR 

SYSOUT=&SOUT 

SYSODT=&SPCH 

DSN=IQFIFFDB r DISP=SHR 

DSN=IQFOFFDB r DISP=SHR 

DSN=*. SIA. SYSDT1 ,DISP= (OLD r DELETE) 



1. User supplies source data for SYSIN. 

2. SYSUT1 is a BSAM work data set. 

3. Output Class A is used for listing. 

4. Output Class B is used by DMGSI1 and DMGSI2 (Stage I) to produce 
job steps in the Stage II OS job stream 

5. User defines IMS region type (Batch or Batch-Message) in PARM field 
of EXEC statement for executing the procedure. (Not reguired at 
initial creation time.) 

Note: The SIB step is bypassed when the IQFUT procedure is executed 
to create the System Data Base. 
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MEMBER NAMI IQEFC 



//IQFFC 


PROC 


//FC1 


EXEC 


//STEPLIB 


DD 


//IMS 


DD 


// 


DD 


//SYS PRINT 


DD 


//SYSOUT 


DD 


//OTPRINT 


DD 


//UTDBD 


DD 


//OTSPL 


DD 


//SORTLIB 


DD 


//SSYNIN 


DD 


// 




// 




//SSYNOOT 


DD 


// 




// 




//SPCBIN 


DD 


// 




// 




//SPCBOUT 


DD 


// 




// 




//SWRKIN 


DD 


// 




// 




//SWRKOUT 


DD 


// 




// 




//SPCBWK01 


DD 


//SPCBWK0 2 


DD 


//SPCBWK03 


DD 


//SPCBWK04 


DD 


//SPCBWK05 


DD 


//SPCBWK06 


DD 


//SSYNWK01 


DD 


//SSYNWK02 


DD 


//SSYNWK03 


DD 


//SSYNWK04 


DD 


//SSYNWK05 


DD 


//SSYNWK06 


DD 


//SWRKWK01 


DD 


//SWRKWK02 


DD 


//SWRKWK03 


DD 


//SWRKWK04 


DD 


//SWRKWK05 


DD 


//SWRKWK06 


DD 


Assumes 





PGM=DFSRRCOO,PARM= , DLI,DMGFC1,DMGFC1»,REGION=200K 

DSN=IMS2, RESLIB,DISP=SHR 

DSNAME=IMS2.PSBLIB,DISP=SHR 

DSNAME=IMS2.DBDLIB,DISP=SHR 

SYSOUT=A 

SYSODT=A 

SYSOUT=A 

UNIT=SYSDA r DSN=OTDBD,DISP= (NEW, DELETE) ,SPACE=(CYL r (1,1)) 

DNIT=SYSDA r DSN=DTSPL,DISP=(NEW r DELETE) ,SPACE=(CYL r (1 r 1)) 

DSN=SYS 1 . SORTLIB, DISP=SHR 

DISP= (NEW, DELETE) ,SPACE=(CYL, (1,1)) ,UNIT=SYSDA, 

DCB=(BLKSIZE=1040,LRECL=52,DSORG=PS,RECFM=FB) , 

DSN=SSYNIN 

DISP= (NEW, DELETE) ,SPACE=(CYL, (1,1) ) ,UNIT=SYSDA, 

DCB= (BLKSIZE=1040,LRECL=52,DSORG=PS,RECFM=FB) , 

DSN=SSYNOUT 

DISP= (NEW, DELETE) ,SPACE=(CYL, (1,1)) ,UNIT=SYSDA, 

DCB= (BLKSIZE=880,LRECL=U4,DSORG=PS,RECFM=FB) , 

DSN=SPCBIN 

DISP= (NEW, DELETE) ,SPACE=(CYL, (1,1) ) ,UNIT=SYSDA, 

DCB= (BLKSIZE=880 ,LRECL=UU, DSORG=PS, RECFM=FB) , 

DSN=SPCBOUT 

DISP= (NEW, DELETE) ,SPACE=(CYL, (1,1)) ,UNIT=SYSDA, 

DCB=(BLKSIZE=1920,LRECL=96,DSORG=PS,RECFM=FB) , 

DSN=SWRKIN 

DISP= (NEW, DELETE) ,SPACE=(CYL, (1,1)) ,UNIT=SYSDA, 

DCB= (BLKSIZE=1920,LRECL=96,DSORG=PS,RECFM=FB) , 

DSN=SWRKOnT 

UNIT=SYSDA,SPACE= (TRK, (5) ,,CONTIG) 

UNIT=SYSDA,SPACE=(TRK, (5) , ,CONTIG) 

UNIT=SYSDA,SPACE= (TRK, (5) , ,CONTIG) 

ONIT=SYSDA, SPACED (TRK, (5) ,,CONTIG) 

DNIT=SYSDA,SPACE=(TRK, (5) , ,CONTIG) 

UNIT=SYSDA,SPACE= (TRK, (5) , ,CONTIG) 

UNIT=SYSDA ,SPACE= (TRK, (5) , ,CONTIG) 

UNIT=SYSDA,SPACE= (TRK, (5) , ,CONTIG) 

UNIT=SYSDA,SPACE=(TRK, (5) , ,CONTIG) 

DNIT=SYSDA,SPACE=(TRK, (5) , ,CONTIG) 

UNIT=SYSDA,SPACE=(TRK, (5) ,,CONTIG) 

DNIT=SYSDA,SPACE=(TRK, (5) , ,CONTIG) 

DNIT=SYSDA,SPACE=(TRK, (5) ,,CONTIG) 

UNIT=SYSDA,SPACE=(TRK, (5) , ,CONTIG) 

ONIT=SYSDA,SPACE=(TRK, (5) ,,CONTIG) 

UNIT=SYSDA,SPACE= (TRK, (5) , ,CONTIG) 

ONIT=SYSDA,SPACE=(TRK, (5) ,,CONTIG) 

UNIT=SYSDA,SPACE= (TRK, (5) , ,CONTIG) 



1. The DMGSI1 program (Stage I, Part 1) provides JCL to allocate data 
set groups at initial creation time. 
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Memb er Name IQFIU 



//IQFIU 


PROC 


//IU1 


EXEC 


//STEPLIB 


DD 


//IMS 


DD 


// 


DD 


// 


DD 


//QFF 


DD 


//QFFOVF 


DD 


//QXS1 


DD 


//QXS10V 


DD 


//QXL1 


DD 


//Q XL 10V 


DD 


//HOLDS 


DD 


//HOLDL 


DD 


//IEFRDER 


DD 


//SYSPRINT 


DD 


//SYSOUT 


DD 


//IU2 


EXEC 


// 




//STEPLIB 


DD 


//IMS 


DD 


// 


DD 


// 


DD 


//QFF 


DD 


//QFFOVF 


DD 


//IEFRDER 


DD 


//SYSPRINT 


DD 


//SYSOUT 


DD 


//SORTLIB 


DD 


//SHRTIN 


DD 


// 




//SHRTOUT 


DD 


// 




//SHRTWK01 


DD 


//SHRTWK0 2 


DD 


//SHRTWK03 


DD 


//LONGIN 


DD 


// 




//LONGOUT 


DD 


// 




//LONGWK01 


DD 


//LONGWK0 2 


DD 


//LONGWK03 


DD 


//IU3 


EXEC 


// 




//STEPLIB 


DD 


//IMS 


DD 


// 


DD 


// 


DD 


//QFF 


DD 


//QFFOVF 


DD 


//QXS1 


DD 


//QXS10V 


DD 


//QXL1 


DD 


//QXL10V 


DD 


//HOLDS 


DD 


//HOLDL 


DD 


//SYSPRINT 


DD 


//SYSOUT 


DD 



SOUT=A,IMSREG=DLI,DISPS=OLD,SSTLB=516,LSTLB=516 

PGM=DFSRRCOO , PARM=« SIMSREG, DMGIU1 , DMGIU 1 • , REGION=200K 

DSN=IMS2.RESLIB,DISP=SHR 

DSN=*. QUS2X1.L.SYSLM0D,DISP= (OLD r PASS) 

DSN=IMS2.PSBLIB,DISP=SHR 

DSN=IMS2.DBDLIB r DISP=SHR 

DSN=IQFIFFDB,DISP=SHR 

DSN=lQFOFFDB r DISP=SHR 

DSN=IQFXSlDB r DISP=SDISPS 

DSN=IQFX0VS1 , DISP=&DISPS 

DSN=IQFXL 1DB # DISP=&DISPS 

DSN=IQFX0VL1 r DISP=&DISPS 

UNIT=SYSDA,SPACE=(CYL r (1,1)) /DISP- (, PASS) 

UNIT=SYSDA,SPACE=(CYL, (1,1)) , DISP= (,PASS) 

DUMMY 

SYS0UT=&S0UT 

SYSOUT=&SOUT 

PGM=DFSRRC00,PARM=«SIMSREG,DMGIU3, DMGIU 1»,REGION=200K, 

C0ND=(4,LT,IU1) 

DSN=IMS2. RESLIB,DISP=SHR 

DSN=*.QUS2X1.L. SYSLM0D,DISP= (OLD, PASS) > ' 

DSN=IMS2.PSBLIB,DISP=SHR 

DSN=IMS2,DBDLIB,DISP=SHR 

DSN=IQFIFFDB, DISP=SHR 

DSN=IQFOFFDB, DISP-SHR 

DUMMY 

SYSOUT=&SOUT 

SYS0UT=5S0UT 

DSN=SYS1. SORTLIB, DISP=SHR 

DSN=*.IU1- HOLDS, DISP= (OLD, DELETE) , 

DCB=(BLKSIZE=SSSTLB,LRECL=&SSTLB,RECFM=FB,DSORG=PS) 

UNIT=SYSDA,SPACE= (CYL, (1, 1) ) ,DISP= (,PASS) , 

DCB= (BLKSIZE=SSSTLB,LRECL=SSSTLB,RECFM=FB,DSORG=PS) 

UNIT=SYSDA,SPACE=(TRK, (10) ,,CONTIG) 

UNIT=SYSDA,SPACE=(TRK, (10) , ,CONTIG) 

UNIT=SYSDA,SPACE=(TRK, (10) ,,CONTIG) 

DSN=*. IU1. HOLDL, DISP= (OLD, DELETE) , 

DCB= (BLKSIZE=&LSTLB,LRECL=&LSTLB,RECFM=FB, DSORG=PS) 

UNIT=SYSDA,SPACE=(CYL, (1,1)) , DlSP= (,PASS) , 

DCB= (BLKSIZE=8LSTLB, LRECL=&LSTLB, RECFM=FB, DSORG=PS) 

UNIT=SYSDA,SPACE=(TRK, (10) ,,CONTIG) 

UNIT=SYSDA,SPACE=(TRK, (10) ,,CONTIG) 

UNIT=SYSDA,SPACE=(TRK, (10) ,,CONTIG) 

PGM=DFSRRC00,PARM=«&IMSREG,DMGIU2,DMGIU1»,REGION=200K, 

COND=( (a,LT,IUl) , (U,LT,IU2) ) 

DSN=IMS2. RESLIB,DISP=SHR 

DSN=*.QUS2X1.L.SYSLM0D,DISP= (OLD, DELETE) 

DSN=IMS2. PSBLIB,DISP=SHR 

DSN=IMS2.DBDLIB,DISP=SHR 

DSN=IQFIFFDB, DISP=SHR 

DSN=IQFOFFDB,DISP=SHR 

DSN=IQFXS 1 DB, DISP=&DIS PS 

DSN=IQFXOVS 1 , DISP=SDISPS 

DSN=IQFXL1DB,DISP=&DISPS 

DSN=IQFXOVL1,DISP=SDISPS 

DSN=*. IU2. SHRTOUT, UNIT~SYSDA,DISP= (OLD, DELETE) 

DSN=*. IU2. LONGOUT, UNIT=SYSDA,DISP= (OLD, DELETE) 

SYSOUT=&SOUT 

SYSOUT=&SOUT 



The *.QUS2X1.L.SYSLMOD data set for the IMS DD card refers back 
to the SYSLMOD card in the DMGIU1 PSBGEN step generated by DMGSI2. 
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Assumes 



Prior to executing the IQF Utility at IQF/IMS installation time, 
the user modifies this procedure to tailor it to his IQF indexing 
requirements. The modifications required are: 

1. Add DD statements to the IU1 step for the user's IMS/360 data 
bases to be indexed 



MEMBER NAME CBLTDLI 

LIBRARY RESLIB (CBLTDLI) DL/I INTERFACE ENTRY DLITCBL 



MEMBER NAME PLITDLI 

LIBRARY RESLIB (PLITDLI) DL/I LANGUAGE INTERFACE ENTRY IHESAPD 



SYSTEM DEFINITION ERROR CONDITIONS 

IMS/360 system definition error conditions are listed in the IMS/360 
Message s and Code s Reference Manual (SH20-091U) . 
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SYSTEM DEFINITION EXAMPLE S 

Two examples of system definition are given, one for a complete 
IMS/360 data communication - data base system and the other for a 
batch-only IMS/360 data base system. 

The data communication - data base example, which includes the 
IMS/360 control program region and message processing and batch message 
processing regions, assumes the following: 

• OS programming system, MVT configuration 

• Thirty-four application programs 

• Thirty-six transaction codes against those application programs 

• Sixteen data bases 

• Line groups: 

One 2740 nonswitched line group with two lines. 

The first line has two 2740 Model 1 terminals. 

The second line has two 2740 Model 2 terminals. 

One 2740 non-station control line group containing one line 
and one terminal 

One 3270 remote line group containing one line, one 3275 
terminal, and one 3271 control unit supporting five terminals 

One local 3270 line group containing one line and two terminals 

One local 3270 line group containing one line and one 3286 
printer terminal 

One 1050 nonswitched line group containing one line and two terminals 

One 2260-remote line group containing one line, and two control units, 
one 2265 terminal, two 2260 terminals, and one 1053 printer 

One 2770 nonswitched line group containing one line and one terminal 

One 2980 nonswitched line group containing one line, with one 
control unit supporting three terminals 

One 2741 nonswitched line group containing one line and one terminal 

Two 2741 switched line groups 

One 1030 nonswitched line group with one line and two terminals 

Four Local SYSOUT line groups 

One 7770 line group with two lines 

One TWX switched line group 

one 2740 switched line group 

One 1050 switched line group with one line and one pool with 
four subpools 
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DATA BASE - DATA COMMUNICATION EXAMPLE 

This example illustrates the output from Stage 1 of the IMS/360 
system definition utility program. The input to Stage 1 (that is r 
the control cards) is provided in the output listing followed by a 
summary of the Featgroup Specifications, the Application Specifications, 
the Communication Specifications, and the Data Set and Data Base 
Specifications. Next is the punch statements in this example followed 
by the comments considered warnings. 

Figure 7 shows, in summary form, the various transaction codes, 
programs, and data bases, including their relationship to each other, 
as they exist in the following example of system definition. 

Figure 8 shows, in summary form, the teleprocessing relationship 
as it exists in the following example of system definition. 



TRANSACTION CODES 



PROGRAMS 



DATA BASE.' 





















DLI 




ICS 




IMS 




DLN 



















TUBE 



HIMALM01 



HIMAJC03 




C0NV1 



CONV2 



DFS 



CONTEST 



LKMDFSOO 




DI31PH02 



LKM 



SKH1 



LKMDFS10 



HHTASK41 




DS40JC01 



TPPL1 



TPPL2 



HIMAJC01 



HIMAJC02 




DI41SK01 



HIBASK41 
(BATCH) 



HSBASK41 
(BATCH) 




DI42SK01 



Figure 7. (Sheet 1 of 2.) System definition example summary - 
transaction codes, programs, and data bases 
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ENQ 




ENQOSK41 
















SKIl 




HITASK41 
















SKI 2 




HITASK42 


















HHBLSK41 
(BATCH) 












HHBLSK42 
(BATCH) 












HHBLSK43 
(BATCH) 












SKH2 




HHTASK42 
















SKH3 




HHTASK43 
















SKDl 




HDTASK01 












MR1 




MRl 










MR2 




MR2 














MR3 




MR3 









Rl 

DH41SKO" 



MR4 




MR5 



P 

DH41SK02 



MR6 



MR7 



P 

DH41SK03 



MR8 



MR9 



Pi 

DX41SK01 



DSPINV 



P 

DD41SK01 



ADDPART 




ADDINV 




DLETPART 




DLETINV 



p 

DH41TS01 



DISBURSE 



DSPALLI 



MR4 



MR5 



NR6 



MR7 



MR8 



MR9 



DPSSAM02 



DFSSAM03 



DPSS.W04 



DFSSAM05 



DFSSAM06 



DFSSAM07 



3H41TSO 



DH41TS0 



)X41TS0; 



>D4itso: 



P 

I21PAB9 ' 




Figure 7. (Sheet 2 of 2.) System definition example summary 
transaction codes, programs, and data bases 
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271*0 NONSWITCHED LINE GKOTJ P C ONFIGURATIO N 



LINE GROUP 



DDNAME= 
DD2740S 



LINE 



ADDR = 0C2 



ADDR = gJC3 



TERMINAL 



LOGICAL NAME 



ADDR = C6 



ADDR = E2 



«-* 



ADDR = 45 



ADDR = 46 



CTRL 



HOWARD 



LARRY 



MODEL 2 



MODEL 2K 



Figure 8. (page 1 of 16) System definition example summary - 
teleprocessing relationship 



2740 NON-STATION CONTROL CONFIGURATION 

LINE GROUP LINE 



TERMINAL 



Figure 8 (page 2 of 16) 



LOGICAL NAME 



DDNAME = 
D2740NSC 






ADDR = 0C1 






ADDR = E2 




^ 


T2740NSC 


w 






^ 




% 




^ 





3. 123 



3270 REMOTE LINE CONFIGURATION 



LINE GROUP LINE 



CTLUNIT TERMINAL LOGICAL NAME 



NONSWITCHED 
DDNAME= 
DD3270R 



ADDR=0C9 



ADDIHMO 
UNIT=3275 













ADDR=40 


ADDR=C1 
M0DEL=2 










ADDR=C1 


^ 










ADDR=C2 


^ __ ^_^___ 










ADDR=C3 
UNIT=3284 


-^ — — ■ 










ADDR=C^ 

UNIT=3286 


■^ ■ 





f 


T3275 








T3275P 
C0MPT=PTR1 








T3270A 








T3270B 








T3270C 








T3270P1 








T3270P2 



Figure 8 (page 3 of 1 6) 
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3270 LOCAL LINE CONFIGURATION 



LINE GROUP 




LINE 




TERMINAL 


LOGICAL NAME 


DDNAME= 
DD3270L 


► 

•< 




— ► 

"<T 


ADDR=310 


— ► 
-< — 


T3270L1 






















ADDR=312 


— ► 
-< 


T3270L2 



3270 LOCAL LINE CONFIGURATION 



LINE GROUP 




LINE 




TERMINAL 


— ► 




DDNAME= 
DD3270L2 


— >► 
*< — 




— ► 
■< — 


ADDR=311 
UNIT=3286 


T3270P3 



Figure 8 (page 4 of 1 6 ) 



3. 125 



105 NONSWITCHEP LINE GROUP CONFIGURATION 

LINE GROUP LINE 



TERMINAL 



LOGICAL NAME 



DDNAME= 
DD1050 






ADDR =0C0 




*- 


ADDR = E2 
COMPT =PTR1 




— fc 






— W 




4 


PRINTER1 
COMPT =PTR1 




4 




4 1 




fc 


















ADDR - E4 
FEAT = 1052 
COMPT = 
(PTR1,PTR2) 


PRINTER2 
COMPT = PTR1 










4 I 


I 








V 












PRINTER3 
COMPT = PTR2 



Figure 8 (page 5 of 16) 
REMOTE 2260 LINE GROUP CONFIGURATION 



LINE GROUP 



/ 



LINE 



CONTROL UNIT 



DDNAME= 
DD2260R 



ADDR = 0E0 



ADDR = 40 
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TERMINAL 



LOGICAL NAME 



ADDR = 4151 
UN IT = 2845 



T2265XCL 




ADDR = A1 


w 


AB 







ADDR = A4 
UNIT =1053 



4- 



ERNE 
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2770 NONSWITCHED LINE GROUP CONFIGURATION 



LINE GROUP 



LINE 



TERMINAL 



LOGICAL NAME 



DDNAME= 
DD2770 






ADDR = 0C8 




k. 


ADDR = C1 
COMPT = 
(PTR, VIDEO, 
CARD) 






*- 








^ 


m 


T2770P 
COMPT = 1 


^ 




^ 




^ 


A 










ir 




T2770V 
COMPT = 2 




^ 
^ 




V 




T2770C 






^ 


COMPT = 3 



Figure 8 (page 7 of 16) 
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MULTIPOINT 2980 LINE GROUP CONFIGURATION 

LINE GROUP 



LINE 



CONTROL UNIT 



TERMINAL 



LOGICAL NAME 



DDNAME = 
DD2980 




ADDR = 0CA 








k. 


ADDR = 40 
MODEL 1 










4 




w 


r 
4 


HOMER1 


^ 


ADDR = C1 


i 


i 

4 


* i 


k 




^ 
















4- 


N29801 






V 




4- 


A29801 




ADDR = F1 
MODEL 2 








w 


N29802 




W 
4 




M 
* 




*2 


k 






V 






4— 


A29802 






V 




4- 


COMMON 






V 




4- 


HOMER4 COMPT= 
COMMON 




ADDR = F4 
MODEL 4 








fe 


ATELLER 




4 




^ 




*1 


L 






V 






4- 


BTELLER 






+ 




4- 


JTELLER 






1 


f 




4- 


KTELLER 




i 


f 




4- 


HOMER 2 



Figure 8 (page 8 of 1 6 ) 
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2741 NONSWITCHED LINE GROUP CONFIGURATION 



LINE GROUP 


fe 


LINE 




TERMINAL 






LOGICAL NAME 


DDNAME= 
DD2741 


ADDR = 097 


ADDR = 01 


^ 


T2741 


4 


4 


^ 


^ 




^ 




^ 
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2741 SWITCHED LINE GROUP CONFIGURATION 



LINE GROUP 



LINE 



TERMINAL 



LOGICAL NAME 



DDNAME = 
DD2741S 



ADDR =050 



ADDR = 50 



r 



• GENERATED 
I LOGICAL I 
-I NAME I 

I I 



DDNAME = 
DD2741S2 




*. 


ADDR = 053 




fe. 


ADDR = 53 




r 


4 


4 


H 

I 

4 _ i 










^ 


— i 



1 

GENERATED I 

I LOGICAL I 

NAME | 

I 



Figure 8 (page 10 of 16) 



1030 LINE GROUP CONFIGURATION 



LINE GROUP 



LINE 



TERMINAL 



LOGICAL NAME 



DDNAME = 
DD1030 






ADDR=0E1 








ADDR = 64 
UNIT =1033 






k. 


T1033A 


w 


, w 


M 


^ 




* i 


I 


i — , 




I — * 














t 




ADDR = 64 


T1033B 























Figure 8 (page 11 of 16) 
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LOCAL SYS OUT LINE GROUP CONFIGURATIONS 



LINE GROUP 



LINE 



TERMINAL 



LOGICAL NAME 



DDNAME = 
SYSRDR1 




k. 


ADDR = 0B1 




k. 






4 


4 


^' 




^ 




^ n 



l :; 1 

I REFERS TO ' 

| PREVIOUS • 

1030 LTERM I 

I 



DDNAME = 
SYSPRT1 




ADDR = 0B2 








PRTSYS 















DDNAME = 
SYSTAPE 




w 


ADDR = 0B5 




fe 






w 


TAPESYS 


4 


M 


w 


4 


^ 




^ 




^ 





DDNAME = 
(SYS1,SYS2, 
SYS3, SYS4) 




k. 


BUFSIZE = 880 




w 


FEAT = 
AUTOSCH 






w 






M 


w 
4 


4 


SP1 


^ 




* 




« I 


i 


























SP 


2 



Figure 8 (page 12 of 16) 
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7770 LINE GROUP CONFIGURATION 



LINE GROUP 



LINE 



TERMINAL 



DDNAME= 
ARUDDGP1 
OUTTBL= 
OUT7770 



ADDR = 0F0 



ADDR = 0F3 



Figure 8 (page 13 of 16) 



TWX LINE GROUP CONFIGURATION 



LINE GROUP 



LINE 



DDNAME = 
DTWX3335 



ADDR = 0D1 



ADDR = C1 



ADDR = C4 



TERMINAL 



-0 



ADDR = E2 



Figure 8 (page 14 of 16) 

2740 SWITCHED LINE GROUP CONFIGURATION 

LINE GROUP LINE 



DDNAME = 
DD2740R 



ADDR = 061 



TERMINAL 



ADDR = E2 



LOGICAL NAME 

-+\ GENERATED I 

LOGICAL I 

' NAME I 

L I 

_J ' 

~n GENERATED I 

LOGICAL I 

| NAME | 

I I 

LOGICAL NAME 

* ' 

n GENERATED | 
| LOGICAL I 

—j NAME 

I I 

LOGICAL NAME 

J 1 

I GENERATED | 

| LOGICAL j 

__j NAME | 

I J 



Figure 8 (page 15 of 16) 



3.131 



1050 SWITCHED LINE GROUP CONFIGURATION 



LINE GROUP 



LINE 



TERMINAL 



LOGICAL NAME 



DDNAME= 
DD1050A 



I 
I 

L_ 



ADDR = 060 



POOL 



Figure 8 (page 16 of 16) 



ADDR = E2 



SUBPOOL 



SUBPOOL 



SUBPOOL 



SUBPOOL 



I GENERATED . 
I LOGICAL 

NAME I 

l I 



ELEANOR 



CAROL 



SHARRON 



T2741N1 



T2741N2 



T2741N3 



T2741N4 



SW1050 



SWPRNTR 2 
COMPT = 3 



SWTPPNCH 
COMPT = 3 



SWCDPNCH 
COMPT = 4 
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SYSTEM DEFINITION EXAMPLE 

This example illustrates the output from Stage 1 of IMS/360 system 
definition. The input to Stage 1 (that is, the control cards) is 
provided in the output listing as is a summary of the Data Communication 
and Data Base specifications, followed by the punch statements and 
warning comments at the end. 



LOC UBJfcCT CODE 



ADDRl ADDR2 STMT SOURCE STATEMENT 



I************* 

2 * 

3 * SAMPLE SYSTEM DEFINITION FUR IMS VERSION 2.3 

4 * 
>,*************•******•****•* 



F010CT71 10/02/72 

********************* 



******** 



IMSCTRL SYSTEM«IMVT,ALL),MAXREGN*(5,3CK,A,3), 
MCS«13,0fcSO2,MAXCLAS=5 

*, ALL IMS SYSTEM FUNCTIONS ARE SELECTEO 

*, FOR A MVT OS PROGRAMMING SYSTEM. 

♦, 5 REGIONS MAY OPERATE SIMULTANEOUSLY. 

*, THE NUMBER UF CUNCURRENTLY OPERATING 

», SUBTASKS WILL BE OPTIMIZED TO EQUAL THE 

*, NUMBER UF SPECIFIED COMMUNICATION LINES 

«, DIVIDED BY TWO. 

*, 5 TRANSACTION CODE 

♦, CLASSES WILL BE SUPPORTEO. 

IMSCTF SVCN0=(234,248,213),APNDG»IZ5,Z6I i 
CPLCG=25CC,C0RE=(, 20001 



23 

24 
25 

27 

28 
29 



DEFINE SYSTEM BUFFERS AND DATA SETS 



SPAKEA C0RE«13,1CGI,DASD=<6,150> 
BUFPOOLS PSa=8GOCfDM3*lCO0OtDBASE-l 1000 ,GENERAL= 5000 
MSGQUEUE DSETS=2314 



LOC OBJECT CODE ' AODRl ADDK2 STMT SOURCE STATEMENT 
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31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



47 

4b 



DEFINE DL/I DATABASES 



DATABASE DBD=DI31LM01 
DATABASE DBD=D131PH02 
DATABASE DB0*DI21PART 
DATABASE UBD=DS40JC01 
DATABASE CBD-CI41SK01 
DATABASE DBD=DI42SKC1 
DATABASE DBD-DH41SKC1 
DATABASE DBD=Dh41SKC2 
DATABASE DB0=DH41SK03 
DATABASE CBD=OX41SK01 
DATABASE CBD«0D41SKC1 
DATABASE D8D=0H41TS01 
DATABASE DBD=DH41TSC2 
DATABASE DBD=DH41TSC3 
DATABASE DBD-DX41TS01 
DATABASE CBD=DC41TS01 



51 * 

52 * DEFINE SAMPLE APPLICATION 

53 * 

54 APPLCTN PSB=DFSSAMC2 t PGMTYPE=(TP,i4) 

55 TRANSACT C0UE=PART, PJUY=(7, 10, 21 ,INQ=YES 

56 APPLCTN PSB»DFSSAM03 

57 TRANSACT C0DE=DSPI NV,PRTY= (7 , 10 ,2 ) , INQ=YES,MSGTYPE» ( , ,4) 

58 APPLCTN PSB=DFSSAMC4,PGMTYPE=(,,4) 

59 TRANSACT CODE«ADDPART, PRTY*C7,10 ,2 ) 

6C TRANSACT C0DE=ADDINV,PRTY«(7,10,2 I t MSGTYPE«( , ,5) 

61 TRANSACT COOE=DLETPART,PRTV=(7,10,2 > 

62 TRANSACT C0DE«DLET INVt PRTY»I7, 10 ,2 I .MSGTYPE-! , t 51 

63 APPLCTN PSB*DFSSAM05,PGMTYPE=(,,3) 

64 TRANSACT C0DE»CL0SE,PRTY=<7, 10 ,2) 

65 APPLCTN PSB=DFSSAM06 

66 TRANSACT C00E=0ISBURSE,PRTY=(7, 10, 2» ,MSGTYPE*I , ,2 » 

67 APPLCTN PSB»DFSSAM07,PGMTVPE=I,,2> 

68 TRANSACT CCDE'DSPALLI, PRTY*(7,10,2 ) , IN0=YES 
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BJECT CODE ADDR1 ADDR2 STMT 


SOURCE STATE^ 




70 * 






71 * 






72 * 






73 


APPLCTN 




74 


TRANSACT 




75 


TRANSACT 




76 


APPLCTN 




77 


TRANSACT 




78 


APPLCTN 




79 


TRANSACT 




80 


APPLCTN 




81 


APPLCTN 




82 


APPLCTN 




83 


APPLCTN 




84 


TRANSACT 




85 


APPLCTN 




86 


TRANSACT 




87 


" APPLCTN 




88 


TRANSACT 




89 


APPLCTN 




90 


APPLCTN 




91 


TRANSACT 




92 


APPLCTN 




93 


TRANSACT 




94 


APPLCTN 




95 


APPLCTN 




96 


TRANSACT 




97 


APPLCTN 




98 


TRANSACT 




99 


APPLCTN 




100 


TRANSACT 




1C1 


APPLCTN 




102 


TRANSACT 




103 


TRANSACT 




104 


TRANSACT 




105 


TRANSACT 




106 


APPLCTN 




107 


TRANSACT 




108 


APPLCTN 




109 


TRANSACT 
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DEFINE DL/I APPLICATIONS 

PSB=CONTEST 

C0DE=CGNV1,PRTY=(8,8I.PR0CLIM=(3.6C).SPA*8C,M0DE=SNGL 

C0DE=C0NV2.PRTY=<8.8).PR0CLIM=(3.60I. 

SPA«<80,C0RE)iM00E=SNGL 

PSB=ENQ0SK41 

C0DE=ENU,PRTY=(8,8> 

PSB=HDTASKC1 

C00E=SKD1,PRTY=<8.8) 

PSE=HHBLSK4i,PGMTYPE*BATCH 

PSB=HHBLSK42.PGMTYPE=BATCH 

PSB=HHBLSK43tPGMTYPE=BATCH 

PSB=HHTASK41 

C0DE=SKH1.PRTY=(8,8I 

PSB=HHTASK42 

C00E=SKH2.PRTY=I8,81 

PSB=HHTASK43 

C0DE*SKH3.PRTY=<8.8) 

PS6=HIBASK41.PGMTYPE=BATCH 

PSB=HITASK41 

C0DE=SKI1.PRTY«(8,8I 

PSB=HITASK42 

C0DE=SKI2,PRTY=«8,8) 

PSB=HS6ASK41.PGMTYPE=BATCH 

PSB=HIMAJC01 

C00E=TPPL1 .PRTV=(8.8 I 

PSB*HIMAJC02 

C0DE=TPPL2.PRTY=(8.8) 

PSB=HIMAJC03 

C0DE«TUBE»PRTY=(8,8),SPA=10C.M0DE=SNGL 

PSB=HIMAL«01 

CODE=DLI.PRTY=(5,10,5).PROCLIM=(10.10I. 

HSGTYPE=ISNGLSEG,RESPONSE) 

C0DE=ICS,PRTY=(5,12,5),PR0CLIM=I10.10GI.M0DE=SNGL 

CODE=lMS,PRTY=(2,5,10) t PROCLIM=<1.10C>.MSGTYPE=SNGLSEG 

CODE=DLN,PRTY=(0,8,3I,PROCLIM=(1C,10C) 

PSB=LKMDFSOO 

COOE=GFS,PRTY=<5,12,5),PROCLIM=(B,10CI,INQ=YES 

PSB=LKMDFS10tPGMTYPE=BATCH 

CODE=LKM,PRTY=(0f0l»HSGTYPE=SNGLSEG 



LCC OBJECT CODE 



AD0R1 ADDR2 STMT SOURCE STATEMENT 



FC10CT71 10/02/72 



111 


APPLCTN 


PSB=MR1 






112 


TRANSACT 


CO0E=MRl 


,PRTY=(8 


8) 


113 


APPLCTN 


PSB=MR2 






114 


TRANSACT 


C0DE=FR2 


PRTY=(8 


81 


115 


APPLCTN 


PSB=MR3 






116 


TRANSACT 


C0DE=MR3 


PRTY»<8 


8) 


117 


APPLCTN 


PSB=MR4 






lie 


TRANSACT 


CO0E=MR4 


PRTY=<8 


81 


119 


APPLCTN 


PSB=MR5 






12C 


TRANSACT 


C0DE=MR5 


PRTY=C8 


81 


121 


APPLCTN 


PSB=MR6 






122 


TRANSACT 


C0DE=MR6 


PRTY=(8 


8) 


123 


APPLCTN 


PSB=MR7 






124 


TRANSACT 


C0DE=MR7 


PRTY=(8 


81 


125 


APPLCTN 


PSB=MR8 






126 


TRANSACT 


C0DE=MR8 


PRTY=(8 


8) 


127 


APPLCTN 


PSB=MR9 






128 


TRANSACT 


C0DE=MR9 


PRTY=(8 


8) 



LOC OBJECT CODE 



ACDftl ADDR2 STMT SOURCE STATEMENT 
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130 
131 
132 



DEFINE COMMUNICATIONS NETWORK 



134 
135 
136 



* NONSWITCHED AND POINT-TO-POINT 2740 LINE GROUPS * 



138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 



LINECRP 0CNAME=DD274CS.UN1TYPE=274C 

LINE ADDR=CC2 

TERMINAL A0DR=C6 

NAME (CTRL. MASTER) 

NAME HOWARD 
TERMINAL ADDR=E2 
NAME LARRY 
LINE ADDR=0C3,M0DEL=(2.440) 

TERMINAL ADDR=45.BUFSIZF=248 

NAME M0DEL2 
TERMINAL ADDR=46 
NAME M0DEL2K 



151 
152 
153 
154 



LINEGRP DDNAME=D274CNSC,UNITYPE=(2740.N0STACTL) 
LINE AOOR=OC1 
TERMINAL ADDR=E2 
NAME T2740NSC 
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LCC OBJECT CODE 



ADDR1 A0UR2 STMT SOURCE STATEMENT 



156 
157 

158 

16C 
161 
162 

163 
164 
165 
166 
167 
168 
169 
17C 
171 
172 
173 
174 
175 



REMOTE 3270 LINE GRCUP 



F010CT71 1C/02/72 

00146010 
00146020 
00146030 



LlNEGRP ODNAME=UD3270R,UNITYPE-3270,C0DE=EBCDIC 00146050 

LINE ADDR=CC9 00146060 

TERMINAL ADDR=4G4U, UNI T=3275 t CUMPT=PTRl , X00146070 

FEAT=(, COPY, PFK) 00146C80 

NAME T3275 00146090 

NAMfc T3275P,C0MPT=PTR1 C0146095 

CTLUNIT ADDR=Cl,M0DEL«2 0C146100 

TERMINAL AO0R=4O,FEAT=< 2, COPY, PFK, CARD, PEN) 00146110 

NAME T327CA C0146120 

TERMINAL ADDR=C1 , FEAT =< 2, COPY, PFK, CARD, PEN ) 0G14613C 

NAME T3270H 00146140 

TERMINAL ACDR=C2, FEAT = ( 1 , COPY, PFK, CARD, PEN I 0C146150 

NAME T327UC 00146160 

TERMINAL ADDR=C3,UNI T=3284,FEAT=2, BUFSIZE=132 JC146170 

NAME T327CP1 00146180 

TERMINAL AC0R=C4,UMT = 3286 ,FE AT»2, BUFS IZE = 132 00146190 

NAME T327CP2 C0146200 



177 
178 
179 

181 
182 
183 
184 
185 
186 

188 
189 
19C 
191 



LOCAL 3270 LINE GROUP 



LlNEGRP OLNAME=DD3270L,UNITYPE=(3270,LOCALI 
LINE BUFSIZE=300 
TERMINAL ADCR=310,FEAT=2 
NAME T327CL1 

TERMINAL ADDR=312,FEAT= ( 1 , , PFK, CARD, PEN) 
NAME T327CL2 

LlNEGRP DDNAM6=0D3270L2,UNITYPE»(3270,LOCAL) 
LINE 

TERMINAL ADDR=31 1 ,FE AT=2 ,UNIT=3286 
NAME T3270P3- 



00 146220 
00146230 
OC 146240 

00146260 
00146270 
C0146280 
00146290 
00146300 
GG146310 

00146318 

00146325 
0C146330 



LOC OBJECT CODE 



A0CR1 ADDR2 STMT SOURCE STATEMENT 



F010CT71 10/02/72 



193 
194 
195 



* NONSHITCHED 1C5C LINE GROUP * 



197 
198 
199 
200 
201 
202 
203 



LlNEGRP DDNAME=DD1G50,UNITYPE=105C 

LINE A0DR=OCO 

TERMINAL ADDR=E2 ,FEAT= 10 52,COMPT=PTRl 

NAME PRINTER1,CQMPT=PTR1 
TERMINAL- ADDR=E4,FEAT=10 52,C0MPT= (PTR1, PTR2) 
NAME PRINTER2,C0MPT=PTR1 
NAME PRINTER3,C0MPT=PTR2 



205 
206 
207 



* REMOTE 2260 LINE GROUP * 



209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 



LlNEGRP U0NAME=DD226GR,UNITYPE = 2260 

LINE ADDR=OEO 

TERMINAL ADDR=4151 ,FEAT= 12265 ,2 ,WLA ) ,UNIT=2845 

NAME T2265XCL 

CTLUMT ADDR=4C,WLA=CYES,10 53) ,M0DEL=3 

TERMINAL ADDR=AO 

NAME AA 

TERMINAL ADDR=A1 

NAME AB 

TERMINAL ACDR=A4,UNI T=1053 

NAME ERNE 



LOC OBJECT CODE 



ADCR1 ADDR2 STMT SOURCE STATEMENT 

221 * * * 

222 * * 

223 * » * 



F010CT71 10/02/72 



277C LINE GROUP 



225 
226 
227 
228 
229 
230 



LlNEGRP DDNAME=DD277C,UNITYPE=2770,C0DE=EBCDIC 

LINE ADDR=iC8,FEAT=BUFEXP 

TERMINAL A0DR=C1,FEAT=(,BUFEXPI ,COMPT= (PTR, VI DEO, CARD ) 

NAME T277CP,CUMPT=1 

NAME T2770V,COMPT=2 

NAME T2770C,C0MPT=3 



232 
233 
234 



* MULTI-POINT 2980 LINE GROUP * 



236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 



LlNEGRP DDNAME=0D2980,UN1TYPE=298C 
LINE A00R=0CA 
CTLUMT A0DR=C1 

TERMINAL ADDR=40,FE AT= ( 1,4) 
NAME H0MER1 
NAME N29801 
NAME A29801 
TERMINAL ADDR=F1,FEAT=2 
NAME N29802 
NAME A29302 
NAME COMMON 

NAME H0MER4,COMPT=C0MM0N 
TERMINAL ADDR=F2,FEAT=(4,2 ) 



NAME 


ATELLER 


NAME 


BTELLER 


NAME 


JTELLER 


NAME 


KTELLER 


NAME 


H0MER2 



TELLER A WITH SUPERVISOR KEY 
TELLER B WITH SUPERVISOR KEY 



3. 135 



LOC OBJECT CGDE ADOR1 ADDR2 STMT SOURCE STATEMENT F01OCT71 10/02/72 

256 * ***** 

256 * * 2741 LINE CROUPS * 

257 * ***** 

259 LINEGRP nDNAME=U02741 ,UMTYPE=2741 ,CODE=CORRS 

26C LINE ADDR=C97 

261 TERMINAL AOOR=01 ,FEAT=NOINTRPT 

262 NAME T2741 

264 LJNEGRP DDNAME=0D2741S,UNITYPE=2741 , C 

CUDE=< CORPS, EBCDIC), FEAT =SWITCHED 

265 LINE ADDR=050 

266 TERMINAL A0DK=50 

268 LINEGRP DDNAME=UD2741S2,UNI TYPE=274 1 , C 

COUt=(CORRS,BCOI ,FEAT=SW ITCHED 

269 LINE ADDR=053 
27C TERMINAL ADDR=53 

272 * ***** 

273 * * 1030 LINE GROUP * 

274 * ***** 

276 LINEGRP DDNAME=DDK 30 ,UMTYPE=1030 

277 LINE ADDR=0E1,BUFSIZE=182 

278 TEKMA TERMINAL A0UR=64 ,UNI T=10 33 

279 NAME T1033A 

280 NAME T1C33B 

281 TERMINAL A0DR=64,LTERM=T 1033A 



LOC OBJECT CUUE ADDR1 ADDR2 STMT SOURCE STATEMENT F010CT71 1C/02/72 

283 * ******** 

284 * * LOCAL SYSOUT LINE GROUPS * 

285 * ****,**** 

287 LINEGRP DDNAME=SYSR0R1 , UNI TYPE=REAOER 

28E LINE ADDR=CB1 

( 289 TERMINAL LTERM=T1C33A 

291 LINEGRP DCNAMfc=SYSPRTl ,UNI TYPE=PP I NTER 

292 LINE ADUR=CB2 

293 TERMINAL 

294 NAME PRTSYS 

296 LINEGRP ODNAME=SYSTAPE ,UNI TYPE=TAPE 

297 LINE ADDR=0B5,BUFSIZE=220 

298 TERMINAL 

299 NAPE TAPESYS 

301 LINEGRP UNITYPE=SPOOL,DDNAME=(SYS1,SYS2,SYS3,SYS4) 

302 LINE BUFSIZb=8HC 

303 TERMINAL FEAT=AUTOSCH 

304 NAME SP1 

305 NAME SP2 



LUC ObJECT COUE ADDtl ADDK2 STMT SOURCE STATEMENT F010CT71 10/02/72 

30 7* ******* 

3uR * * 777C SWITCHED LINE GROUP * 

309 * ******* 

311 LINEGRP DDNAME=ARUDDGPl,UNITYPE=777C,0UTTBL=OUT777C 

312 LINE ADDR=OFO, BUFS I ZE=< 246, 246), FEAT=( ABB, REPEAT) 

313 TERMINAL ADCR=C1 

314 LINE ADDR=0F3,6UFSIZE=(50,2C0),FEAT=(A8C,NnREPEAT) 

315 TERMINAL ADDR=C4 

317 * ******* 

318 * * ThX ShITCHED LINE GROUP * 

319 * ******* 

-»21 LINEGRP CCNAME=DTWX3335,UNITYPE=TWX,FEAT=SWITCHED 

322 LINE ADDR=CD1 

323 TERMINAL ACDR=E2 

325 * ******* 

326 * * 274C SWITCHED LINE GROUP * 

327 * * * * * *** 

329 LINEGRP DDNAME=CD274CA,UNITYPE=2740,FEAT=SWITCHED 

330 LINE ADDR=061 

331 TERMINAL ACDP=E2 



3. 136 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F01OCT71 1C/02/72 



333 
334 
335 



» 105C SWITCHED LINE GROUP * 



337 
336 
339 

3*1 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 



LINEG8P DON AME=DD10 50A, UNI TYPE=1050,FEAT= SWITCHED 
LINE AD0R-C60 
TERMINAL AD0R-E2 



POOL 






SUBPOOL 






NAME 


ELEANOR 




NAME 


CAROL 




NAME 


SHARRON 




SUBPOCL 






NAKE 


T2741N1 




NAME 


T2741N2 




SUBPCCL 






NAME 


T2741N3 




NAME 


T2741N4 




SUBPOOL 






NAME 


SW1050 




NAME 


SWPRNTR2i 


iCQMPT> 


NAME 


SWTPPNCHi 


.COMPT' 


NAME 


SWCDPNCH, 


,COMPT> 



IMSGEN ASMPRT=0N,PR0CLIB=(YES,8I, 

LKPRT=(XREF,LISTI,SUFFIX=B, 

0BJDSET-IMS2.BLKS50, 

USERLIB-1CS.CL0D, 

PRTY=8, 

ASM=H, 

PAGE=YES, 

J0BCTL=(4,Df A,(82C t 6443) I 
TITLE «IMS SYSTEM DEFINITION. 



IMS SYSTEM DEFINITION. 



V2 R3 CLCO 



LOC OBJECT COOE 



ADDR1 ADDR2 STMT 

360 

362 
363 
364 
365 
366 
367 

369 

371 
372 
373 
374 
375 
376 
377 

379 

381 
382 

384 
385 

367 

389 
390 
391 
392 
393 

395 
396 



400 
401 
402 

404 

406 
407 
408 
409 



SOURCE STATEMENT 



F010CT71 10/02/72 



OS SYSTEM OPTIONS: 

MVT SYSTEM 

MCS OPTIONS: R0UTCDE=13 

DESC=2 
RESV'D SVC'S (234,248,213) 
RESV'D APNOG I IGG019Z5, IGG019Z6I 
RESV'D SQS (500,20001 

IMS/360 SYSTEM OPTIONS: 

5 REGIONS 

15 SUBTASKS 

23 CONCURRENT EXCTL REQUESTS 

25C0 CHECKPOINT LOG FREQUENCY 

GENERATE FOR ALL 

REGION JCL: 

CLASS»A,MSGCLASS=3,REGION=30K 



SPA OPTIONS: 
CORE: 



NUMBER=3 
SI2E=100 



DASO: NUMBER=6 
SIZE=150 

BUFFER POOLS: 

PSB - SIZE=8G00 
DMB - SIZE=10000 
DBASE - SIZE=11000 
GENERAL - SIZE=5000 
COMM. - SIZE=1C600 

FORMAT - SIZE»13C00 
FRE - NUMBER=13 

MESSAGE QUEUE OPTIONS: 

DATA SETS: IMS2.QBLKS DEVICE=2314 
IMS2.SHMSG DEVICE=2314 
IMS2.LGMSG DEVICE-2314 

SHUTDOWN MARGIN IS 30 RECORDS 

SHORT MESSAGE LENGTH IS 192 BYTES 
LONG MESSAGE LENGTH IS 576 BYTES 
BUFFERS: NUMBER=13 
SIZE=576 



3, 137 



IMS SYSTEM DEFINITION. V2 R3 CLOC 27MAY72 PAGE 14 

LCC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT F010CT71 10/02/72 

411 *, APPLICATION SPECIFICATIONS: 

413 *, PSB=0FSSATO2 PGMTYPE-TP 

414 *, OPTION=N/A 

416 *, TRANSACTION CODE - PART 

417 *, MSGTYPE=(MULTSEG,N0NRESPONSEI MODE=MULT 

418 * f PRTY=(7,10,2) 

419 *, PROCLIM=<65535, 655351 
42C *. CLASS=4 

421 *, EDIT=(UCI 

423 * f PSB=DFSSAMo3 PGMTYPE=TP 

424 *, OPTION=N/A 

426 *, TRANSACTION CODE - DSPINV 

427 * f MSGTYPE=(*ULTSEGiNONRESPONSEI MODE=MULT 
42H *, PRTY=(7,10,2I 

429 *t PR0CLIM=<65535, 65535) 

430 *, CLASS=4 

431 *t EDIT=(UC) 

433 *, PSB=DFSSAMC4 PGMTYPE=TP 

434 *i OPTION=N/A 

436 *, TRANSACTION CODE - ADDPAKT 

437 *, MSGTYPE=IMULTSEG,NONRESPONSE) MODE=MULT 
43B *, PRTY=(7,10t2) 

439 *, PK0CLIM=<65535, 655351 

44C *t CLASS=4 

441 *, EDIT=(UC) 

442 * t TRANSACTION CODE - ADCINV 

443 *, MSGTYPE=<MULTSEG,NONRESPONSE) HODE=MULT 

444 *t PRTY=I7,10,2) 

445 *t PR0CLIM=<65535. 65535) 

446 *, CLASS=5 

447 *, EDIT=(UC» 

446 *, TRANSACTION CODE - DLETPART 

449 *, MSGTYPE=(MULTSEG,NONRESPONSE) HODE=MULT 

45C *t PRTY=(7, 10,21 

451 *, PR0CLIM*(65535, 65535) 

452 *, CLASS=4 

453 *, FDIT=(UCI 

454 *, TRANSACTION CODE - DLETINV 

455 *, MSGTYPE=(MULTSEG,NONRESPONSEI HODE=MULT 

456 *, PRTY=(7,10,2) 

457 *, PR0CLIM=(65535t655351 

458 *. CLASS=5 

459 *» EDIT=(UCI 

461 *, PSB=0FSSAM05 PGMTYPE-TP 

462 *, OPTION=N/A 

464 *, TRANSACTION CODE - CLOSE 

465 *, MSGTYPE=(MULTSEG,NONRESPONSEI MODE=HULT 
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IMS SYSTEM DEFINITION. V2 R3 CLOO 27MAY72 PAGE 15 

LOC OBJECT CODE A0CR1 ADDR2 STMT SOURCE STATEMENT FC10CT71 10/02/72 

466 *. PRTY=(7,10,2) 

467 «t PR0CLIM=<65535, 655351 

468 *t CLASS=3 

469 *, EDIT=IUU 

471 *, PSB-DFSSAHC6 PGMTYPE=TP 

472 *t OPTION=N/A 

474 », TRANSACTION CODE - DISBURSE 

475 *t HSGTYPF=(MULTSEG,NONRESPONSE) MOOE=MULT 

476 », PRTY=(7,10,2I 

477 *, PROCLIM=(65535, 655351 

478 *i CLASS=2 

479 *, EDIT=(UC» 

481 *i PSB=DFSSAM07 PGMTYPE«TP 

482 *t OPTION-N/A 

484 *, TRANSACTION CODE - DSPALLI 

485 », MSGTYPE=(MULTSEG t NONRESPONSE) MODE=MULT 

486 *, PRTY=(7,10,2) 

487 »i PR0CLIM=(65535,65535) 

488 *, CLASS=2 

489 *, EOIT=(UCI 

491 *, PSB=CUNTEST PGMTYPE=TP 

492 ».t OPTION=N/A 

494 *i TRANSACTION CODE - C0NV1 

495 *. MSGTYPE=(MULTSEG t NnNRESPONSEI MODE=SNGL 

496 *, PRTY=(8, 8, 655351 

497 *, PR0CLIM=(3,60I 
49e *, EOIT-(UC) 

499 *, ************ CONVERSATIONAL ************ 

500 *, * * 

501 *. SPA=(80tDISK) 

502 *. * * 

503 *, **************************************** 

504 *t TRANSACTION CODE - C0NV2 

505 *i MSGTYPE=(MULTSFG f NONRESPONSEI MODE=SNGL 
5C6 *, PRTY=l8,8f65535t 

507 *, PR0CLIM=(3,60) 

508 *, E0IT=(UCI 

509 * f ************ CONVERSATIONAL ************ 

510 *t * * 

511 *t SPA=C80fC0RE) 

512 *t * * 

513 *, **************************************** 

515 *, PSB=ENU0SK41 PGMTYPE=TP 

516 *, OPTION=N/A 

5ie *, TRANSACTION CODE - ENQ 

519 *, MSGTYPE-IMULTSEG.NONRESPONSEI MODE=MULT 

520 *, PRTY=(8 t 8, 65535) 
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IMS SYSTEM ObFINITION. 



V2 R3 CLCO 



LOG 09JECT CODE 



AOUR1 ADDR2 STMT SOURCE STATEMENT 



FG10CT71 1C702/72 



521 
522 

524 
525 

527 

528 
525 
530 
531 

533 
534 



537 

538 



541 
542 



545 
546 



550 
551 
552 



557 

558 
55<5 



563 
564 

566 
567 
5ofl 
569 
570 

572 
573 



PROCLIM=( 6553 5,65535) 
EOIT=(UCI 

PSB=HDTASKC1 PGMTYPE=TP 
UPTI(JN = N/A 

TRANSACTION CCOE - SKD1 

MSGTYPE=(MULTSEG,NONRESPONSE ) MODE=MULT 

PRTY=<8,8,65535) 

PR0CLIM=<65535, 65535) 

EDIT=(UCI 

PSB=HHBLSK4l PG*TYPE = BATCH 
OPTIUN=N/A 



PSB = HHBLSK42 PGMT YPE=BATCH 
OPTION=N/A 



PSB=hH8LSK43 PGMTYPE=DATCH 
QPTION=N/A 



PS6=HHTASK41 PG*TYPE=TP 
OPTION=N/A 

TRANSACTION CODE - SKH1 

MSGTYPE=(MULTSEG»NCNRESPGNSb) MODE=MULT 
PRTY=(8,8, 65535) 
PR0CLIM=<65535, 65535) 
EDIT=(UC) 

PSB = hHTASK<,2 PGMTYPb=TP 
0PT10N=N/A 

TRANSACTION CCDE - SKH2 

MSGTYPE=( MULTSfcG.NONRESPONSE) MODE=MULT 
PRTY=(8, 6, 655351 
PR0CUM=(65535, 65535) 
ED1T=(UC) 

PSB=hHTASK43 PGMTYPC=TP 
0PTIUN=N/A 

TRANSACTION CCOE - SKH3 

KSGTYPE=(MULISEG,NONRESP(JNSE) M0DE=MULT 

PRTY=(8,8,65535) 

Pk0CLIM=<65535, 65535) 

EOIT=(UC) 

PSB=HI8ASK41 PGMTYPE=BATCH 
0PTIUN = N/A 
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[MS SYSTEM DEFINITION. V2 R3 CLOO 27MAY72 PAGE 17 

LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT FC10CT71 1C/02/72 

576 *, PSB=HITASK41 PGMTYPE=TP 

577 *, OPTICN=N/A 

579 »t TRANSACTION CODE - SKll 

580 *, MSGTYPE = ( KILT SEG, NONRESPGNSE I MODE = MULT 

581 *. PRIY=(8,8, 65535) 

582 *, PR0CLIM=(65535, 65535) 

583 *t EOIT=(UC) 

585 », PSB=HITASK42 PGMTYPE=TP 

586 *t UPTIUN=N/A 

588 *, TRANSACTION CODE - SKI2 

589 *, MSGTYPE=(MULTSEG,NGNRESPONSEI MOOE=MULT 
59C *» PRTY=<8, 8 ,655351 

591 *, PRCCLIM=< 65535,655351 

592 *, EDIT=IUC) 

594 *, PS8=HSBASK41 PGMTYPE=8ATCH 

595 +, OPTION=N/A 

598 *, PSB=HlMAJCul PGMTYPE=TP 

599 *, UPTION=N/A 

601 *, TRANSACTION CODE - TPPL1 

602 *, MSGTYPE=(MULTSEG,NONRESPONSE> Mrj|)F = MULT 

603 *, PRTY=(8,B, 65535) 

604 *, PRCCLIM=<65535, 65535) 

605 *, EDIT=(UC) 

607 *, PSB=HIMAJC02 PGMTYP£=TP 

6C8 *, OPTION=N/A 

61C *, TRANSACTION COCE - TPPL2 

611 *, MSGTYPc=(MULTSEG,NONRESPCNSE) MOCE=MULT 

612 *, PKTY=(8,8,65535) 

613 *, PR0CLIM=I65535, 655351 
61<t *, EDIT=(UCI 

616 *, PSB=HIMAJC03 PGMTYPE=TP 

617 *, 0PUON = N/A 

619 *, TRANSACTION CODE - TUBE 

62C *, MSGTYPE=( MULTSEG, NONRESPONSE ) MODE=SNGL 

621 *, PRTY=(8,8,65535> 

622 *, PR0CLIM=(65535, 65535 ) 

623 *, FDIT=(UC) 

624 *, ************ CONVERSATIONAL ************ 
62 5 *, * * 

626 *, SPA=(10C,0ISKI 

627 *, * * 

628 *, **************************************** 

63C *. PSB=HIMALM01 PGMTYPE=TP 
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IMS SYSTEM DEFINITION. V2 R3 CLCO 27MAY72 PAGE 18 

LOC OBJECT CODE ADDR1 ADDK2 STMT SUURCE STATEMENT F010CT71 10/02/72 

631 *t OPTION=N/A 

633 *t TRANSACTIUN CCOE - OL I 

634 *, MSGTYPE=l SNGLSEG. RESPONSE) MODE=MULT 

635 *, PRTY=(5,U,5) 

636 *t PROCLIM=( 1C10) 

637 *, EDIT=(UC) 

638 *, TRANSACTIUN CCDE - ICS 

639 *t MSGTYPE=(MULTSEG,NONRESPUNSEI MODE=SNGL 
64C *, PRTY=(5,12,5) 

641 *, PROCLIM=l 1C10GI 

642 *, EOIT=I UC ) 

643 *f TRANSACTION CODE - IMS 

644 *, MSGTYPE=( SNGLSEG. NONRESPONSE) MODE=MULT 

645 *, PRTY=(2, 5,101 

646 *, PR0CLIM=(1,1GC) 

647 *, EOIT=(UCI 

648 *, TRANSACTION CODE - OLN 

649 *, MSGTYPE=(MULTSEG,NONRESPONSE) MODE=MULT 
65C *, PRTY=(C,B,3) 

651 *, PKOCLIM=( 10,100) 

652 *, EOIT=(UC( 

654 *, PSB=LKMDFSGC PGMTYPE=TP 

655 *, OPTIGN=N/A 

657 *, TRANSACTION CODE - DFS 

65H *, MSGTYPE=(MULTSEG,NONRESPONSE) MODE=MULT 

659 *, PRTY=(5,12,5) 

660 *, PROCLIM=(8,10CI 

661 *, EDIT=(UCI 

663 *, PSB = LKMDFS1C P GMTYPE=BA TCH 

664 *, OPTION=N/A 

666 *, TRANSACTION COOE - LKM 

667 *, MSGTYPE=(SNGLSEG,NONRESPONSE) MODE=MULT 
66B *, PRTY=(C, 3, 655351 

669 *, PROCLIM=(65535, 65535 1 

67L *, F.IMT = (UC) 

672 *, CSR=MR1 PGMTYPb=TP 

673 *, OPTION=N/A 

675 *, TRANSACTION CCDE - MR1 

676 *, MSGTYPE=(MULTSEG,NONRESP0NSE) MUOE=MULT 

677 *, PRTY=(8,8,65535( 

678 », PR0CLIM=(65535, 65535) 

679 *, EOIT=(UC) 

681 *, PSB=MR2 PGMTYPE=TP 

682 *, OPTIUN=N/A 

684 *, TRANSACTION CODE - MR2 

685 *, MSGTYPE=(MULTSEG,NONRESPONSE) MO0E=*ULT 
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MS SYSTEM DEFINITION. 



V2 R3 CLOC 



LOC JSJECT CODE A0CR1 AUDP2 STMT SOURCE STATEMENT 

666 *. 

687 *. 

688 *t 



F01OCT71 10/02/72 



PRTY=(8,R, 65535) 
PRUCLIM = ( 65535, 65535) 
EDIT=«UC) 



690 
691 



PGMTYPE=TP 
0PT10N=N/A 



693 
694 
695 
696 
697 



TRANSACTION COOE - MR3 

MSGTYPEMMULTSEG.NONRESPONSEI 
PRTY=(8, 8, 655351 
PR0CLIM=(65535, 65535) 
EDIT=(UC) 



699 
7C0 

702 
7U3 
704 
705 
7C6 



3=MK4 PGMTYPE=TP 

OPTI0N = N/A 

TRANSACTION COOE - MR4 

MSGTYPE={ MULTSEG.NONRESPONSEI 
PRTY=<8,8,65535) 
PROCL I M=( 65535, 65535) 
EOIT=(UC) 



7C8 
709 



PGMTYPfc=TP 
UPT10N=N/A 



711 
712 
713 
714 
715 



TRANSACTION CODE - MR5 

MSGTYPE=(HULTSEG,NONRESPONSE) 
PRTY=<8,8,65535) 
PR0CLIM=(65535, 655351 
EDIT=IUC) 



717 
718 



PGMTYPE=TP 
OPTION=N/A 



72C 
721 
722 
723 
724 



TRANSACTION COOE - MR6 

MSGTYPE=(MULTSEG,NONRESPONSE) 
PRTY=(8,8,65535) 
PR0CLIM=(65535, 655351 
EDIT=(UC) 



726 
727 



PGMTYPE=TP 
OPTION=N/A 



729 
730 
731 
732 
733 



TRANSACTION CODE - MR7 

MSGTYPE=(MULTSEG,NONRESPONSEI 
PRTY=(8,8,65535) 
PROCL I M=( 65535, 65535) 
EDIT=IUC) 



735 
736 



PGMTYPE=TP 
OPTI ON=N/A 



738 
739 
740 



TRANSACTION CODE - MR8 

MSGTYPE=< MULTSEG.NONRESPONSE ) 
PRTY=(8, 8, 655351 



IMS SYSTEM DEFINITION. 



V2 R3 CLCO 



LCC ObJECT CUDE 



ADDR1 A0DR2 STMT SOURCE STATEMENT 



FG10CT71 10/02/72 



741 
742 

744 
745 

747 
748 
749 
75C 
751 



PR0CLIM=<65535, 65535) 
EDIT=(UC) 

1 = MR9 PGMTYPE=TP 
0PT10N=N/A 

TRANSACTION CODE - MR9 

MSGTYPE=(MULTSEG,NONRESPCNSE) MODE = MULT. 

PRTY=(3,8,65535) 

PR0CLIM=(65535, 65535) 

£DIT=(UC) 



753 
754 
75b 
756 
757 
758 
759 
76C 
761 
762 
763 



**************************************** 

* * 

* THE FOLLOWING TRANSACTION CODES * 
» ARE DESIGNATED AS INQUIRY ONLY: * 

* * 

* PART * 

* OSPINV * 

* DSPALLI * 

* DFS * 

* * 
**************************************** 



3. 1U3 



IMS SYSTEM DEF INITION. 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT 
765 
767 
769 
771 
773 
775 
777 
779 
781 
783 
785 
787 
789 
791 
793 
795 
797 



SOURCE STATEMENT 



V2 R3 CLOC 27MAY72 PAGE 21 

KHOCT71 1C/C2/72 



DATABASE SPECIFICATIONS: 

CBO=DI31LMGl 
CBO=OI31PHC2 
CBD=CI21PAPT 
DBD=DS*GJCG1 
CBO=DI*1SK01 
CBD=DI*2SK01 
CBD=Dh*lSK01 
CBD=Oh*lSK02 
CBD=DI-*1SKC3 
CbU=DX*lSK01 
DBD=DD*1SK01 
CBD=DH*1TS01 
CBD=Uh*lTSC2 
CB0=DH41TSG3 
C8D=0X*1TSC1 
DBD=DD*1TSC1 



IMS SYSTEM DEFINITION. 



V2 R3 CLOO 



LOC OBJECT CODE 



AODRl ADDR2 STMT 

799 

8ul 

803 
bG* 



8C7 
808 



SOURCE STATEMENT 



FG10CT71 K/02/72 



81t 
811 



814 

816 
817 
81B 
819 
820 
821 

823 
82* 



827 

828 



831 
832 



83* 
835 



839 
8*C 



8*2 
843 



8*6 
8*7 



851 
852 



COMMUNICATION SPECIFICATIONS: 

LINE 1 SYSTEM/36C OPERATOR'S CONSOLE. 



TERMINAL 1 

HTOR 



ADOR=N/A EDIT=ULC 
EDIT=(NO,ULC) 



LlNEGRP 1 CDNAME=D027*JS UNITYPE=27*C 
FEAT=(NONS WITCHED, POLL » 



LINE 2 A0DR=0C2 

TYPLIST=WRAPLST 



TERMINAL 1 ADDR=C6 EDIT=NO 

********** MASTEP TERMINAL ********** 
** ** 

CTRL EDIT=(NO,ULCI 



** 



** 



************************************* 

HOWARD EDIT=(NO,ULC) 



TERMINAL 2 AUDR=E2 ECIT=NO 
LARRY EDIT=(NO,ULCI 



LINE 3 ADDR=0C3 

TYPLIST=WKAPLST 



TERMINAL 1 
M00EL2 



TERMINAL 2 
M0DFL2K 



ADDR=*5 EDIT=NO 
EUIT=(NQ,ULCI 



ADDR=*6 EOIT=NO 
ECIT=(NO,ULCI 



DDNAME=D27*0NSC UNI TYPE=2 7*C , NSC 
FEAT=(NONSWITCHE0,POLL) 



ADDR=uCl 
TYPLIST=N/A 



TERMINAL 1 
T27*CNSC 



ADDR=E2 EDIT=NO 
EDIT = (NO,ULC) 



DDNAME=DD327GR UNITYPE = 327C 
FEAT=(NONSWITCHEO,AUTCPOLLI 



3. 1ttU 



IMS SYSTEM DEFINITION. 



ICC GiiJcCT COUF ACCR1 AOUK2 STMT SOURCE STATEMENT 



Sb5 



BfaC 



865 



867 
868 



ht:. 

871 



873 
874 



876 
877 



rt83 
H84 



ri87 
88R 



89C 
B91 



897 

898 



9C1 

yc.2 



906 
9C7 
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LINE 5 AUDR=CC9 

TYPLIST=AUTO*LST 



TERMINAL I 
T3275 
T3275P 



TERMINAL 2 
T3270A 



TERMINAL 3 
T327CB 



TERMINAL 4 
T3270C 



TERMINAL 5 
T3270P1 



TERMINAL 6 
T327CP2 



ADDR = 4G4(. EDIT = NO 
EOIT=(NOtULCl 
EDIT=(NO,ULC) C0MPT=PTR1 



A0DR=40 EDIT=NO 
EDIT=(NOiULCI 



ADDR=C1 EDIT=NO 
fcD!T = (NOtULCI 



AD0R=C2 E0IT=NO 
EDIT=(NO,ULC» 



ADCR=C3 EDIT=NO 
E0IT = (NO,ULCI 



ADDR=C4 EDIT=NO 
EDIT = (NO f ULC) 



LINEGRP 4 D0NAME=UU3270L UNI TYPE=32 70 i LOCAL 



AODR=N/A 
TYPLIST=N/A 



TERMINAL 1 ADDR=310 EOIT=NO 
T327GL1 EOIT=(NO,ULC) 



TERMINAL 2 ADDR=312 EOIT=NO 
T327CL2 EDIT=(NO,ULCI 



LINEGRP 5 DDNAME=0D3270L2 UNI TYPE=327u t LOCAL 



LINE 7 ADDR=N/A 

TYPLIST=N/A 



TERMINAL 1 A0DR=311 EOIT=NO 
T327CP3 EDIT=(NO,ULC) 



LINEGRP 6 OONAME=DD10 5G UNITYPE=105C 
FEAT=(NONSWITCHEDtPOLL) 



3. 145 



IMS SYSTEM DEFINITION. V2 R3 CLOG 27MAY72 PAGE 24 

LOC OBJECT CODE ADDK1 ADDR2 STMT SOURCE STATEMENT F01OCT71 10/02/72 

909 *t LINE 8 AODR=OCO 

91C *. TYPLIST=WRAPLST 

913 *. TERMINAL 1 ADDR = E2 EDIT=NO 

914 *t PRINTER1 EDIT=(NO.ULCJ C0MPT=PTR1 

916 * f TERMINAL 2 ADDR=E4 EOIT=NO 

917 *, PRINTER2 EDIT=(NOtULCI C0MPT=PTR1 

918 *. PRINTER3 EDIT=I NO.ULC ) C0MPT=PTR2 

922 *t LINEGRP 7 OONAME=002260R UNITYPE=2260 

923 *» FEAT=(NONSWITCHED,POLLI 

925 *, LINE 9 ADDR=OEO 

926 *. TYPLIST=WRAPLST 

929 *, TERMINAL 1 ADDR=4151 EDIT=N0 

930 *. T2265XCL EOI T=( NO.ULC I 

932 *. CTLUNIT AD0R=40 WLA=YES 

934 *. TERMINAL 2 ADOR=AO EDIT=NO 

935 *. AA EDIT=(NO.ULC) 

937 *. TERMINAL 3 A00R=A1 EDIT=NO 

938 *. AB EDIT-(NO.ULCJ 

94C *. TERMINAL 4 ADDR=A4 tOIT=NO 

941 *. ERNE EDIT=(NO,ULC) 

945 », LINEGRP 8 00NAME=DD277G UNITYPE=2770 

946 *, FEAT=(NONSWITCHE0,AUTOP0LLI 

946 *, LINE' 10 ADDR=0C8 

949 *, TYPLIST=AUTOWLST 

952 *. TERMINAL 1 A00R=C1 EDIT=NO 

953 *. T277CP EOIT=(NO.ULC) C0MPT=1 

954 *. T2770V EOIT=(NO,ULC » C0MPT=2 

955 *, T277CC EOI T=(NO, ULCI COMPT-3 

959 *. LINEGRP 9 DDNAME=DD29SG UNITYPE=298C 

96C *. FEAT=(NONSWITCHED,AUTOPnLL) 

962 *, LINE 11 ADDR=OCA 

963 *, TYPLIST=AUTOWLST 
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AODR1 ADDR2 STMT SOURCE STATEMENT 
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965 



967 
968 
969 
970 



TERMINAL 1 
HUMERI 
N298C1 
A29B01 



ADDR-40 EDIT- 
EDIT«(NO,UC» 
EOIT-(NO,UCI 
EDIT'INO.UCI 



972 
973 
97* 
975 
976 



TERMINAL 2 ADDR«F1 EDIT'NO 

N29802 EDIT«(NO,UC» 

A298C2 EDIT=(NO,UC» 

COMMON EDIT-INO.UC) 

HOMERS EDIT«(NO,UC) COMPT'CCMMON 



978 
979 
980 
981 
982 
983 



TERMINAL 3 
ATELLfcP 
BTELLER 
J TELLER 
KTELLER 
H0MER2 



ADDR-F2 EDIT*NO 
EDIT»INO,UC) 
EDIT'INO.UCI 
EDIT'INO.UCI 
EOIT=(NO,UCI 
EDIT«(NO,UC 1 



987 
988 



LINEGRP 1C 



DDNAME»DD2741 UNITYPE»2741 
FEAT'tNONSWITCHED.POLLI 



990 
991 



ADDR»097 
TYPLIST»N/A 



994 
995 



TERMINAL 
T2741 



1 ADDR=N/A EDIT=NO 
EDIT-INO.ULCI 



999 
l&GG 



DDNAME=0D2741S UNITYPE=2741 
FEAT=ISWITCHED> 



1002 
1003 



LINE 13 AODR=C50 

TYPLIST*N/A 



10C6 
1007 



TERMINAL 1 AODR=50 EDIT'NO 
INQUC393 EDIT=CNO,ULCI 



1011 
1012 



LINEGRP 12 



DDNAME»DD2741S2 
FEAT=( SWITCHED! 



UNITYPE=2741 



1014 
1015 



ADDR-053 
TYPLIST=N/A 



1018 
1019 



TERMINAL 1 ADDR=53 EDIT«NO 
INQUC401 EDIT«(NO,ULCI 
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LOT OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT F010CT71 10/02/72 

1023 ♦, LINEGRP 13 D0NAME=DD1030 UNITYPEM030 

1024 *t FEAT«(NCNSWITCHED f POLLI 

1C26 *t LINE 15 A0DR=0E1 

1027 *, TYPLIST-WRAPLST 

1030 *i TERMA TERMINAL 1 ADDR=64 EDIT*NO 

1031 *, T1033A EDIT»(NOiULCI 

1032 *, T1033B EDIT»( NO.ULC) 

1034 *, TERMINAL 2 ADDR*64 EOIT«NO 

1035 *t LTERM»T1033A 

1039 *, LINEGRP 14 DDNAME=SYSRDR1 UNITYPE=LOCAL-READER 

1040 », FEATMNONSWITCHED.POLL) 

1042 *, LINE 16 AD0R-0B1 

1043 *t TYPLIST=N/A 

1046 *, TERMINAL 1 ADOR=N/A EDIT»NO 

1C47 *t LTERM-T1033A 

1051 *t LINEGRP 15 DDNAME-SYSPRT1 UNITYPE=LOCAL-PRINTER 

1C52 *. FEAT-INONSWITCHEO,POLL» 

1054 *> LINE 17 A0DR«0B2 

1055 *t TYPLIST«N/A 

1058 *, TERMINAL 1 ADDR«N/A EDIT-NO 

1C59 *t PRTSYS EDIT=MNO,ULCI 

1063 *, LINEGRP 16 DDNAME»SYSTAPE UNITYPE-LOCAL-TAPE 

1064 *. FEAT-INONSWITCHEO.POLL) 

1066 * t LINE 16 ADDR«0B5 

1067 *, TYPLIST=N/A 

1070 *, TERMINAL 1 AOOR-N/A EDIT-NO 

1071 *i TAPESYS EOIT-CNOtULCI 

1075 *t LINEGRP 17 0CNAME-SYS1 UNITYPE=SPOOL 

1076 *, 0DNAME-SYS2 

1077 * t DDNAME-SYS3 
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LOC OBJECT CODE 



ADCR1 ADDR2 STMT SOURCE STATEMENT 



1078 
1079 



1081 
1082 
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DDNAME=SYS4 
FEAT=«NONSWITCHED,POLLI 



LINE 19 ADDR-COG 

TYPLIST=N/A 



1085 
1086 
1087 



TERMINAL 1 ADDR-N/A EDIT-NO 
SP1 EDIT»INO,ULC» 

SP2 EOIT»(NOfULCl 



1091 
1092 



109* 
1095 



LINEGRP 21 DDNAME'ARUDDGPl UNITYPE-7770 
FEAT=(SWITCHEDI 



LINE 2C ADDR-OFO 

TYPLIST-N/A 



1098 
1099 



TERMINAL 1 AD0R«C1 EOIT=NO 
INQU0464 EDIT»(NO,ULC) 



1102 
11C3 



LINE 21 ADDR=0F3 

TYPLIST=N/A 



11C6 
1107 



TERMINAL 1 ADDR-C4 EDIT-NO 
INQU0469 EDIT=(NO,ULCI 



1111 
1112 



1114 
1115 



LINEGRP 22 DDNAME-DTWX3335 UNITYPE-TWX 
FEAT=(SWITCHED» 



LINE 22 ADDR-CD1 

TYPLIST=IDLST 



1118 
1119 



TERMINAL 1 ADDR»E2 EOIT=NO 
INQU0477 EDIT=(NO t ULCI 



1123 
1124 



1126 
1127 



LINEGRP 23 UDNAME=DD2740A UNITYPE=2740 
FEAT=(SWITCHED» 



LINE 23 ADDR«061 

TYPLIST=DIALST 



1130 
1131 



TERMINAL 1 ADDR=E2 EDIT=NO 
INQU0485 EDIT«(N0,ULC1 



IMS SYSTEM DEFINITION. 
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT 



1135 
1136 
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1138 
1139 



LINEGRP 24 0DNAME=DD1050A UNITYPE=1050 
FEAT=(SWITCHEO) 



LINE 24 ADDR=060 

TYPLIST=DIALST 



1142 
1143 



TERMINAL 1 ADDR=E2 EDIT=N0 
IN0U0493 E0IT=(N0,ULCI 



1146 
1147 
1148 
1149 
1150 

1152 
1153 
1154 
1155 

1157 
1158 
1159 

1161 
1162 
1163 

1165 
1166 
1167 
1168 
1169 



***»**»*♦ ************ 
** ♦* 

DIAL POOL 
»* *» 

********************* 

TERMINAL 1 *»** SUBPOOL **** 

ELEANOR EDIT=(NO,ULC) 

CAROL EDIT»INO t ULCI 

SHARRON EOIT'INO.ULCI 

TERMINAL 2 **** SUBPOOL **** 
T2741N1 EOIT=<NO,ULC) 
T2741N2 EOIT«(NO,ULCI 

TERMINAL 3 »*** SUBPOOL **** 
T2741N3 EDIT=(NO,ULC) 
T2741N4 EOIT"(NO,ULCI 

TERMINAL 4 **** SUBPOOL **** 
SW1050 EDIT=(NO,ULC) 
SWPRNTR2 EDIT=(NO,ULCI C0MPT»PCH1 
SWTPPNCH EDIT«(NO,ULCI C0MPT=PCH1 
SWCOPNCH EDIT»tNOtULC» C0MPT=PCH2 
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1174 + 


PUNCH • 


1175* 


PUNCH ■ 


1176* 


PUNCH • 


1177* 


PUNCH • 


1178 + 


PUNCH • 


1179* 


PUNCH • 


1180* 


PUNCH • 


1181* 


PUNCH • 


1182 + 


PUNCH ' 


1183 + 


PUNCH • 


1184* 


PUNCH • 


1185 + 


PUNCH • 


1186 + 


PUNCH • 


1187* 


PUNCH • 


1188 + 


PUNCH • 


1189 + 


PUNCH • 


119C + 


PUNCH • 


1191 + 


PUNCH • 


1192 + 


PUNCH • 


1193* 


PUNCH • 


1194 + 


PUNCH • 


1195* 


PUNCH • 


1196 + 


PUNCH ■ 


1197* 


PUNCH • 


1198 + 


PUNCH • 


1199 + 


PUNCH • 


1200 + 


PUNCH • 


1201* 


PUNCH • 


1202 + 


PUNCH • 


1203 + 


PUNCH • 


120A + 


PUNCH • 


1205 + 


PUNCH • 


1206+ 


PUNCH • 


1207* 


PUNCH ■ 


1208* 


PUNCH • 


1209* 


PUNCH • 


1210* 


PUNCH • 


1211* 


PUNCH • 


1212* 


PUNCH • 


1213 + 


PUNCH • 


1214* 


PUNCH ' 


1215 + 


PUNCH ■ 


1216* 


PUNCH • 


1217+ 


PUNCH • 


1218 + 


PUNCH • 


1219* 


PUNCH ■ 


122C + 


PUNCH • 


1221 + 


PUNCH ■ 


1222* 


PUNCH • 


1223 + 


PUNCH • 


1224 + 


PUNCH • 


1225* 


PUNCH • 


1226* 


PUNCH • 



■//IMSGEN1 JOB (82C t 6443),IMS,MSGLEVEL=l,MSGCLASS=A,CLASX 
S«D t PRTY=8' 
//STEP1 EXEC PGM=IEBCOPY» 
//SYSPRINT OD SYSOUT=A« 

//SYSUT1 DO DSN=IMS2.GE^LIB,DISP=SHR• 

//SYSUT2 OD DSN=IMS2.MACLIB.0ISP«0LD" 

//SYSUT3 OD UNIT=SYSDA,SPACE=(80,U0,15I) • 

//SYSUT4 DD UNIT=SYS0A,SPACE=C256,(5,1I) ' 
//SYSIN OD *• 

COPY CUTD0=SYSUT2, IN0D=SYSUT1 • 

SELECT MEMBER=ALPHA • 

SELECT MEMBER=CI'0DN • 

SELECT MEMBER=CKOPT • 

SELECT HEMBER=CONVERT • 

SELECT MEMBER=DATASET • 

SELECT MEMBER=OBD • 

SELECT MEMBER=OBOGEN • 

SELECT MEMBER=OBDLRECL • 

SELECT MEMBER=DEVSIZE ' 

SELECT MEHBER=DMAN • 

SELECT MEMBER=EXPARMS • 

SELECT MEMBER=EXTOBD • 

SELECT MEMBER=FIELO • 

SELECT MEMBER=FINISH • 

SELECT MEMBER=FLO • 

SELECT MEMBER=FLOK • 

SELECT MEM8ER=GL0BALS • 

SELECT MEMBER=HIERSEQ • 

SELECT MEMBER=LCHILO • 

SELECT MEMBER=PCB • 

SELECT MEMBER=PCBPOV • 

SELECT MEMBER=PSBGEN • 

SELECT HEMBER=SEGM • 

SELECT MEMBER=SEGPTRS • 

SELECT MEMBER=SENSEG ' 

SELECT MEMBER=SETFLGS • 

SELECT MEMBER=SETFREO • 

SELECT HEMBER=SOURSEG • 

SELECT MEMBER=XDFLD ■ 

SELECT MEMBER=CURSOR« 

SELECT MEMBER=OEV« 

SELECT MEMBER=OFLD« 

SELECT MEMBER=OFSERR« 

SELECT MEMBER=OIV' 

SELECT MEMBER=DPAGE" 

SELECT MEMBER=FMT« 

SELECT MEMBER=FMTEND« 

SELECT MEMBER=LPAGE« 

SELECT MEMBER=MFLD« 

SELECT MEMBER=MSG' 

SELECT MEMBER=MSGEND« 

SELECT MEMBER=NUM' 

SELECT MEMBER=SEG« 

SELECT MEMBER=SUBLT' 
//STEP2 EXEC PGM=IEBUPOTE t • 
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1227+ 
1228* 
1229+ 
1230* 
1231* 
1232* 
1233* 
1234 + 
1235* 
1236* 
1237* 
1238 + 
1239+ 

♦ 
1240 + 
1241* 

♦ 
1242* 

1243 + 

1244 + 
1245* 
1246* 
1247 + 

♦ 
1243* 
1249* 

♦ 
1250* 
1251 + 
1252* 
1253* 

♦ 
1254* 
1255* 

♦ 
1256* 
1257 + 
1258* 
1259* 
126C* 

♦ 
1261* 
1262* 

♦ 
1263* 
1264 + 
1265* 
1266* 
1267* 

♦ 
1268 + 
1269+ 
127G* 
1271* 
1272 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



DL/I LANGUAGE INTERFACE" 



DL/I LANGUAGE INTERFACE' 



ADO NAME-DLIBATCH' 

NUHBER NEW1=10,INCR=10' 

PROC MBR«TEMPNAME,S0UT»A,PSB«,BUF»8,SPIE*C,TX 



// PARM-NEW 

//SYSPRINT OR SYSOUT=A' 

//SYSUT2 DO DSN=IHS2.PR0CLIB,0ISP«0L0 

//SYSIN CD DATA' 

./ ADO NAMF-CBLTDLI' 
LI6RARY RESLIBICBLTDLII 
ENTRY CLITCBL' 

./ ACD NAKE-PLITDLI' 
LIBRARY RESL1BIPLIT0LI ) 
ENTRY IHESAPD' 

./ 

./ 

// 

ST-( 

//G 

// 
T'" 

//STEPLIB DO DSN*IMS2.RESLIB,DISP«SHR' 

// 00 DSN»IMS2.PGMLIB,DISP«SHR' 

//IMS DO DSN»IHS2.PSBLIB,DISP=SHR' 

// DU DSN=IMS2.0BDLIB,UISP*SHR' 

//DFSLCGTT DO 0SN-IMS2. LCGT,DISP»SHR' 

//IEFRDER DD DSN= IMSLOG,DISP«l ,KEEPI ,VOL»( 
2400tiDEFERIt' 

// 0CB*(RECFM»VBS,BLKSIZE=14ub,LRECL«1400,BUFN0»l )• 

//SYSUDUMP DD SYS0UT=££S0UT,DCB= (RECFM=FBA,LRECL«121,BLX 
KS1ZE=6C5),' 

// SPACE- (605 1 1 5LU, 500 1 ,RLSE.,RCUNO) ■ 



EXEC 



PGM=DFSRRCO0,REGION=130K,« 
PARM= ,, DLI.££MBR,CePSBtECBUF.CeSPIE(:tTESX 



,,99|,UNIT»(X 



./ 
./ 
// 
ST-C 
//G 
// 



ADD NAME*DBBBATCH» 
NUMBER NEWl=10 t INCP-10' 
PROC MBR=TEMPNAME,SOUT= 



A,PSB=,BUF«8,SPIE=0,TEX 



PGM«DFSRRC00 f REGION=130K, f 
PARM="0BB,£tMBR,££PS8,££BUF, ££SPIE££TESX 



//STEPLIB DO 0SN»IMS2.RESLIB.DISP=SHR» 

// DD DSN=IMS2.PGMLIB f DISP=SHR> 

//IMSACB 00 DSNMMS2.ACBLIB.DISP-SHR' 

//DFSLOGTT OD 0SN=IMS2.LCGT,DISP=SHR • 

//IEFRCER CD CSN* IHSLOG,DISP*( .KEEP) f VOL=( . . t99 I ,UNIT=( X 
2400, .DEFER),' 

// CCE=(KECFM=VBS,BLKSIZE=1408,LRECL=1400,BUFNQ=1)' 

//SYSUDUMP DD SYSOUT=££SOUT ,GCB= CRECFM=FBA,LRECL=121, BL X 
KSIZE=605).» 

// SPACE=(605,(50C,500I,RLSE,,ROUNO)' 



ADO NAME=ACBGEN« 

NUPBER NEW1=1C,INCR»1G' 

PROC S0UT»A,C0MP=,RGN«10CK« 

EXEC PGM=DFSRRC00,PARM="UPB,£6COMP" 



./ 
./ 
// 
//G 

£RGN' 

//SYSPRINT DD SYS0UT=££S0UT ' 

//IMS DD 0SN=■IMS2.PSBLI0,DISP-SHR , 

// OD DSN«IMS2.DB0LIB,01SP»SHR« 

//IMSACB DD 0SN"lMS2.ACBLIB,DISP=OL0' 

//SYSUT3 OD UNIT=SYSDA,SPACE«(80,I10C,1GCI) 



3. 151 



IMS SYSTEM DEFINITION. 



V2 R3 CLCC 



LOC OBJECT CODE 
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STMT 

1273 + 

+ 

127** 

1275 + 

1276 + 
1277+ 

1278 + 

1279 + 

1280 + 

1281 + 
♦ 

1282* 
1283* 

1284+ 

1285 + 
+ 

1286 + 

1287 + 
+ 

1286 + 
♦ 

1289+ 
+ 

129C + 

1291 + 
♦ 

1292 + 

1293 + 

1294 + 
♦ 

1295 + 

1296 + 

1297 + 
♦ 

1298 + 

1299 + 
13CC + 

1301 + 

1302 + 
+ 

1303 + 

1304 + 
♦ 

1305+ 

1306 + 
+ 

1307 + 
130B + 

♦ 
1309 + 

+ 
131C + 

♦ 
1311 + 



SOURCE STATEMENT 
PUNCH 
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00 UNIT=SYSDA,SPACE=<256,( 100, ICO I) ,DCB=KEYLX 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 



•//SYSUT4 
EN=8« 

//COMPCTL DO DSN=IMS2.PKOCLie(DFSAC6CP),DISP=SHR« 

./ ADD NAME=DFSACBCP« 

./ NUMBER NEUl-lCtlNCR'10' 

COPY INOD=IMSACB,OUTUD»IMSACB' 

./ ACD NAME=PSBGEN' 

./ NUMBER NEW1=10,INCR=10« 

// PROC MBR=TEMPNAME,SOUT=A" 

//C EXEC PGM=IEUASM,REG10N=12CK,PARM="L0AD,N0DECX 



//SYSLI8 DO 

//SYSGU 00 
OO.RLSE) .• 

If 

//SYSPR1NT DD 
LKS1ZE=6C5),» 

ft 

//SYSUT1 CO 
00.5CI) 1 

//SYSUT2 00 
C0.5C))* 

//SYSUT3 DD 



DSN=IMS2.MACLIB,DISP=SHR« 
UNIT=SYSDA,DISP*(,PASS),SPACE=(80,(1CO,1X 



DCB= (BLK SIZE =400, RECFM=F8,LRECL=80 )• 
SYS0UT«CCS0UT,0CB=(LRECL'=121,RECFM=FBH,BX 



SPACE=(121,(50i,,5C0),RLSE,,RCUNDI» 
UNIT=SYSDA,UISP=(,DELETE),SPACE*(1700,(1X 



UNI T=SYSDA, 01 SP=f, DELETE ),SPACE=(17C0,< IX 
UNIT=(SYS0A,SEP=(SYSLIB,SYSUT1,SYSUT2I),X 



// SPACE=(17CG,(1C0,5C)) , 

//L EXEC PGM=DFSILNKO,PARM="XREF,LIST« ',COND=(0,X 

LT,C),REGION"=120K> 
//STEPLIB DD DSN=IMS2.RESLIB,0tSP•=SHR• 

DSN=*.C. SYSGO,OISP«(OLD,DELETEM 
SYS0UT=t£S0UT,DCB=(LRECL«121,RECFM=FBA,BX 



//SYSLIN 00 
//SYSPRINT OD 
LKSIZE*6C5), • 
It 

//SYSLMCO DD 
//SYSUT1 DD 
OELETF),' 
II 

./ ADD 
./ 
II 
IIC EXEC 



SP ACfc= ( 1 21,(100, 100 ),RL SEP 

0SN = IMS2.PSBLIf>(£&MBRI,DISP=SHR , 

UNIT=(SYSDA,SEP«(SYSLMOD,SYSLINI),DISP=(X 

SPACE= ( 1024, ( 100 , 1CI tRLSFI • 

NAME=D8DGEN» 
NUMBER NEWl«10 t INCR=lG« 
PROC MBR=TEMPNAME,SOUT=A« 

PGM=IEUASM,REGI0N=120K,PARM='»LOAD,N0DECX 



//SYSLIB DD 

//SYSGO DO 
00), RISE),' 

It 

//SYSPRINT OD 
LKSIZE=605),' 

II 

//SYSUT1 DD 
00, SGI)' 

//SYSUT2 DD 
CO, 50)1' 

//SYSUT3 DD 

It 



DSN=IMS2.MACLIB.DISP=SHR> 
UNIT-SYSDA,DISP=(,PASSI,SPACE=(80, 1 100, IX 

DCB■=(BLKSI^E=4CC,RECFM«FB,LRECL=80I , 
SYS0UT=GGS0UT,0CB=(LRECL=121,RECFM=FBM,BX 

SP AC E= ( 1 2 1 , < 50C , 500 ) , RL SE , , ROUND I • 
UNIT=SYSDA,DISP=(,DELETEI,SPACE=(1700,(1X 

UNI T=SYSDA,DISP=I, DELETE I, SPACE=( 1700, (IX 

UNIT=(SYSDA,SEP=(SYSLIB,SYSUT1,SYSUT2)),X 

SPACED 17C3, (100,50))' 



3. 152 



IMS SYSTEM DEFINITION. 



V2 R3 CLOO 



LOC OBJECT CODE ADDR1 A0DR2 STMT SOURCE' STATEMENT 



F010CT71 1C/02/72 



1212* 
♦ 

1313 + 

1314 + 
1315* 

♦ 
1316* 
1317* 
1318* 

♦ 
1319+ 
1320* 
1321 + 
1322* 
1323 + 
1324* 
1325* 
1326* 
1327* 

1328 + 

1329 + 
+ 

1330 + 

1331 + 

1332 + 

1333 + 

1334 + 

1335 + 

1336 + 

1337 + 

1338 + 
♦ 

1339 + 

1340 + 

1341 + 

1342 + 

1343 + 

1344 + 
♦ 

1345 + 

1346 + 

1347 + 

1348 + 
♦ 

1349 + 
♦ 

135C + 
♦ 

1351 + 

1352 + 

1353 + 

1354 + 
♦ 

1355 + 



PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 



'XREF,LIST'«,CONO=(0,X 



«//L EXEC PGM=0FSILNK0.PARM=« 

LT.CI.REGIUN-^OK 1 
//STEPLIE 00 OSNMMS2.RESLIB.0ISP-SHR' 

OS N*».C. SYSGO, 01 SP« (OLD, DELETE I • 
SYS0UT=££S0UT,DCB=<LRECL-121.RECFM=FBA,BX 



//SYSLIN DO 
//SYSPRINT DD 
LKSIZE=6C5) t « 
II 

//SYSLMCC 00 
//SYSUT1 DO 
DELETEIt' 
II 



SPACE" < 12 l,<10p, ICO I.RLSE)' 

DSN-IMS2.D8DLIB(CCMBR)tOISP-SHR > 

UNlT=(SYSOA,SEP»<SYSLMOD,SYSLIN)l,OISP=(X 



./ 



EXEC 



II 

IIQ 

II 

//SYSLIN DD 

II 

II 

//SYSPRINT DD 

RECFM=FBA|,« 

II 
ND)« 

//SYSUT1 DD 

II 

//SYSUT2 DD 

II 

//SYSUT3 DO 

II 

//SYSUT4 DD 

II 

ll\. EXEC 

LIST",' 

II 

//STEPLIB DD 

//SYSLIB DD 

// 00 

//RESLIB DD 

//SYSLIN DD 
C.SYSLIN* 

// DO 

// OD 

//SYSLMOD DD 

//SYSPRINT DD 

KSIZE=605),« 

II 
ND)' 

//SYSUT1 00 

DELETE). • 

II 



SPACE=C10 24,<1G0,10),RLSE)» 

AOD NAME=lMSCOBOL« 

NUMBER NEW1-10,INCR»10« 

PRUC MBK=,PAGES»60.S0UT=A« 

PGM=IKFCBL0O»REGION=150K,• 

PARM=«»SIZE»13CK,BUF»1CK,L1NECNT=5C"« 

DSN=E£££LIN,D1SP«(M0D,PASS),UNIT«SYSDA,' 

OCb'ILRECL-SO.RECFMsFB.BLKSIZE^OO).' 

SPACE=(3520i(40.1CI.RLSE,,RCUND»' 

SYS0UT=££S0UT,DCB=(LRECL«121,BLKSIZE=605X 



SPACE=«60 5,(££PAGES.0,££PAGES!,RLSE,,ROUX 

UNIT=SYSCA,DISP«( .CELETEI.' 
SPACE=(3520. I ICO, 10 1. RLSE, .ROUND I • 
UNIT=SYSDA,DISP-(, DELETE I. • 
SPACE=(3520. 1 100, 10 1. RLSE., ROUND)' 
UNIT=SYSOA,OISP»( .CELETE1,' 
SPACE" (3520, 1100, 10 1, RLSE., ROUND )• 
UNIT=SYSDA,0ISP-1 , DELETE!. • 
SPACE" (352 0, 1100, 10 ), RLSE, .ROUND! • 
PGM=DFSILNK0,RtGI0N = 120K,PARM="XREF,LETX 

CCND=(4,LT,CI • 

DSN=IMS2.RESLIB,DISP=SHR« 

DSN=SYSX.COBLIB.DISP=SHR' 

DSN=SYS1.PL1LIB,DISP=SHR« 

DSN=IMS2.RESLIB,DISP-SHR' 

DSN=££££LIN,DISP=(OLD,0ELETE),V0L=REF»*. X 

DSN«IMS2.PR0CLIB(CBLTDLII,DISP=SHR« 
DDKAME=SYSIN' 

DSN=IMS2.PGMLIB(££MBR),DISP=SHR• 
SYSOUT=££SOUT,0CB=(RECFM=FBA,LRECL=121,BX 

SPACE=(605,I££PAGES.O,££PAGES) .RLSE..RCUX 

UNIT«!SYSDA,SEP«<SYSLMOD,SYSLINM,DISP=<X 

.RCUND!' 



./ 
./ 
// 

BUF=8' 
■//C 



SPACE" ( 3520. 1 100 ,1C I, RLSE, 
ADD NAME=IMSCOBG0« 
NUMBER NEW1=10,INCR=10' 
PROC MBR=,PAGES=60,SOUT = A,PSB=,SPI E=0,TEST=0,X 

EXEC PGM=IKFCBL00,REGI0N=150K,' 



3. 153 



IMS SYSTEM DEFINITION. 



V2 R3 CLOO 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



F010CT71 10/02/72 



1356 + 
1357* 
1358 + 
1359* 
136C + 

♦ 
1361* 

♦ 
1362* 
1363 + 
1364* 
1365 + 
1366* 
1367+ 
1368* 
1369 + 
1370* 

♦ 
1371* 
1372* 
1373* 
1374 + 
1375* 
1376+ 

♦ 
1377* 
1378* 
1379* 
1380* 

♦ 
1381* 



1383* 
1384 + 

+ 
1385* 

♦ 
1386 + 
1387+ 

1388 + 

1389 + 
139C + 

♦ 
1391 + 



1393 + 
♦ 

1394 + 

1395 + 

1396 + 

1397 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 



II 

//SYSLIN OD 

// 

II 

//SYSPRINT DD 

RECFM»FBAI t • 

II 
NOP 

//SYSUT1 OD 

II 

//SYSUT2 OD 

II 

//SYSUT3 OD 

// 

//SYSUT4 OD 

// 

//L EXEC 

LIST",' 

II 

//STEPLIB DD 

//SYSLIB 00 

// DD 

//RESLIB CO 

//SYSLIN DD 
C.SYSLIM 

// CD 

// DO 

//SYSLMOC 00 

//SYSPRINT 00 
LKSIZE=605I,« 

II 
NDP 

//SYSUT1 DO 

DELETE!, • 

II 

IIG EXEC 

LTI,« 

II 

tit 

//STEPLIB DD 
// CD 

//IMS 00 

// DD 



PARM='«SIZE=13CK,BUF=10K,LINECNT=50 , »' 
DSN=£E££LIN,OISP=(MOD,PASS>,UNIT=SYSDA,' 
DCB=CLRECL=80,RECFM=FB,BLKSIZE=40C),« 
SPACE* (3520, (40, 10 ),RLSE,, ROUND I • 
SYSOUT=££SOUT,DCB=(LRECL»121,BLKSIZE«=605X 

SPACE=(605,(E£PAGES.0,££PAGESI»RLSE,,RGUX 

UNIT=SYSDA,DISP-(,OELETE),« 

SPACE" < 3520 t(10G, 10 I. RLSE,, ROUND >• 

UNIT=SYSDA,DISP=(,OELETE),« 

SPACE-(3520t llOOilCtiRLSEtiROUNO)' 

UNIT=SYSDA,DISP»(, DELETE),' 

SP ACE=( 3520, (100, 10 ),RLSE,, ROUND)' 

UNIT«SYSDA,DISP=( ,DELETEIi • 

SP ACE= I 3520. ( 100, 1G),RLSE,, ROUND)' 

PGM=DFSILNK0,REG10N=12GK,PARM="XREF,LETX 

C0ND=(4,LT,C)' 

0SN=IMS2.RESLIB,DISP=SHR" 

0SN»SYS1.C0BLIB,DISP=SHR» 

0SN=SYS1.PL1LIB,DISP»SHR" 

DSN=IMS2.RESLIB,DISP=SHR' 

OSN»EEEELIN,DISP= (OLD, DELETE I, VOL=REF=*.X 

DSN»IMS2.PR0CLIB(CBLT0LI),DISP=SHR« 
DDNAMfc=SYSIN' 

DSN«IMS2.PGMLIB(E£MBR),0ISP=SHR' 
SYS0UT=££S0UT,CCB=(RECFM»FBA,LRECL=121,BX 

SPACE»(60 5,(C£PAGES.O,E£PAGES),RLSE,,ROUX 

UNI T= ( SYSDA, SEP- ( SYSLMOD, SYSL IN ) ) iDI SP=( X 

SPACE' (3520, (100, 10 1 iRLSE, i ROUND I • 
PGM=DFSRRC00,REGI0N«150K,TIME=2,C0ND=(4,X 

PARM»"DLI,EEMBR,£EPSB,£EBUF,EESPIEEETESX 

DSN=IMS2.RESLIB,DISP«SHR« 
DSN=IMS2.PGMLIB,DISP=SHR« 
DSN=IMS2.PSBLIB,DISP=SHR« 
DSN=IMS2.DBDLIB,DISP-SHR« 



//IEFRCER OD DSN=lMSLOG,DlSP*( ,KEEP) ,VOL«( ,, ,99) ,UNIT=( X 
2400, .DEFER),' 

// DCB»(RECFM=VBS,BLKSIZE=14C8,LRECL«140G,BUX 

FNO=l)' 

//SYSCUT DD SYS0UT=££S0UT,SPACE=(CYL,(1,1)),DCB=(LREX 
CL«133,RECFM=FA)' 

//SYSUDUWP DD SYS0UT=£ESCUT,DCB=(LRECL«=121,RECFM=FBA,BX 
LKSIZE*3025),' 

// SP ACE«= ( 3025, ( 2G0, ICO), RLSE,, ROUND)' 

./ ADD NAME=IMSPLI' 

./ NUMBER NEW1"10,INCR«10' 

// PROC MBR«,PAGES«50,S0UT=A« 



3.154 



IMS SYSTEM DEFINITION. 



V2 R3 CLOO 



PAGE 34 



LOC OBJECT CODE 



AOUR1 AODR2 STMT SOURCE STATEMENT 



FOIOCT71 1C/02/72 



1398* 
1399+ 



1401* 
14C2* 

♦ 
1403* 
1404* 

«■ 
1405* 
1406 + 

1407* 

i4oe+ 

♦ 

1409* 
1410* 
1411* 
1412* 
1413* 
1414 + 
1415* 
1416* 
1417 + 
1418* 

♦ 
1419* 
1420* 

* 
1421 + 
1422* 
1423* 

♦ 
1424* 
1425* 



1427 + 
1428* 

1429* 

1430 + 
♦ 

1431 + 
1432* 

1433* 

1434* 

♦ 

1435* 

1436 + 

1437 + 



PUNCH 
PUNCH 



PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCh 
PUNCH 



PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 



PGM=IbMAA,REGI0N=114K, • 

PARM»'«XREFf ATR,LOAD,NODECK,NCPACR0,,OPTX 



UNI T=SYSDA,SPACE=( 10 24,160, 60) ,RLSE, ,ROUX 



DCB«BLKSIZE=1024,DISP»(,DELETE^• 
UNIT=SYSOA,SPACE»CIC24,(60,60I,RLSE,,ROUX 



//C EX 

// 

1"» 

//SYSUT1 DO 
NO),' 

// 

//SYSUT3 DD 

CI,' 

// 0CB=BLKSI7E=10^4,DISP»(,DELETE)• 

//SYSPRINT DD SYSOUT=££SOUT ,DCB=(LRECL=125, BLKSIZE-629X 

RECFM*VBA),« 

SPACE»<6G5,<££PAGES.C,££PAGESI.RLSE)" 
UNIT*SYSDA,SPACE=(80,t250,8C) ,RLSE),DCB=X 



// 

//SYSLIN OD 

LKSIZE=80,« 

// 

//L EXEC 

<4,LT,CI,« 

// 

//STEPLIB DD 

//SYSLIB DD 

// CD 

//RESLIB DD 

//SYSLIN DD 

// DO 

// DD 

//SYSLMOD OD 

//SYSPRINT OD 
LKSlZe=605l,« 

// 

//SYSUT1 DD 

ItRLSEM 

./ ACD 

./ 

// PROC 
8UF=8« 

IIC EXEC 

// 

!•■• 

//SYSUT1 CD 
NDI ,• 

// 

//SYSUT3 DO 
NO) ,' 

// DCB=BLKSIZE=1024,DISP=(, DELETE)' 

//SYSPRINT DD SYSOUT=££SOUT ,0CB=(LRECL=125,BLKSIZE=629X 

RECFC=VBA»,' 

SPACE=<605,(££PAGES.G,££PAGESI,RLSE)' 
UNIT=SYSDA,SPACE=<8G,(250,8C),RLSE),0CB=X 



DISP=(,PASS)' 

PGM»DF SI LNKO ,PARM=' • XREF .1 I ST, LET" . CQNUX 

REGI0N=120K' 

DSN»IMS2.RESLIB,0ISP=SHR' 

DSN»SYS1.PL1LIB,DISP=SHR« 

USN=SYS1.C0BLIB,DISP=SHR' 

USN=IMS2.RESL1B,DISP-SHR' 

DSN»».C.SYSLIN,DISP = (OLD,DELETEI' 

DSN=IMS2.PR0CLIB(PLITDLI l,DISP=SHR« 

DDNAME=SYSIN« 

DSN=IMS2.PGMLIB(££MBR),DISP=SHR« 

SYS0UT=££SCUT,0C6=URECL=121,RECFM=FBA,BX 

SPACE»(60 5,(££PAGES.0,££PAGES),RLSE)' 
UNIT =SYSOA, D I SP=«, DELETE), SPACE* (CYL.I 5, X 



NAME=lMSPLIGO« 
NUMBER NEWl=10,INCR=10' 

MBR=,PAGES=50,S0UT=A,PSB=,SPIE=0,TEST=0,X 



PGM=IEMAA,REGI0N=114K,« 

PARM=« • XREF, ATR, LOAD, NODECK.NOMACRO, ,OPTX 



UNIT=SYS0A,SPACE=11024,(60,6CI,RLSE,,R0UX 



DCB=BLKSIZE=1024,DISP=I,0ELETEI' 
UNIT=SYSDA,SPACE=I1024,(60,60),RLSE,,ROUX 



II 

//SYSLIN OD 
BLKSIZE=80,' 

II 

IIL EXEC 

=(4,LT,C),' 

II 

//STEPLIB DD 

//SYSLIB DO 



DISP=( ,PASS) • 

PGM=OFSlLNKO,PARM=' "XREF, LIST, LET* SCONDX 

REGION=120K» 

0SN»IMS2.RESLIB,DISP=SHR» 

DSN=SYS1.PL1LIB,DISP»SHR« 



3. 155 



IMS SYSTEM DEFINITION. 



V2 R3 CLOO 



LOC OBJECT CODE 



ADDK1 AODR2 STMT SOURCE STATEMENT 



F010CT71 10/02/72 



1438* 
1439+ 
144C + 
1441* 
1442 + 
1443* 
1444* 
♦ 
1445 + 
1446* 



1448* 
♦ 
1449 + 
1450* 
1451* 
1452 + 
1453* 
♦ 
1454 + 



1456* 

1457+ 

♦ 

1458* 

1459 + 

1460 + 
1461* 
1462* 

♦ 
1463* 
1464 + 
1465* 
1466* 
1467 + 
1468* 
1469* 
147C + 

1471 + 

1472 + 

1473 + 

1474 + 
♦ 

1475 + 

1476 + 

1477 + 

1478 + 

1479 + 

1480 + 
♦ 

1481 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 



PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 



PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

•JNCH 



// DD 
//RESLIB CO 
//SYSLIN DD 
// DD 
// OD 
//SYSLMOD DD 
//SYSPRINT DO 

LKSIZE=605I,« 
II 

//SYSUT1 DD 
),RLSE>« 
//G EXEC 

LT»,« 
II 



DSN=SYS1.C0BLIB,DISP=SHR" 

DSN=IMS2.RESLIB,DISP*SHR« 

OSN=*. C. SYSLIN, 01 SP«( OLD, DELETE J • 

DSN=IMS2.PR0CLIB(PLIT0LII,DISP«SHR» 

DDNAME=SYSIN« 

DSN»IMS?.PGMLIB(££MBRI,DISP»SHR' 

SYS0UT»££SGUT,DCB«(LRECL=121,RECFM=FBA,BX 

SPACE«(605,«££PAGES,0,££PAGES),RLSEM 
UNIT«SYSDA,DISP=<,DELETE»,SPACE=CCYL,(5,X 

PGM=DFSRRCOO,REG10N=150K,TIME=5,COND=C4,X 

PARM'^DLI.CeMBR.eePSB.ttBUF.EESPIECCTESX 



//STEPLIB DD 
// DD 

//IMS DO 

// DO 



,99),UNIT-(X 



0SN=IMS2. RESLIB, 01 SP=SHR» 

DSN=IMS2.PGMLIB,DISP«SHR' 

OSN=IMS2.PSBLIB,0ISP=SHR« 

DSN«IMS2.DBDLIB,DISP«SHR« 
//IEFROER OD 0SN«IMSL0G,DISP=< ,KEEPI ,VOL=( i 
2400,,DEFERI,' 

// DCB=(RECFM=VBS,BLKSIZE=14C8,LRECL=1400,BUX 

FN0=1M 
//SYSPRINT DD 
RECFM=FBA),« 
// 

//SYSUCUMP 00 
RECFH=FBAI,« 
// 

./ ADD 
./ 
// 



SYS0UT=£ES0UT,0CB=<LRECL»121,BLKSIZE«605X 

SPACE" 1 605, (50C,5CO),RLSE,, ROUND J" 
SYSOUT*££SOUT,DCB=<LRECL«121,BLKSIZE=605X 

SPACE=(605,<500,50CI,RLSfc,,RCUND)« 

NAME=MFDBDUMP« 
NUMBER NEWl=10,INCR»10 • 
PROC SOUT«A« 



//DUMP EXEC PGH=DFSRRC00,PARM='«0LI,DFSSAM08 , «,REGIOX 
N=130K' 
//STEPLIB DD DSN=IMS2. RESLIB, DISP=SHR« 
// DD DSN=IMS2.PGMLIB,DISP«SHR , 
//IMS 00 DSN«IMS2.PSBLIB,DISP"SHR' 
// 00 DSN»IMS2.DBDLIB,0ISP=SHR' 
//SYSUCUMP DD SYSOUT=££SOUT« 
//DI21PART DO DSN=IMS2.D^21PART f 0ISP»SHR• 
//0I21PARO DD DSN*IMS^.DI2lPAR0,DISP=SHR• 
//OUTPUT DO SYSOUT=££SOUT« 



ADD NAMEsMFOBLCAD' 
NUMBER NEWl^lO.INCR'lO' 
PROC SOUT=A« 
EXEC PGM-DFSRRCOO.PARM. 



■0LI,DFSSAM01 ,, ,REGIOX 



./ 
./ 
// 

//LOAU 

=130K« 

//STEPLIB DD DSN=IMS2. RESLIB, DISP-SHR' 

// 00 DSN=IMS2.PGMLIB,DISP«SHR« 

//IMS 00 CSN=IMS2.PSBLIB,DISP»SHR« 

// 00 OSN-IMS^.DBDLIB,OISP»SHR• 

//SYSUDUMP DD SYSOUT=££SCUT» 

//DI21PART DO DSN=IMS2.0I21PART(PRIMEI,OISP««,KEEP»,DCBX 
=DSORG=IS, X» 
•// SPACE=(CYL,3,,C0NTIGI,V0L=SER»££PSER,UNIX 



3. 156 



IMS SYSTEM DEFINITION. 



V2 R3 CLOG 



LOC OBJtCT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 
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1462 + 

♦ 

1483* 

1484 + 

1485 + 
I486* 
1487* 
1488* 

4 

14h9 + 
149C + 
1491 + 
1492* 
1493* 

♦ 
1494* 
1495* 
1496* 
1497* 

♦ 
1496* 

1499 + 

1500 + 
♦ 

15C1 + 
1502 + 
1503* 

♦ 
1504* 
1505* 
1506 + 
15C7 + 

+ 
15J8 + 

+ 
15C9 + 

1510 + 

1511 + 
♦ 

1512 + 

1513 + 

1514 + 
+ 

1515 + 

1516 + 

1517 + 

1518 + 
♦ 

1519 + 

1520 + 

1521 + 

1522 + 
♦ 

1523 + 



T=G£PUNIT' 
PUNCH '//D121PAR0 DO 0SN= I MS2.DI21PARO, DI SP=C , KEEP ) , SPACE= ( CYLX 

3,,C0NTIG>, X' 
PUNCH •// VOL=SER=££OSER,UNIT«££OUNlT' 

PUNCH V/SYSOUT 00 SYSOUT=££SOUT • 

PUNCH '//INPUT CD 0SN= IMS2.MACLI BINFCFSYSNI ,D ISP=SHR' 
PUNCH •./ ADD N4ME=IMSMSG' 
PUNCH './ NUMBER NEW 1=10 f I NCR=10' 
PUNCH "//MESSAGE JOB 1 , 1 MS, MSGLEVEL = 1 , PRTY- 11,CLASS=A .MSGCLASSX 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 



3,REGICN=30K» 
//REGION EXEC 
II 

//STEPLIB OD 
// CD 
//SYSUOUHP DO 
FM*VBA1,« 
II 

.1 ADD 

./ 
II 



PGM=DFSRRC00,REGION=3OK,TIME=144O,' 

PARP="MSG,OC100GOOCOOC"« 

DSN=IMS2.RESLIB,DISP=SHR« 

DSN=IMS2.PGMLIB,DISP=SHR« 

SYS0UT=3,0CB=(LRECL=125,BLKSIZE=3129,RECX 

tROUNOP 



SP ACE= II 25,(2500, 100 l.RLSE, 

NAME=IMSBATCH« 
NUMBER NEW1=10,INCR=10' 
PRGC MBR=TEMPNAME,SOUT«3,OPT=N,SPIE=G,TEST=0, 



// PSB=,IN=,OUT=,CIRCA=000' 

//G EXEC PGM=DFSRRCOO,REGION=30K,' 

// PARM="BMP,££MBR,££PSB,££IN,££0UT,££OPT££SPIE££TESTX 
££CIRCA•■• 

//STEPLIB DO 0SN=IMS2.RESLIB,DISP=SHR' 

// DD DSN=IMS2.PGMLIB,DISP=SHR' 

//SYSUDUMP DD SYS0UT=££S0UT,CCB=(LRECL=121,RECFM=VBA,BX 
LKSIZE=3129I,' 

// SPACE=( 125, (2500, IOC I.RLSE,, ROUND)' 

./ ADD NAME=IMS' 

./ NUMBER NEW1=10,INCR-10' 

// PROC RGN=30CK,DHB.»=000,PSBP=000.DBBP=0O0,TPDPX 

00C,HKAP=000,' 

// S=O,PKEY=l,PTY=254,TEST=l,QCR=000,FBP=C0X 

0,SOUT=A' 

//IEFPRCC EXEC PGM=OFSRRCOO,REGION=££RGN, • 

// PARMMCTU ' , 

// E£PTY££PKEY.0££TEST££S££0CR££FBP££PSBP££OMBP££DBBP££X 

PDP.CC0CC0££WKAP>' 

//*• 

//*• 

//* 
0000)* 4107 

//*' 

//* 

II* 

II* 

NON ZERO I • 

//* 

//* 

//* 

//* 
N IK BLOCKS!' 
•//* 



PARM=(AAA,BBBC0EFGGGHHHIIUJJKKKLLL0000CX 



AAA 
BBB 
C 

E 
F 

GGG 
HHH 

III 



REGION TYPE' 
DISPATCHING PRIORITY' 
REGICN PROTECT KEYIO=0; IX 

TEST OPTION' 
CONTROL PROGRAM SUFFIX' 
NUMBER OF OCR BUFFERS' 
FORMAT BUFFER POOL SIZE! IX 

PSB POOL SIZE! IN IK BLOCKX 
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1524 + 

1525* 

1526* 

+ 

1527 + 

1528* 


PUNCH 


PUNCH 


PUNCH 


PUNCH 
PUNCH 


1529* 

1530+ 

+ 

1531 + 

1532 + 

1533 + 


PUNCH 
PUNCH 


PUNCH 
PUNCH 
PUNCH 



1535+ 

♦ 

1536+ 

1537 + 

1538 + 

1539 + 
1540+ 

1541 + 

1542 + 

1543 + 

1544 + 
♦ 

1545 + 
1546+ 

1547 + 

1548 + 

1549 + 
155C + 

1551 + 
♦ 

1552 + 
♦ 

1553 + 
♦ 

1554 + 

1555 + 

1556 + 
1557+ 

1558 + 

1559 + 
156C + 
1561 + 
1562+ 
1563 + 
1564+ 



PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



JJJ 



KKK 



LLL 



cooooo 

000 



OMB POOL SIZEIIN IK BLOCKX 



DATABASE BUFFER POOL SIZEX 



LINE BUFFER POOLUN IK BLX 



RESERVED PARM AREA" 
WORKING STORAGE (IN IK BLOX 



Sl« 
//* 
)• 
//* 

IN IK BLOCKS) 1 

//* 
OCKSJ' 

//* 

//* 
CKS)« 

//*• 

//* 
VALUES' 

//* 

//*■ 

//IEFRDER DD OSN=IMSLOG,OISP«« .KEEP) ,V0L«{ i 
2400, .DEFER),' 

// DCB=(RECFM=VBS,BLKSIZE»1408,LRECL=1400»BUX 

FN0=1)' 

//IPSLCGR DD DSN»IMSLOC,DISP=(OLD,KEEP),VOL=SER=G0000X 

f t 

// UNIT=AFF»IEFRDER' 

//QBLKS CO CSN=IMS2. QBLKS, DISP'OLD' 
//SHMSG OD 0SN=IMS2.SHMSG,0ISP=0LD' 
//LGMSG CO DSN=IMS2.LGMSG,DISP=0LD' 
//IMSACB DD DSN=IMS2.ACBLIB,0ISP-SHR' 
//DFSLOGTT DD DSN=IMS2.LCGT,DISP*SHR ' 
//IMSDILIB DO DSN=IMS2. FORMAT. DISP*SHR« 



IF SYMBOLIC PARMS ARE NOT SPECIFIED; THX 
PROVIDED BY SYSTEM DEFINITION ARE USEO. • 



,99I,UNIT=(X 



//IMSSPA DD 
//SYSUDUMP DD 

LKSIZE-31291,' 
II 

//IMSOBL DD 
//DC2740S DD 
// DD 

//D2740NSC DD 
//0D3270R DD 
//D03270L 

RMINAL 1' 
II 

RMINAL 2" 
//0C327CL2 DO 

RMINAL 1* 
//0D1050 DO 
//DD2260R DO 
//0D277C DD 
//DC2980 00 
//DC2741 00 
//DD2741S OD 
//0C2741S2 OD 
//DD1030 DD 
//SYSRCR1 00 
//SYSPRT1 DD 
//SYSTAPE 00 



DD 



DD 



8« 



DSN=IMS2.SPA,DISP=0LD' 
SYS0UT=6£S0UT,0CB»(LRECL=125,RECFM«FBA,BX 

SP ACE= (6C50. 300,, .ROUND I • 
DSN=IMS2.DBLL0G,DISP=SHR' 

UNIT-0C2 

UNIT=0C3 

UNIT»0C1 

UNIT=0C9 

UNI T= 3 10 

UNIT=312 

UNIT=311 

UNIT-OCC 
UNIT=0E0 
UNIT=0C8 
UNIT=0CA 
UNIT*097 
UNIT-05C 
UNIT*053 
UNIT=0E1 
UNIT=0BI 
UNIT=GB2 
V0LMPRIVATE,,,99),UNIT=0B5 IMS LINE IX 



**• 


IMS 


LINE 


2' 


**♦ 


IMS 


LINE 


3' 


*** 


IMS 


LINE 


4' 


*** 


IMS 


LINE 


5' 


*** 


IMS 


LINE 


6 


*** 


IMS 


LINE 


6 


*** 


IMS 


LINE 


7 


*** 


IMS 


LINE 


8' 


*** 


IMS 


LINE 


9" 


*** 


IMS 


LINE 


10' 


**♦ 


IMS 


LINE 


11' 


*** 


IMS 


LINE 


12* 


*»» 


IMS 


LINE 


13* 


*** 


IMS 


LINE 


14 • 


*»* 


IMS 


LINE 


15" 


**» 


IMS 


LINE 


16' 


*** 


IMS 


LINE 


17* 
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1565 + 
1566* 
1567* 
156B + 
1569* 
157C + 

1571 + 

1572 + 
1573* 
1574 + 
1575* 
1576* 
1577* 

1578 + 

1579 + 
158C + 
1581* 
1582* 
1583* 
1584 + 

lias* 

1586* 

♦ 

1587* 

1588* 
+ 

1589 + 

1590 + 
♦ 

1591* 
1592* 
♦ 
1593 + 
1594* 
1595 + 



1597* 

1598 + 

1599 + 
1600* 
1601 + 

♦ 
1602* 

1603 + 
♦ 

1604 + 

1605 + 
♦ 

16&6 + 
1607 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCh 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 



PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 



ACQ 



USER MUST SUPPLY THE OD STATEMENTS' 
FOR THE ON-LINE DATABASES TO BE* 
INSERTED HERE PRIOR TO ATTEMPTING* 
AN ON-LINE SYSTEM EXECUTION USING* 
THIS PROCEDURE.* 
NAME'SECURITY* 
NUMBER NEW1=1C,INCR=10* 
PRCC OPTN«UPDATE, IMS=**tC' •tSOUT-A* 
EXEC PGM=DFSlSMPO,PARM»' • ttOPTN. tCIMS. • • • 
//STEPLIB OD DSN«IMS2.RESLIB,DISP«SHR' 

//SYSPRINT OD SYS0UT=££S0UT,CCB=(RECFM=VBA,BLKSIZE»400,X 
BUFL=404I' 
//SYSPUNCH OD UNIT»SYSDA,SPACE=(80, (800, 4C0),,, ROUND), X 



//SYS1 
//SYS2 
//SYS3 
//SYS4 



DD DISP=SHR,DSN»IMS2.SYS01* 
DD DISP»SHR,DSN"IMS2.SYS02* 
DD DISP»SHR,DSN»IHS2.SYS03* 
DD 0ISP«SHR,DSN»nS2.SYS04* 



DD 



//ARUDDGP1 DD 

// DD 

//DTWX3335 DD 

//OD2740A DD 

//DC1050A 

II*' 

II* 

II* 

II* 

II* 

II* 

.1 

.1 

II 

11% 



UNIT=OFO 
UNIT«0F3 
UNIT»0D1 
UNIT=061 
UNIT-060 



**v 


IMS 


LINE 


20* 


*** 


IMS 


LINE 


21* 


«*» 


IMS 


LINE 


22* 


*** 


IMS 


LINE 


23* 


*** 


IMS 


LINE 


24* 



II 

( tPASSI* 

//SYSLIN DD 

,BLKSIZE*80),* 

II 

//SYSUT1 OD 

II 

//SYSUT2 DD 

40C),,,RCUND),' 

II 

//SYSIN DD 
IIC EXEC 



CCB»(RECFH»FB,LRECL»80,BLKSIZE»400I ,CISPX 
UNI T«SYSDA,S PACE- (TRK,( 1,1) I ,DCB«(RECFM»X 



OISP«(,PASS)* 

UNI T-SYSD At SPACE- 1 100, (400. 400 I. 



DCB=(BLKSIZE-500,RECFM=FB)* 
UNIT«(SYSDA,SEP»SYSUU),SPACE = (100,(400, X 



DCB=*.S.SYSUT1* 

DSN«N0.SYSIN.DD. ASTERISK* 

PGM=IEUASH,PARM» • *LOAD«NODECK • *,CONO»( 12X 
LT,S),REGIGN=96K* 

//SYSPRINT DO SYSOUT=££S0UT,DCB«(RECFMsFBM,LRECL=121,BX 
LKSIZE=605)* 



//SYSGU 
II 

OUNDI* 
//SYSUT1 
//SYSUT2 
//SYSUT3 

CYL. (5t1M* 
//SYSIN 



DD 



UNIT*(SYSDA,SEP»SYSPRINTI,DISP=(,PASS),* 
DCB**.S. SYSPUNCH, SPACE=t 80, (400, 400 ),,, RX 

UNIT-SYSDA, SPACE' (CYL, (5,1))* 
UNIT=SYSDA,SPACE«(CYL,(5,1))* 
UNIT=(SYSDA,SEP»(SYSUT1,SYSUT2)),SPACE«(X 



D DSN=*.S. SYSPUNCH, OrSP=(OLO, DELETE J • 
//L EXEC PGM=DFSlLNKO,PARM«**LIST,NE,OL'*,REGION»X 
10K,CaND=(4,LT,SI* 

//STEPLIB DD DSNMMS2.RESLIB.0ISP-SHR* 

//SYSPRINT OD SYS0UT=££SOUT,DCB»(RECFM«FBA,LRECL»121,BX 
LKSIZE=605I* 
//SYSLfCD 00 DSN»IMS2.RESLIB,DISP«SHR* 
//INPUT DD DSN**.C.SYSGO,OISP»(OLO,OELETEI* 
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16C8 + 


PUNCH 


//SYSUT1 


DD 


1609* 


PUNCH 


//SYSLIN 


DD 


161C* 


PUNCH 


./ ADO 


1611* 


PUNCH 


./ NUMBER 


1612* 


PUNCH 


// PROC 


♦ 




'.MAC'CENLIB,' 


1613* 


PUNCH 


II 




1614* 


PUNCH 


//PREPROC 


EXEC 


♦ 


C 


OK' 




1615* 


PUNCH 


//SYSPRINT 


DD 


1616 + 


PUNCH 


//SYSPUNCH 


DO 


+ 


Y 


Ltd, lilt' 




1617* 


PUNCH 


II 




1618* 


PUNCH 


//SVSLIB 


DO 


1619 + 


PUNCH 


II 


DD 


162C* 


PUNCH 


//SYSUT1 


OD 


1621* 


PUNCH 


//SYSUT2 


00 


1622* 


PUNCH 


//SYSUT3 


DD 


1623* 


PUNCH 


//SYSIN 


CO 


162** 


PUNCH 


//PhASEl EXEC 


1625* 


PUNCH 


II 




1626* 


PUNCH 


//SYSPRINT 


DO 


1627* 


PUNCH 


//SYSUDUMP 


OD 


1628* 


PUNCH 


//UTPRINT 


00 


1629* 


PUNCH 


//SYSLIN 


DD 


♦ 




800* 




163C* 


PUNCH 


//SYSLMOC 


OD 


1631* 


PUNCH 


//DUMMY 


DD 


1632* 


PUNCH 


//SYSUT1 


DD 


1633 + 


PUNCH 


//SYSTEXT 


DD 


♦ 


[ 


3A,« 




16344 


PUNCH 


II 




1635* 


PUNCH 


//SYSIN 


DO 


1636* 


PUNCH 


//PHASE3 EXEC 


♦ 




,RGN,« 




1637* 


PUNCH 


II 




♦ 


t 


EETEST'" 




1638* 


PUNCH 


//IMS 


DD 


1639 + 


PUNCH 


II 


DD 


1640* 


PUNCH 


//IEFRCER 


DD 


1641* 


PUNCH 


II 




1642 + 


PUNCH 


//DFSLCGTT 


00 


1643 + 


PUNCH 


//SYSUDUMP 


DO 


1644* 


PUNCH 


//SYSPRINT 


DD 


♦ 


t 


<SIZE=133)« 




1645 + 


PUNCH 


//UTPRINT 


DD 


1646* 


PUNCH 


//SYSTEXT 


DD 


1647* 


PUNCH 


//REFERAL 


DD 


1648* 


PUNCH 


//SEUBLKS 


DD 


+ 




>PACE=(CYL, 


(2t2) 


1649* 


PUNCH 


//FMTINCX 


DD 


1650* 


PUNCH 


//FMTINCXO 


DD 


1651* 


PUNCH 


//FMTDB 


DD 


1652* 


PUNCH 


//MSGINCX 


DO 



OSN=*.S. SYSLIN, 01 SP* (OLD, DELETE) • 
NAME'FMTUTL' 

NEWI=°1G,INCR"10 I 
SN0DE=.IMS2,S0K«NOLIB,MBR=NOMBR,MNODE»IMSX 

RGN=250K,BUF=4,SPIE=0,7EST"=0,S0UT=A« 
PGM=IEUASM,PARM»»»N0L0AD,0ECK««,REG10N»1X 

SYS0UT=E£S0UT« 

DSN*EE££ITBPASS,DISP» (NEW, PASS ),SPACE=(CX 

UNIT-SYSDA' 

DSN»££MNODE..E£MAC,DISP=SHR« 
DSN=SYS1.MACLIB,DISP*SHR« 
UNIT=SYSDA,SPACE-(CYL,<1,1))' 
UNIT=SYSDA,SPACE«(CYL,( 1,1) )• 
UNIT=SYSDA,SPACE-(CYL,(1,1)I« 
DSN=CtSN0DE..6tS0R(££MBR) f 0ISP=SHR l 
PGM=DFSUNU10,C0ND«(8,LE,PREPRCC),« 
PARM=« 'COMPRESS • • ,REGION«£ERGN» 
SYS0UT=E£S0UT« 
SYSOUT-EESGUT 1 
SYS0UT=£ES0UT« 
UNIT=SYSDA,SPACE=(CYL,U,1) J,DCB»BLKSIZEX 

OS N=IMS2. REFERAL, CI SP=0L0« 
DUMMY, DC B=BLKSIZE=80' 
UNIT-SYSDA,SPACE»(CYL,(1,U )• 
DSN=££EETXTPASS,DISP=(NEW,PASS),UNIT=SYSX 

SPACE=ICYL,(l,ll),DCB=BLKSIZE=eOO« 
DSN=£E£EITBPASS,DISP=(0LD,0ELETE)' 
PGM=DFSRRCOO,COND=(4,LE,PHASE1),REGIDN=£X 

PARM=««OLI,DFSUNU20,DFSUTS20,££BUF,££SPIX 

0SN=IMS2.PSBLIB,DISP=SHR• 

DSN>IMS2.0BDLIB,DISP-SHR' 

DSN=E£££IMSLOG,DISP=(,PASS),UNIT-SYSOA t « 

SPACE=(CYL,(1,1)),DCB»DS0RG«PS« 

DSN=IMS2.LCGT,DISP=SHR« 

SYSOUT-EESOUT' 

SYS0UT=E£S0UT,DCB*(RECFM-FA,LRECL=133,8LX 

SYSOUT'EESOUT' 

DSN=££££TXTP ASS, DISP»(OLD, DELETE)' 

DSN=IMS2. REFERAL, 1 SP-SHR* 

DSN«E£t£BLKS,DISP-( NEW, PASS), UNI T«SYSDA,X 

)■ 

DSN-IMS2.FMTINDX,DISP=0LD , 

0SN-IMS2.FMTINDX0,DISP=0L0• 

DSN«IMS2. FORMATS, 01 SP=CLD« 

DSN»IMS2.MSGINDX,DISP=0LD» 
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1653 + 

1654 + 
1655* 

♦ 

1656 + 

1657 + 
1658* 
1659* 
1660* 
1661* 
1662 + 
1663* 
1664* 
1665* 
1666* 
1667* 

1668* 
1669 + 
1670* 
1671* 
1672* 
1673* 
1674 + 
1675* 
1676+ 
1677 + 
1678* 
1679* 
t 
168C + 
1681* 
1682 + 
1683* 

1684 + 

1685 + 

1686 + 

1687 + 

1688 + 

1689 + 

1690 + 

1691 + 

1692 + 

1693 + 

1694 + 

1695 + 

1696 + 

1697 + 

1698 + 

1699 + 

1700 + 
17C1 + 

1702 + 

1703 + 

1704 + 



PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



//MSGINCXO OD 
//MSGOB DO 

//PhASt4 EXEC 

//SEQBLKS OD 
//SYSPRINT DO 
//UTPRII\T DD 
//FORMAT DD 
//SYSUOUMP DD 
//DLMMY DD 

./ ACD 



DSN=1MS2.MSGINDX0,DISP=0LD• 
DSN=IMS2.MESSAGES,DISP»OLD' 
PGM»DFSUNU30,REGION»CGRGN,PARM»»«COMPRESX 



DSN»t£66BLKS.DISP«C0LD,DELETE)« 
SYS0UT-£6S0UT« 
SYS0UT»E6S0UT« 
DSN» I MS2. FORMAT. DISP*OLD« 
SYSOUT=CtSOUT« 
0UMMY,0CB»BLKSIZE«80« 
NAME*FMTINIT« 
./ NUMBER NtWl-lOtlNCR'lO' 

//IMSFMT JOB 1,IMS.MSGLEVEL=1« 
//STEP1 EXEC PGM»IEWL,REGION«13CK,' 
// PARM^'XREFiLISTiLETiNCAUDCBS'" 

//SYSPRINT DD SYSOUT-A,OCe=(RECFM-FBA,LRECL-121tBLKSIZX 
»605),« 

// SPACE=(605t(10,10),RLSE, ,ROUNO)' 
//LOAC DD OSN»IMS2.LOAD,OISP=»SHR' 

//SYSLPCO DD DSN»IMS2.PSBLIB,DISP=0LD' 
//SYSUT1 OD UNlT=SYSDA,SPACE«(CYL.(5»l) l« 
//SYSLIN OD *• 

INCLUDE LCAD(DFSUTSIO)' 
NAME CFSUTS10IRP 
INCLUDE LCADIDFSUTS20)' 
NAME CFSUTS20(RI» 
//STEP2 EXEC PGM»IEWL,REGI0N»130K,« 
// PARM=••XREF,LISTlLETtNCAL,DCBS••• 

//SYSPRINT 00 SYS0UT=A,DCB=(RECFM=FBA,LRECL»121iBLKSIZX 
=»605>,' 

// SPACEsUOSiUOilOliRLSEiiRCUNDM 
//LOAD OD DSN-IMS2.LOAD,0ISP=SHR' 

//SYSLMCD OD DSN=IMS2.0BDL IB.OISP^LD" 
//SYSUT1 00 UNIT=SYSDA,SPACE=(CYLfl5,llI' 
//SYSLIN DO *• 

INCLUDE L0AD(DFSUTS30) a 
NAME 0FSUTS3G(RI« 
INCLUDE L0ADCDFSUTS40)' 
NAME DFSUTS40IR)» 
INCLUDE LCA0(DFSUTS50»' 
NAME OFSUTS50IRI' 
INCLUOE LC»D<DFSUTS60 1 , 
NAME DFSUTS60IR)' 
//STEP3 EXEC PGM=IEBCOPY' 
SYSOUT=A» 

DSN=1MS2.L0AD,DISP=SHR' 
DSN=IMS2.REFERAL,DISP=SHR« 
UNIT=SYSDA,SPACE«C80, (10,201)' 
UNIT«SYSDA,SPACE»(256,(2,4I>' 



//SYSPRINT DO 

//SYSUT1 DO 

//SYSUT2 

//SYSUT3 

//SYSUT4 

//SYSIN 



DD 
DO 
00 
00 



*• 



CCPY CUT0D=SYSUT2,INDD=(<SYSUT1,RI )• 
SELECT MEMBER'DFSMIl' 
SELECT MEMBER=DFSMI2» 
SELECT MEMBER=DFSMI4' 
SELECT MEMBER=DFSM01« 
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705 + 
7C6 + 

707 + 

708 + 

709 + 
71C + 
711* 
712* 
713 + 
714* 
715* 
716 + 
717* 
718* 
719+ 
720* 
721* 
722 + 
723* 

724 + 

725 + 

726 + 

727 + 

728 + 

729 + 

730 + 

731 + 
♦ 

732 + 

733 + 

734 + 

735 + 

736 + 

737 + 

738 + 
739+ 
740+ 

741 + 

742 + 

743 + 
744+ 

745 + 

746 + 

747 + 

748 + 

749 + 
75C + 

751 + 

752 + 

753 + 

754 + 

755 + 
♦ 

756 + 
757+ 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 



SELECT MEMBER=DFSM02« 

SELECT MEMBER=DFSM03« 

SELECT MEMBER=DFSM04> 

SELECT MEMBER=DFSDF1» 

SELECT MEMBER=DFSDF2« 

SELECT MEMBER=DFSDF4' 
//STEP4 EXEC PGM«DFSRRC00,REGI0N«200K,« 
// PARM«••OLI,DFSUTSOC,DFSUTS10,4,00•• • 
//IMS 00 DSNMMS2.PSBLIB,DISP=SHR« 
// DO DSN»IMS2.0BDLIB,DISP-SHR' 

//MSGINOX OD DSN«IMS2.MSGINDX,CISP«0LD« 
//MSGINOXG DD 0SN=IMS2.MSGINCX0,DISP=0L0« 
//MSGDB DO DSN»IMS2. MESSAGES, DISP«OLD' 
//FMTINCX OD DSN«IMS2.FMTINDX,DISP»0LD« 
//FMTINOXO 00 DSN»IMS2.FMTINDX0,DISP»0LD' 
//FMTCB 00 DSN=IMS2. FORMATS, DISP»OLD» 
//SYSPRINT DD SYS0UT=A,DCB=BLKSIZE»80• 
//SYSIN DO DSN*IMS2.GENLIB(0FSUTS70I,0ISP-SHR« 
//STEP5 EXEC PGM=DFSRRC00.REGI0N»250K,» 
// PARM=••DLI,DFSUNU^0,DFSUTS20,4,00••• 
//IMS OD 0SN«=IMS2.PSBLIB,0ISP«SHR« 
// 00 DSN=IMS2.DBDLIB,0ISP«SHR« 

//IEFRDER DD DSN=6eCUMSL0G,0ISP = < .PASS) , • 
// UNIT=SYSOA f SPACE*ICYL,Il,ll),CCB»DSORG«PS' 
//OFSLOGTT DD DSN=IMS2.L0GT,0ISP«SHR» 
SYSOUT«A« 
SYSOUT»A,DCB«(RECFM=FA,LRECL=133,BLKSIZEX 



//SYSUDUMP 00 
//SYSPRINT DD 
1331' 

//UTPRINT DD 
//SYSTEXT DD 
//REFERAL 00 
//MSGINOX OD 
//MSGINCXO DO 
//MSGDB 00 
//FMTINDX DO 
//FMTINCXO DO 
//FMTOB OD 
//SEQBLKS DO 



SYSOUT-A* 

DSN-IMS2.GENLIB(DFSUTS90),0ISP=SHR' 

DS N« I MS2. REFERAL, 01 SP=SHR« 

DSN» I MS2. MSGINOX, 01 SP-OLD* 

DSN»=IMS2.MSGIN0XO,DISP«OLO , 

DSNMMS2. MESSAGES, DISP«OLO« 

DSN* I MS2. FMTINDX, 01 SP»OLD« 

OSN«IHS^.FHTINDXO,DISP=OLO• 

DSN«IMS2.F0RMATS,CISP»0L0« 

DSN'CtSCBLKS.DISP'CNEWtPASSI, 1 

// UNIT-SY5DA,SPACE=(CYL,(1,1I|• 

//STEP6 EXEC PGM»DFSUNU30,REGION=200K• 

//SEQBLKS 00 DSN'tCGCBLKS ,DISP«(OLD, DELETE ) • 

//SYSPRINT DO SYSOUT=A« 

//UTPRINT DO SYSOUT«A« 

//SYSUDUMP 00 SYSOUT*A« 

//FORMAT 00 DSN«IMS2. FORMAT, DISP»0L0« 

//DUMMY 00 DUMMY, DCB=BLKSIZE«80« 

./ ADO NAME»IMSRDR« 

./ NUMBER NEUl'lCINCR'lO' 

// PROC MBR«IMSMSG« 

//IEFPRCC EXEC PGM=IEFIRC, REAOER FIRST LOAD' 

// REGI0N=48K, READER BASIC REGION 1 

// PARM="001030050010249C5210SYSOA •• . X 

DEFAULT PARM FLD« 

//♦ BPPTTTOOOMMMIIICCCRLSSSSSSSS 1 

//*• 
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1759* 
1760* 
1761* 



17744 

♦ 

1775* 

1776 + 

1777 + 

1778 + 

1779 + 

1780 + 
1781* 

1782 + 

1783 + 

1784 + 

1785 + 

1786 + 

1787 + 

1788 + 

1789 + 
179C + 

1791 + 

1792 + 

1793 + 

1794 + 

1795 + 

1796 + 

1797 + 

1798 + 

1799 + 
180C + 

1801 + 

1802 + 

1803 + 



PUNCH •//* B 

T NBR NOT NEECED' 



PUNCH 
PUNCH 
PUNCH 



1764 + 


PUNCH 


1765 + 


PUNCH 


1766 + 


PUNCH 


1767 + 


PUNCH 


1768 + 


PUNCH 


1769 + 


PUNCH 


1770 + 


PUNCH 


1771 + 


PUNCH 


1772 + 


PUNCH 



PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCh 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



//* 
//» 
//* 



TTT 

000 



DEFINED PROGRAMMER NAME CC ACCX 

PRI0RITY»G1' 

JOB STEP INTERVAL-30 MINUTES' 

PRIMARY SYSOUT SPACE-50 TRACKSX 



SECONDARY SYSOUT SPACE=10 TRACX 
READER/ INTERPRETER DISPATCHINGX 



//* MMM 

S« 

//* III 

PRI0RITY«249' 

//* CCC JOB STEP OEFAULT REGICN=52K' 

//* R CISPLAY ££ EXECUTE COMMANDS-1" 

//* L BYPASS LABEL'O" 

//* SSSSSSSS SYSOUT UNIT NAME=SYSDA« 

//*' 

//IEFRCER DD DSN*IMS2.PR0CL IB< ££MBR ) ,DI SP=SHR,CCB=BUFNOX 

1' 

//IEFPCSI DD OSN=IMS2.PROCL1B,OISP*SHR PROCEDURE X 

IBRARY' 

// DD DSN=SYS1.PR0CLIB,CISP«SHR« 

//IEFUATA DD UNIT=SYSOA, SPOOLX 

DEVICE* 

// SPACE=(80,(5G0,5C0),RLSE,C0NTIGI, AMOUNX 

// DCB«(BUFNO=2,LRECL=80,BLKSIZE=80»RECFM=FX 

,BUFL=80)' 

./ ACO NAME=IMSWTC00' 
./ NUMBER NEkH=10,INCR=10« 
// PRCC SOUT*A,J0B»A» 
//SPRTC JOB 1,IMS,MSGLEVEL*1,CLASS=££J0B» 
//PRINT EXEC PGM=DFSUPRTC,REGI0N=30K' 
DSN=IMS2.RESLIB,DISP=SHR< 
SYS0UT=££S0UT,DCB«BLKSIZE=141C« 
SYS0UT=££SCUT« 
DISP=SHR,DSN=IMS2.SYS01« 
DISP=SHR,DSN=IMS2.SYS02' 
DISP=ShR,DSN=IHS2.SYS03« 
DISP=SHRtDSN=IMS2.SVS04« 



//STEPLIB DD 
//SYSPRINT OD 
//SYSUDUMP DO 
DD 
OD 
DO 
DO 
ENDUP" 



//SP00L1 

//SP0UL2 

//SP0CL3 

//SP00L4 

./ 

/*• 

//STEP3 EXEC PGM=IEV90,REGION=2C0K,« 

// PARM=»'LGAD,N0DECK" • 

//SYSLIB DD 0SN=IMS2.GEM.IB,DISP = SHR> 

// DO USN=SYS1.MACLIB,0ISP=SHR« 

//SYSLIK DD OSN=IMS2.BLKS50(DFSBBLKB),DISP=OLD' 

//SYSPRINT OD SYS0UT=A,DCB=(BLKSIZE=6C5),« 

// SPACE- C6G5,( 100, 50 I.RLSE,, ROUND) 1 

//SYSUT1 DO UNIT=SYSDA,DISP=(, DELETE!, • 

// SPACE«ICYL,(10,5) )• 

//SYSIN DD *' 

DFSPSBD DUMMY, 2018,0' 

SPACE 3' 

SPACE 3' 
IMSBATCH CENDA=Z5Z6,SVCN0=I234,248,213)' 
DFSIPST REGI0NS=1' 
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1804* 
1805* 
1806 + 
1807* 
1808* 
1809* 
181C + 
1811* 

1812 + 

1813 + 
1814* 
1815* 
1816* 
1817* 
1818 + 
1819* 
182G + 
1821* 
1822* 
1823 + 
1824* 
1825* 
1826* 
1827 + 
1828* 
1829 + 

♦ 
183C + 
1831* 
1832 + 

+ 
1833* 
1834 + 
1835* 

1836 + 

1837 + 

1838 + 

1839 + 
184C + 
1841* 

1842 + 

1843 + 

1844 + 

1845 + 

1846 + 

1847 + 

1848 + 

1849 + 
185C + 

1851 + 

1852 + 

1853 + 
1854+ 

1855 + 

1856 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



DFSI 

**** 



TITLE •■DFSIOS40 - OSAM IOB."' 
DFSIOIOB NUMIOB=l* 
CFSAVARA 1,SECTYPE=CSECT' 

TITLE "DFSIMAIT - BATCH IWAIT ROUTINE.",' 
WAIT CSECT* 



IWAIT ROUTINE* 

THIS COOE PUTS THE BATCH TASK* 
INTO OS WAIT FOR THE DURATION* 
CF AN I/O OPERATION.' 

ASSUMES UPON ENTRY:' 

Rl PST ADOR' 

R13 SAVE AREA ADCR' 



SPACE 3* 

SAVE (14,12),,0FSIV.AIT« 

L 13.8(113)' 

WAIT ECB=(1I' 

L 13,4(,13t' 

RETURN (14,12)' 

TITLE "OFSISCD - SYSTEM CONTENTS DIRECTORY (SX 

ISCC SECTYPE-CSECT' 
CRG SCDDBFPL' 
DC F"8192" DEFAULT BUFFER POOL SIZEX 



END' 
/*' 

//STEP4 EXEC PGM=IEV9C,REGI0N"=200K,' 
// PARM="LOAD,NODECK'" 
//SYSLIB DO DSN=IMS2.GENLIB,DISP=SHR' 
// DD DSN=SYS1.MACLIB,DISP=SHR« 
//SYSLIN DD DSN=IMS2.BLKS50(DFSIDLI0),DISP«OLD' 
//SYSPRINT DD SYSOUT=A,OCB= (BLKS IZE=605 ), • 
// SPACE=<605,( 100.50), RLSE,, ROUND)' 
//SYSUT1 DD UNIT=SYSDA,DISP=(, DELETE),' 
// SPACE=(CYL,(10,5) )• 
//SYSIN DD *• 

PSBC7 OFSPSBD CONTEST, 8000, C • 
PSB01 DFSPSBD DFSSAM02, 8000,0' 
PSBC2 OFSPSBD DFSSAM03, 8000,0' 
PSBD3 DFSPSBD DFSSAM04, 8000,0' 
PSBC4 DFSPSBD DFSSAM05, 8000,0* 
PSBC5 CFSPSBD OFSSAM06, 8000.0' 
PSBC6 DFSPSBD DFSSAM07,8000 ,0* 
PSBD8 DFSPSBD ENqOSK41, 8000,0* 
PSBC9 DFSPSBD -HDTASKC 1,8000,0' 
PSBC1C DFSPSBD HHBLSK41, 4000,0' 
PSBC11 DFSPSBD HHBLSK42, 4000,0' 
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1857* 


PUNCH 


■PSBD12 


DFSPSBO 


1856* 


PUNCH 


•PSBC13 


CFSPSBD 


1859* 


PUNCH 


•PSBC14 


DFSPSBO 


186C* 


PUNCH 


•PSBC15 


DFSPSBD 


1861* 


PUNCH 


•PSBD16 


DFSPSBO 


1862* 


PUNCH 


•PSBC20 


DFSPSBD 


1863* 


PUNCH 


■PSBC21 


OFSPSBD 


1864* 


PUNCH 


•PSBD22 


DFSPSBD 


1865* 


PUNCH 


•PSBC23 


CFSPSBD 


1866* 


PUNCH 


•PSBD17 


DFSPSBD 


1867* 


PUNCH 


•PSBD18 


DFSPSBC 


1868 + 


PUNCH 


•PSBD19 


DFSPSBD 


1869 + 


PUNCH 


•PSBC24 


DFSPSBD 


1871* 


PUNCH 


•PSBC25 


OFSPSBD 


1871* 


PUNCH 


•PSBD26 


DFSPSBD 


1872* 


PUNCH 


•PSBC27 


OFSPSBO 


1873 + 


PUNCH 


•PSBC28 


OFSPSBD 


1874* 


PUNCH 


•PSBC29 


DFSPSBO 


1875* 


PUNCH 


•PSBC30 


DFSPSBD 


1876* 


PUNCH 


■PSBD31 


OFSPSBD 


1877* 


PUNCH 


•PSBC32 


DFSPSBO 


1878 + 


PUNCH 


•PSBC33 


OFSPSBO 


1879* 


PUNCH 


■PSBC34 


DFSPSBO 


1880 + 


PUNCH 




OFSSMB 


♦ 




S8D3 • 




1881 + 


PUNCH 




OFSSMB 


♦ 




PSBD3 • 




1882* 


PUNCH 




OFSSMB 


♦ 




BD4 • 




1883 + 


PUNCH 




CFSSMB 


1884* 


PUNCH 




OFSSMB 


1885 + 


PUNCH 




DFSSMB 


1886 + 


PUNCH 




OFSSMB 


♦ 




tPSBD5 • 




1887* 


PUNCH 




DFSSMB 


♦ 




PSBD3 • 




1888 + 


PUNCH 




OFSSMB 


♦ 




,PSB03 • 




1889* 


PUNCH 




DFSSMB 


1890* 


PUNCH 




DFSSMB 


1891* 


PUNCH 




OFSSMB 


♦ 




PSB06 • 




1892* 


PUNCH 




OFSSMB 


♦ 




SBD2 • 




1893 + 


PUNCH 




CFSSMB 


1894* 


PUNCH 




OFSSMB 


1895* 


PUNCH 




OFSSMB 


1896* 

♦ 

1897* 


PUNCH 


25 • 


DFSSMB 


PUNCH 


DFSSMB 


♦ 




26 • 




1898* 


PUNCH 




OFSSMB 


♦ 




27 • 




1899* 


PUNCH 




OFSSMB 



HHBUSK43, 4000.0' 
HHTASK41.80C0.0' 
HHTASK42,8000,C 
HHTASK43,80C0,0' 
HIBASK41. 4000,0' 
HIMAJCC1. 8COO.0' 
HIMAJCC2, 8000,0' 
HIMAJC03, 8000.0' 
HIMALM01, 8000,0' 
HITASK41.800C0' 
HITASK42, 8000.0* 
HSBASK41, 4000,0' 
LKMDFSOO. 8000,0' 
LKM0FS10, 4000,0' 
MR1.8000.C 
MR2,80C0,0' 
MR3.8000.0 1 
MR4.8000,0' 
HR5,8G00,C 
MR6, 8000,0' 
MR7, 8000,0' 
MR8,80CO,0' 
MR9,80C0,0* 
ACDINV.A70C02, 4540, 65535, 65535,0, 5, O.PX 

OFSSMB A0DPART.A700C2, 4540, 65535, 65535, C, 4, 0,X 

CLOSE, A70002, 4540, 65535, 65535,0, 3, 0,PSX 

C0NV1,88FFFF,45C8,3,60,0,1,8C,PSBD7 • 
C0NV2,88FFFF,45E8,3,60,0,1,80,PSB07 • 
OF S.C 50005,4140,8, 100, 0,1,0,PSB024 • 
DISBURSE.A70C02 .4540, 65535, 65535,0, 2, CX 

DLET INV,A70002, 4540, 65535, 65535,0, 5, 0,X 

DLETP ART, A70002, 4540 ,65535 ,65535, 0,4. OX 

OLI.A50005,8540,10,10,C,1,0,PSB023 • 
DIN, 800003, 4540, 10, 100, 0,1,0,PSB023 ' 
OSPALU I, A70C02, 4140, 65535, 65535,0, 2, C,X 

DSP IN V.A70002, 4140 ,65535. 65535,0, 4, O.PX 

ENQ.88FFFF, 4540, 65535, 65535, 0,1,0,PSBDX 

ICS, C5CC05, 4548, 10, 100,0, 1,0, PSBD23 • 
IMS, 52000A, 0540,1, 100, 0,1,0,PSBD23 • 
LKM.OOFFFF, 0540, 65535, 65535, O.l.O.PSBDX 

MR1.88FFFF, 4540, 65535, 65535, 0,1,0,PSB0X 

MR2.88FFFF, 4540, 65535, 65535,0. 1, O.PSBDX 

MR3.88FFFF, 4540, 65535, 65535,0, I, O.PSBOX 



3. 165 



IMS SYSTEM DEFINITION. 



V2 R3 CLOO 



LOC OBJECT CODE 



ADCR1 ADDR2 STMT SOURCE STATEMENT 



F010CT71 1C/02/72 



♦ 




28 • 






1900* 


PUNCh 


i 

29 • 


OFSSMB 


MR4,88FFFF, 4540,6553 5, 65535, Cl.CPSBDX 


1901* 


PUNCH 


DFSSMB 


MR5.88FFFF, 4540, 65535, 65535, Cl.CPSBDX 


♦ 




30 • 






1902* 
1903* 


PUNCH 


31 • 


OFSSMB 


MR6, 88FFFF ,4540,65535, 65535,0, 1,0, PSBDX 


PUNCH 


DFSSMB 


MR7.88FFFF, 4540, 65535, 65535, 0,1,0,PSBDX 


♦ 




32 ■ 






19C4* 


PUNCH 


i 


OFSSMB 


MRS, 8BFFFF, 4540, 65535, 65535, 0,1,0,PSBDX 


+ 




33 • 






1905* 


PUNCH 


34 • 


OFSSMB 


MR9, 88 FFFF, 4540, 65535, 65535, Cl.CPSBDX 


1906* 


PUNCH 


CFSSMB 


PART, A70002, 4140, 65535, 65535, 0,4, CPSBX 


♦ 




01 • 






19C7* 
1908* 


PUNCH 


09 • 

f 


CFSSMB 


SKD1.88FFFF, 4540,65535, 65535,0, l.CPSBX 


PUNCH 


DFSSMB 


SKHl,b8FFFF, 4540,65535, 65535, CI, CPSBX 


♦ 




013 • 






1909* 


PUNCH 


t 


OFSSMB 


SKH2.88FFFF, 4540, 65535, 65535, Cl.O.PSBX 


♦ 




D14 • 






1910 + 


PUNCH 


■ 


DFSSMB 


SKH3.88FFFF, 4540, 65535, 65535, 0,1, CPSBX 


♦ 




D15 • 






1911* 


PUNCH 


t 


DFSSMB 


SK 11, 88FFFF, 4540, 65535, 65 535, CI, CPSBX 


+ 




017 • 






1912 + 


PUNCH 


• 


DFSSMB 


SKI 2, 88 FFFF, 4540, 65535, 65535, 0,1, CPSBX 


♦ 




DIB • 






1913 + 


PUNCH 


i 


DFSSMB 


TPPL1.88FFFF, 4540, 65535, 65535, Cl.CPSX 


♦ 




BD20 • 






1914* 


PUNCH 


i 


DFSSMB 


TPPL2.88FFFF, 4540,65535, 6 5535, 0,1,0,PSX 


♦ 




B021 « 






1915* 


PUNCH 


• 


DFSSMB 


TUBE, 88FFFF,45C8, 65535, 65 535, 0,1,100,PX 


♦ 




SBD22 • 






1916* 


PUNCH 


t 


SPACE 3 


t 


1917* 


PUNCH 


• 


ENTRY OFSLISTO* 


1918* 


PUNCH 


•OFSLISTO 


DS 00 USER SUPPLIED SMB EDITS' 


1919* 


PUNCH 


■ 


DFSDMO 


DD41SK01,0,C1,C 


1920* 


PUNCH 


• 


DFSDMD 


DD41TS01, 0,0,1,0' 


1921 + 


PUNCH 


■ 


OFSDMD 


DH41SK0l,C, 0,1,0' 


1922* 


PUNCH 


• 


DFSDMO 


DH41SK02»0, 0,1,0' 


1923* 


PUNCH 


, 


DFSDMD 


DH41SK03, 0,0,1,0' 


1924+ 


PUNCH 


• 


DFSDMD 


DH41TS01,0,0,l,0' 


1925* 


PUNCH 


• 


DFSOMD 


DH41TS02,CC1,0' 


1926* 


PUNCH 


• 


DFSDMO 


0H41TS03, 0,0,1,0' 


1927+ 


PUNCH 


• 


CFSDMD 


D121PART, 0,0,1, C« 


1928* 


PUNCH 


• 


OFSDMD 


DI31LM01. 0,0,1,0' 


1929* 


PUNCH 


t 


OFSDMD 


OI31PHC2,0,0,1,0> 


193C* 


PUNCH 


• 


DFSDMO 


DI41SK01, 0,0,1,0* 


1931 + 


PUNCH 


• 


DFSDMD 


DI42SK01,0,0,1,0* 


1932* 


PUNCH 


t 


DFSDMD 


DS4CJC01, 0,0,1,0' 


1933 + 


PUNCH 


1 


DFSDMD 


DX41SK01,0,0,1,0* 


1934* 


PUNCH 


1 


DFSDMD 


DX41TSC1,0,0,1,C* 


1935* 


PUNCH 


• 


END' 3852 


1936* 


PUNCH 


*/** 






1937* 


PUNCH 


'//IMSGEN2 JOB (82Ct 6443 1 , IMS,MSGLEVEL=1 ,MSGCLASS=A,CLASX 
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1938 + 

1939 + 
194C + 
1941* 
1942 + 
1943* 

1944 + 

1945 + 

1946 + 
1947* 

1948 + 
♦ 

1949 + 

1950 + 
1951* 
1952 + 
1953* 
1954* 
1955 + 
1956* 
1957* 
1958* 
1959 + 
I960* 

1961 + 

1962 + 
1963* 
1964 + 
1965* 
1966 + 
1967* 
1968* 
1969* 

♦ 
1970* 
1971* 
1972* 

♦ 
1973* 

♦ 
1974 + 
1976 + 

1976 + 

1977 + 

1978 + 

1979 + 

1980 + 

1981 + 

1982 + 

1983 + 

1984 + 

1985 + 
1986+ 
1987 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



S=D,PRTY«8' 
//STEP1 EXEC PGM=1EV90,REGION«200K,' 
// PARM»"LCAC,NODECK"» 
//SYSLIB OD DSN»IMS2.GENLIB,DISP«SHR« 
// 00 DSN=SYS1.MACLIB,DISP«SHR' 
//SYSLIN 00 DSN»IMS2.BLKS50(DFSICLL0),DISP«0LD' 
//SYSPRINT DO SYS0UT*A,DCB=(BLKSIZE=605I,' 
// SPACE=( 605 , ( 100 1 50 I.RLSE,, ROUND I • 
//SYSLU 00 UNIT»SYSDA,DISP=(, DELETE), • 
// SPACE«(CYL, (10,51)' 
//SYSIN DO »• 

OFSCLB 1,0,0, 1,C008,0,CTBO-DFSICTB,0 SYSTEM X 
CONSOLE CLB.' 
•DFCL1 OFSCLB 2, DFDCB1 , 0FPL1 ,1 ,0008,C,CTB1-DFSICTB,0' 

AGO .DFCL2' 
.DFPL1 ANOP' 
0FPL1 OFTRMLST WRAPLST, ( C6, E2) ' 

AGO .DFPL2' 
.DFCL2 DFSCLB 3, 0F0CB1 ,OFPL2,2,80E8,0,CTB3-DFSICTB,0« 

AGO .DFCL3' 
.0FPL2 ANOP" 
0FPL2 OFTRMLST WRAPLST, (45,46) < 

AGO .DFPL3' 
.LERB1 ANOP 1 
LERB1 LERB 2, (200, 10, 5,51 • 

AGO .LERB2' 
•CFCL3 OFSCLB 4, 0FOCB2.O, l,0CE80C l O,CTB5-OFSICTB,O• 

AGO .DFCL4' 
.CFPL3 ANOP' 

AGO .DFPL4' 
.LERB2 ANOP 1 
LERE2 LERB 1, (200, 10, 5,51 • 

AGO .LERB3 1 
.CFCL4 OFSCLB 5,0FDCB3,CFPL4, 1,OOE900,0,CTB6-DFSICTB,OX 

AGC .DFCL5' 
.0FPL4 ANOP* 

DFPL4 OFTRMLST AUTOWLST, (40407F7F2D, X 

CONTINUE' 

C1C17F7F2D, X 

CONTINUE' 

3737373737)' 
AGO .0FPL5' 
.LERB3 ANOP' 
LERB3 LERB 1, (200, 10,5,5) • 

AGO .LERB4' 
.CFCL5 CFSCLB 6,OFOCB4,0, 1 ,00E8O0,O,CTB12-DFSICTB,O' 

AGO .DFCL6' 
•CFPL5 ANOP' 

AGO .DFPL6' 
•LERB4 ANOP' 
LERe4 LERB 1,(200,10,5,5)' 

AGO .LERB5' 
.0FCL6 CFSCLB 7.0FDCB5 ,C,l,OOE800,0, CTB14-DFS ICTB.O' 
, AGO .0FCL7' 
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19884 
19894 
1990 4 
19914 
19924 
19934 

4 

19944 
19954 
19964 
19974 
19984 
19994 
2000 + 
2C014 

4 

20024 
20C34 
20044 
2C054 
20064 
20074 
2008 + 
20094 

4 

201C4 
20114 
20124 

4 

20134 
20144 
2015* 
20164 
20174 
201B4 

4 

2C194 
20204 
20214 
20224 
20234 
20244 
20254 
20 264 

4 

20274 
20284 
20294 
2C304 
20314 
20324 
20334 

4 

20344 
20354 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PINCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 



.0FPL6 ANOP' 

AGC .DFPL7' 
.LERB5 ANOP" 
LERB5 LERB 1,(200,10,5,5)' 

AGO .LERB6' 
•CFCL7 DFSCLB 8,DF0CB6,DFPL7, 1,00E800, CCTB15-DFSICT8.X 
C 

AGO .DFCL8' 
•DFPL7 ANOP' 
0FPL7 DFTRMLST WRAPLST, ( E215.E415 )• 

AGO .DFPL8' 
•LERB6 ANOP' 
LERB6 LERB 1, (200,10, 5,51 • 

AGO .LERB7' 
.DFCL8 CFSCLB 9,DFDCB7,DFPL8, 1,00E800,0,CTB17-DFSICTB, X 

AGC .0FCL9' 
•0FPL8 ANOP" 
0FPL8 OFTRMLST WRAPLST, (41FF.40FF )• 

AGO .DFPL9' 
•LERB7 UOP' 
LERB7 LERB 1, (200,10, 5,5 I • 

AGC .LERB8' 
.0FCL9 OFSCLB 10,DFDCB8,OFPL9, 1 ,80E900 ,0,CTB21-0FSICTBX 
0' 

AGC .DFCLIC 
.0FPL9 ANOP' 

0FPL9 OFTRMLST AUTOWLST, (C1C1F520.C1C1F620, X 

CONTINUE' 

C1C1F72U, 37373737)' 

AGO .OFPL10' 
.LERB8 ANOP' 
LERB8 LERB 1,(200,10,5,51' 

AGO .LERB9' 
.0FCL10 DFSCLB 11,DFDCB9,DFPL10, 1 ,80E900,0,CTB22-DFS ICX 
TB.O' 

AGC .DFCLU' 
.DFPL1C ANOP' 
DFPL10 OFTRMLST AUTOWLST, (C1C1F02D, 37373737) • 

AGO .DFPL11' 
.LERB9 ANOP' 
LERB9 LERB 1,(200,10,5,5)' 

AGC .LERB10' 
.0FCL11 OFSCLB 12.DFDCB10, C»l ,00E80C,0,CTB25-DFS ICTB.OX 

AGC .0FCL12' 
.DFPL11 ANOP' 

AGO .DFPL12* 
.LERB10 ANOP* 
LERB10 LERB 1, ( 200,10,5,5 I • 

AGO .LERB11' 
.DFCL12 OFSCLB 13,DF0CB11,0,1 ,OOE800,0,CTB26-DFSICTB,OX 



AGC 
ANOP' 



.DFCL13' 
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2036* 
2037* 
2038* 
2039* 
204C* 
♦ 
2041* 
2G42* 
2043 + 
2044* 
2C45* 
2L46* 
2047+ 

2048* 
2049* 
2C5C* 
2051* 
2052* 
2053* 
2054* 
2055* 
♦ 
2056* 
2C57* 
2C5B* 
2059* 
2CI6C + 
2061* 
20 62* 

2063 + 
2S64* 
2C65* 
2066* 
2067* 
2068* 
2069* 

207c* 
2071* 
2072* 
2C73* 
2*74* 
2075* 
2076+ 
♦ 

2077 + 

2078 + 
2J79* 
2C8C + 
2081* 
2082 + 
2083* 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



AGO .0FPL13* 
.LERB11 AN0P* 
LERB11 LERB 1, (20C, 10t 5,5 t • 

AGO .LERB12* 
.0FCL13 DFSCLB 14, DFDCB12.0, 1,OOE800,0,CTB27-DFSICTB,OX 

AGO .0FCL14* 
.0FPL13 ANOP* 

AGO .DFPL14* 
.LERB12 ANOP' 
LERB12 LERB 1,(200,10,5,51* 

AGO .LERB13* 
.0FCL14 DFSCLB 15.0F0CB13, 0FPL14, l,OCE800,0,CTB28-DFSI X 
CTB.C* 

AGO .DFCL15* 
.DFPL14 ANOP* 
DFPL14 CFTRHLST WRAPLST, (64) • 

AGO .0FPL15* 
•LERB13 ANOP* 
LERB13 LERB 1, (200,10,5,5) • 

AGO .LERB14* 
.DFCL15 DFSCLB 16, DFCCB14, 0, 1,C0E800,0,CTB30-DFSICTB,0X 

AGO .DFCL16' 
.0FPL15 ANOP* 

AGO .DFPL16' 
.LERB14 ANOP 1 
LERB14 LERB 1,(200,10,5,51* 

AGO .LERB15* 
•DFCL16 DFSCLB 17, DF0CB15,C, 1,00E800,0,CTB31-DFSICTB,0X 

AGO .0FCL17* 
.DFPL16 ANOP' 

AGO .DFPL17* 
•LERB15 ANOP* 
LERB15 LERB 1,(200,10,5,5)* 

AGC .LERB16* 
.DFCL17 DFSCLB 18,DFDCB16,C, 1,0CE800,0,CTB32-DFSICTB,0X 

AGO .DFCL18* 
.DFPL17 ANOP* 

AGC .0FPL18* 
.LERB16 ANOP* 
LERB16 LERB 1,(200,10,5,5)* 

AGC .LERB17* 
.DFCL18 DFSCLB 19,OFDCB17,0,1,OOE800,C,CTB33-DFSICT8,4X 

AGC .DFCL19* 
.DFPL18 ANOP* 

AGO .DFPL19* 
.LERB17 ANOP* 
LERB17 LERB 1,(200,10,5,5)* 

AGO .LERB21* 
.DFCL19 DFSCLB 20,DFDCB21,C, 1, 00E8O0,C,CTB34-DFSICTB,OX 
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2084* 


PUNCH • 


2G85 + 


PUNCH • 


2086 + 


PUNCH ' 


2087+ 


PUNCH • 


2088 + 


PUNCH • 


2089* 


PUNCH • 


2090* 


PUNCH • 


2091 + 


PUNCH • 


2092 + 


PUNCH • 


2093 + 


PUNCH • 


2094 + 
♦ 

2095 + 


PUNCH • 


PUNCH • 


2096 + 


PUNCH • 


2097 + 


PUNCH • 


2098 + 


PUNCH • 


2C99 + 


PUNCH • 


21C0 + 


PUNCH • 


2101 + 
♦ 

2102 + 


PUNCH • 


PUNCH • 


2103 + 


PUNCH • 


2104 + 


PUNCH • 


2105 + 


PUNCH » 


2106 + 


PUNCH • 


2107+ 


PUNCH • 


2108 + 


PUNCH • 


2109 + 
+ 

2110 + 


PUNCH • 


PUNCH • 


2111 + 


PUNCH ■ 


2112 + 


PUNCH • 


2113 + 


PUNCH • 


2114 + 
♦ 

2115 + 


PUNCH • 


PUNCH • 


+ 


L 


2116+ 


PUNCH • 


2117+ 


PUNCH • 


2118 + 
♦ 

2119 + 


PUNCH • 


PUNCH • 


2120 + 


PUNCH • 


2121 + 


PUNCH • 


2122 + 


PUNCH • 


2123 + 


PUNCH ■ 


2124 + 


PUNCH • 


2125+ 


PUNCH • 


2126 + 


PUNCH • 


2127 + 


PUNCH • 


2128 + 


PUNCH • 



AGO .DFCL2C 
•DFPL19 ANOP' 

AGO .DFPL20' 
.CFCL20 DFSCLB 21,DFDCB21,O,2,00E800,C,CTB35-DFSICTB,0X 

AGO .DFCL21' 
.0FPL20 ANOP' 

AGO .DFPL21' 
•LERB21 ANOP* 
LERB21 LERB 2, 1200, 10 t 5,51 " 

AGO .LERB22' 
.CFCL21 DFSCLB 22,DFDCB22,0, 1,GCE800,0,CTB36-DFSICTB,OX 

AGO .CFCL22' 
.0FPL21 ANOP' 

AGO .DFPL22' 
.LERB22 ANOP' 
LERB22 LERB 1,(200,10,5,51' 

AGO .LERB23' 
•DFCL22 OFSCLB 23,DFDCB23,CFPL22,l,O0E800,0,CTB37-DFSIX 
CTB,0' 

AGO .CFCL23' 
•0FPL22 ANOP' 
0FPL22 CFTRMLST DIALST.O, ( E2 I • 

AGO .0FPL23' 
.LERB23 ANOP' 
LERB23 LERB 1, (200, 10 ,5,5 » ' 

AGO .LERB24' 
.0FCL23 DFSCLB 24.DFDCB24, CFPL23, 1,OCE800,C,CT838-DFSIX 
CTB.O' 

AGO .0FCL24' 
.DFPL23 ANOP' 
0FPL23 DFTRMLST 01 ALST.O , (E215 ) • 

AGO .DFPL24' 
•0FCL24 DFSCLB 25,DFDCB24,C, 1 .CCE800, 0,CTB39-DFSICTB,OX 

TITLE "DFSICLLO - COMMUNICATION LINE POLLING X 
LISTS."' 

AGO t .0FPL1' 
.DFPL24 ANOP' 

TITLE "DFSICLLO - COMMUNICATION LINE ERROR BLX 
OCKS.'" 

AGO .LERB1' 
.LERB24 ANOP' 
LERB24 LERB 1,(200,10,5,5 1' 

TITLE "DFSICLLO - COMMUNICATION LINE GROUP OCX 
""S.«" 

DF0CB1 CCB DS0RG=CX,MACRF=(R,W»,LERB=LERB1, X 

CONTINUE' 

ERPOPT=CTRW,CONAME=DD2 74 0S' 
EJECT' 
DFDCB2 OCB DSORG=CX,MACRF«(R,Wl ,LERB=LERB2 , X 

CONTINUE* 

ERROPT=CTRH, CDNAME=D2740NSC 
EJECT' 
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213C* 

2131 + 

2132 + 


PUNCH • 
PUNCH ■ 
PUNCH • 


2133* 
2134* 
2135* 


PUNCH ' 
PUNCH • 
PUNCH • 


2136* 
2137* 
2138* 
♦ 
2139 + 
214C* 

* 
2142 + 
2143* 
2144* 


PUNCH ■ 
PUNCH • 
PUNCH • 


PUNCH • 
PUNCH ■ 
PUNCH • 


PUNCH • 
PUNCH ■ 
PUNCH • 


2145* 
2146* 
2147* 


PUNCH ■ 
PUNCH • 
PUNCH ' 


2148*- 
2149 + 
215C* 
♦ 
2151 + 
2152* 
2153* 


PUNCH • 
PUNCH • 
PUNCH • 


PUNCH • 
PUNCH • 
PUNCH • 


21S4* 

2155 + 

2156 + 


PUNCH • 
PUNCH • 
PUNCH ■ 


2157* 
2158* 
2159* 


PUNCH ■ 
PUNCH • 
PUNCH • 


2160 + 
2161* 
2162* 
2163 + 


PUNCH • 
PUNCH • 
PUNCH • 
PUNCH ■ 


2164* 
2165* 
2166* 


PUNCH ■ 
PUNCH • 
PUNCH ■ 


2167 + 
2168* 
2169* 


PUNCH • 
PUNCH ' 
PUNCH • 



PUNCH *0FDCB3 DCB OSOKG'CXf MACRF« «R,W I ,LERB = LERB3t X 

CONTINUE* 

ERROPT=CT,OEVC*BS,0CNAME=DD32 70R* 
EJECT' 
DFCCB4 CCB GSORG«CX,MACRF»(K,W » ,LERB»LERB4, X 

CONTINUE 1 

ERROPT=CT,DDNAME=CD3270L* 
EJECT* 
DFDCB5 DCB CSORG=CX,M ACRF=(R ,W » ,LERB=lERB5t X 

CONTINUE* 

ERR0PT=CT,CDNAME=DD32 7CL2' 
EJECT* 
0FDCB6 DCB OSORG*CXtMACRF=(R f W ) ,LERB=LERB6i X 

CONTINUE* 

ERR0PT=CTRH,CDKAMEsDDlC50* 
EJECT* 
0FCCB7 OCB CS0RG=CXtMACRF=IR t WlfLERB»LERB7 t X 

CONTINUE* 

ERROPT=CTRW,0DNAME-0D2260R* 
EJECT* 
DFDCB8 DCB DSORG=CX,MACRF= (R,W ) ,LERB=LERB8 t X 

CONTINUE* 

ERR0PT=CTtDEVC=BS.DCNAME»DD2770* 
EJECT* 
0FCCB9 CCB OS0RG*CX,MACRF=(R»WI,LERB=LERB9t X 

CONTINUE* 

ERROPT=CT,DEVC=BS ( DCNAME*DD2980' 
EJECT' 
DF0CB1C CCB DSORG=CX,MACRF=(R,WI ,LERB=LERB10t X 
CONTINUE* 

ERR0PT=CTV«,DCNAME=DD2741* 
EJECT' 
DFCCB11 CCB DSORG=CX,MACRF=(R,WI ,LERB=LERBll, X 
CONTINUE' 

ERR0PT=CTV«tDCNAME*DD2741S' 
EJECT' 
DFDCB12 CCB OSORG=CX,MACRF=lR f U) .LERB*LERB12, X 
CONTINUE' 

ERRUPT=CTU,0CNAHE=DO2741S2' 
EJECT' 
OF0CB13 CCB DS0RG=CX,MACRF=(R,W),LERB=LERB13t X 

CONTINUE' 

ERROPT=CTRW, DDNAME=DD1030' 
EJECT'" 

EXTRK DFSYSOUT • 
DFDCB14 DCB DSO*G=PS,MACRF=R f DEVD=DA,RECFM=F, BLKSI ZE=80X 
CONTINUE' 
0DNAME=SYSR0R1« 
EJECT' 
DFDCB15 CCB DSOPG=PS,MACRF=W,DEVD=DA, EXLST=OFSYSOUT t X 
CONTINUE' 

DDNAME=SYSPRT1« 
EJECT* 
OFDCBlt CCB DSORG=PS,MACRF=WtDEVD=DA,EXLST=DFSYSOUT, X 
CONTINUE* 
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217C* 
2171* 
2172* 

2173* 
2174 + 
2175* 

♦ 
2176* 
2177* 
2178 + 

♦ 
2179* 
2180* 
2181* 

♦ 
2182* 
2183 + 
2184* 
2185* 

♦ 
2186* 
2187* 

♦ 
2188* 
2189* 
2190 + 

2191* 
2192* 
2193 + 

2194* 

2195 + 
♦ 

2196 + 
2197+ 

2198 + 

2199 + 
2200* 
2201* 
2202* 
2203* 
2204* 
2205* 
2206* 
2207 + 
2208* 
22C9 + 
2210 + 
2211* 
2212* 
2213* 
2214* 
2215 + 



PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



ODNAME=SYSTAPE" 
EJECT" 
0FCCB17 CCB DSORG=PS,MACRF=(R,H) ,DEVD«DA,EXLST»=DF SYSOX 
T, CONTINUE' 

DDNAME=SYSl" 
EJECT" 
0F0CB18 CCB DSCKG=PS,MACRF=(R,W),DEVD=DA,EXLST=DFSYSOX 
UT, CONTINUE" 

CCNAME=SYS2" 
EJECT" 
DF0CB19 DCB DSORG=PS,MACRF»(R, H) ,DEV0«DA,EXLST=DFSYSOX 
UT, CONTINUE" 

DDNAME=SYS3" 
EJECT" 
0FDCB2G CCB DSORG=PS,MACRF=(R,W),DEVD=DA,EXLST«=DFSYSOX 
UT, CONTINUE" 

DDNAME=SYS4" 
DC A(0) END OF SPOOL DCB SET • 

EJECT" 
DFCCB21 CCB DSORG«PS,MACRF=(E) ,CENDA=Z6, XENDA=Z6,D0NAX 
ME=ARUDCGP1" 

EJECT" 
DFCCB22 CCB DSORG'CX, MACRF* <R, Wl ,LERB»LERB22, X 

CONTINUE" 

ERR0PT=CTRW,CDNAME=DTWX3335" 
EJECT" 
DFDCB23 CCB DSORG»CX,MACRF=<R ,Wl , LER8»LERB23, X 

CONTINUE" 

ERROPT=CTRk, CCNAME=0D274CA" 
EJECT" 
DFCCB24 CCB DSORG*CX ,MACRF=(R,WJ ,LERB»LERB24, X 

CONTINUE" 

ERROPT=CTRH,CDNAME"0D105CA" 
TITLE ""DFSICLLO - COMMUNICATION LINE CROUP OPX 
N LIST.""" 

ENTRY DFSICDB" 
DFSICCB DS OD* 

OC ALl(0I.AL3(0FOCBl>" 

DC AL1(0»,AL3(DFDCB2»" 

OC AL1(0),AL3(DFDCB3)' 

OC AL1«OI,AL3(DFOCB4)« 

DC AL1(0»,AL3(DFDCB5I" 

OC AL1(C),AL3(DFDCB6I" 

DC AL1(0),AL3(CFDCB7I" 

DC AL1«0I,AL3(DFDCB8»" 

OC AL1 <0),AL3(DFDCB9I" 

OC ALl(0l t AL3(DFDCBlO" 

OC AL1(C),AL3(OFOCB11)" 

DC AL1(0),AL3(OFDCB12I" 

CC AL1(0),AL3I0FDCB13)" 

DC AL1(&»,AL3«DFDCB14I" 

OC ALK15I,AL3(DFDCB15»" 

DC ALII15),AL3(DF0CB16)" 

OC ALlI3t,AL3(OFOCB17»« 

DC ALl(3),AL3(DFDCBiei" 
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2216* 
2217 + 
2218* 
2219* 
2220* 

2221 + 

2222 + 
♦ 

2223 + 

2224* 

2225 + 

2226 + 
2227* 

2228 + 

2229* 

+ 

2230 + 

2231 + 

2232 + 

2233 + 
♦ 

2234* 

2235* 

♦ 

2236* 

2237 + 
♦ 

2238 + 

2239 + 
♦ 

224L + 

2241 + 
+ 

2242 + 

2243 + 
♦ 

2244 + 

2245 + 
♦ 

2246 + 

2247 + 
♦ 

2248 + 

2249 + 
+ 

22SG + 

2251 + 
♦ 

2252 + 

2253 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 



OC AL1(3),AL3(0F0CB19)' 
OC AL1(3),AL3(0FDCB2CI' 
OC ALK1),AL3(DFDCB21)' 
OC AL1(0I.AL3(DFDCB22I' 
OC ALKCI,AL3(CFDCB23)' 
OC ALl(128l,AL3tDFDCB24>« 
CTBC OFSCTB C, l,OOOCOOt000003COiOOiCOiCNT64-OFSICNTtO ( OX 
0« 

CTei CFSCTB 1,2,C68181,4000C1CO,CC,CO,CNT1-DFSICNT,X 
CONTINUE' 

COB1-DFSICOB,0,C« 
ENTRY UFSCTBMT' 
OFSCTEMT EQU CTB1' 

CTB2 OFSCTB It 2.E28181tOO0OO300t OCi C0,CNT3-DFSICNT,X 
CONTINUE" 

COBl-CFSICOB.OtO' 
CTB3 OFSCTB 2, 3, 458181, OuCGC 100, 00,00, CNT4-DFSICNT, X 
CONTINUE' 

COB2-DFSICOB,OtO• 
CTB4 OFSCTB 3, 3, 468181,00000300, CO, 00, CNT5-DFSICNT, X 
CONTINUE' 

COBS-DFSICGB.O.O' 
CTB5 OFSCTB 4,4,E28 181,O0C00300,0C,CC,CNT6-OF SICNT, X 
CONTINUE' 

C0B4-DFSIC0B,0,0' 
CTB6 OFSCTB 5,5,404081, 0G00C10C, DO, 0A.CNT7-DFSICNT, X 
CONTINUE' 

COB5-DFSICOB f 0,CIBl-0FSICIB' 
CTB7 DFSCTB 5,5,C14081 ,00000100, 18, 2A.CNT9-DFSICNT, X 
CONTINUE' 

C0B5-0FSIC0B,0,CIB2-DFSICIB• 
CTB8 DFSCTB 5,5,C1C181,OOCOG100, 18, 2A.CNT10-DFSICNTX 
CONTINUE' 

COB5-DFSICOB,0,CIB3-DFSICIB' 
CTB9 OFSCTB 5.5.C1C281, 0C000100, 1C,2A,CNT11-0FSICNTX 
CONTINUE' 

C0B5-DFSIC0B,C,CIB4-CFSICIB' 
CTB10 DFSCTB 5, 5, C1C381 , 00000140,88, 2A.CNT12-DFSICNTX 
CONTINUE' 

C0B5-DFSIC0B,0,CIB5-DFSICIB' 
CTB11 OFSCTB 5, 5, C1C481 ,00000340,88, 2A.CNT13-0FSICNTX 
CONTINUE' 

C0B5-DFSIC08,0,CIB6-DFSICIB« 
CTB12 DFSCTB 6,6, 108181,00000100,08, 2A,CNT14-0FSICNTX 
CONTINUE' 

C0B6-DFSIC0B,0,CI67-0FSICIB' 
CTB13 DFSCTB 6,6, 128181,00000300, 00, 2A.CNT15-DFSICNTX 
CONTINUE' 

C0B6-DFSIC0B,0,CIB8-DFSIC1B« 
CTB14 DFSCTB 7, 7, 118181, C000C34C ,88, 2A .CNT16-DFSICNTX 
CONTINUE' 

C0B7-DFSIC0B,0,CIB9-DFSICIB' 
CTB15 CFSCTB 8, 8, E2C281 ,00000100,20, 2A.CNT17-0FSICNTX 
CCNTINUE' 

C0B8-DFSICCB,C,0' 
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PUNCH 'CTB16 
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2256* 


PUNCH 




2257+ 

♦ 
2258* 


PUNCH 


•CTB17 


PUNCH 




2259+ 
2260* 


PUNCH 


•CTB18 


PUNCH 


.' 


2261 + 


PUNCH 


•CTB19 


♦ 




T, 


2262* 


PUNCH 




2263* 

♦ 

2264* 


PUNCH 


•CTB20 


PUNCH 


,* 


2265 + 


PUNCH 


•CTB21 


♦ 




NT, 


2266* 


PUNCH 




2267 + 


PUNCH 


•CTB22 


+ 




NT, 


2268* 


PUNCH 




2269+ 


PUNCH 


•CTB23 


♦ 




NT, 


2270* 


PUNCH 




2271* 


PUNCH 


•CTB24 


♦ 




NT, 


2272* 


PUNCH 




2273* 


PUNCH 


•CTB25 


♦ 




NT, 


2274 + 


PUNCH 




2275 + 


PUNCH 


•CTB26 


+ 




NT, 


2276 + 


PUNCH 




2277 + 


PUNCH 


•CTB27 


♦ 




NT, 


2278 + 


PUNCH 




2279 + 


PUNCH 


•CTB28 


♦ 




NT, 


2280 + 


PUNCH 




2281 + 


PUNCH 


•CTB29 


■ ♦ 




NT, 


2282 + 


PUNCH 




22 83 + 


PUNCH 


•CTB30 


♦ 




NT, 


2284 + 


PUNCH 




2285 + 


PUNCH 


•CTR31 


+ 




NT, 


2286+ 


PUNCH 




2287 + 


PUNCH 


•CTB32 


♦ 




NT, 


2288 + 


PUNCH 




2289 + 


PUNCH 


•CTB33 


♦ 




NT, 


2290 + 


PUNCH 




2291 + 


PUNCH 


•CTB34 



CFSCTB 8, 8, E4C 281,00000300, 20. 0A,CNT18-DFS I CNTX 
CONTINUE' 

COB8-OFSICOB,0,0' 
OFSCTB 9, 9, 415 18 1,00000 100, 44, 00, CNT2C-DF SI CNTX 
CONTINUE' 

C0B9-DFSIC0B,0,0' 
OFSCTB 10, 9, 40 A081, 00000100,40, 00, CNT21-DFSICNX 
CONTINUE' 

C0B9-0FSICOB,0,0' 
OFSCTB 10, 9, 4CA181, 00000100,40, 00, CNT22-DFSICNX 
CONTINUE' 

C0B9-DFSICOB,0,0' 
OFSCTB 10,9,40A481,0000034C,CO,00,CNT23-OFSICNX 
CONTINUE' 

C0B9-0FSIC0B,C,C 
OFSCTB 11, 10, C 18181, 00004700,80, 02, CNT24-0FSICX 
CONTINUE' 



C0B10-DFSIC0B 
OFSCTB 12,11,C140F4 
CONTINUE' 

COBU-DFSICOB 
OFSCTB 13,U,C1F1FS 
CONTINUE' 

C0B12-DFSIC0B 
DFSCTB 14,11,C1F2F6 
CONTINUE' 

C0B13-0FSIC0B 
DFSCTB 15,12,018181 
CONTINUE' 

C0B14-DFSIC0B 
OFSCTB 16,13,508181 
CONTINUE' 

C0B15-0FSIC0B 
CFSCTB 16,14,538181 
CONTINUE' 

C0B16-DFSIC0B 
DFSCTB 17,15,648181 
CONTINUE' 

C0B17-DFSIC0B 
OFSCTB 17,15,648181 
CONTINUE' 

C0B17-DFSIC0B 
DFSCTB 18,16,008181 
CONTINUE' 

C0B18-DFSIC0B 
OFSCTB 19,17,008181 
CONTINUE' 

C0B19-DFSIC0B 
DFSCTB 20,18,008181 
CONTINUE' 

COB20-DFSICOB 
OFSCTB 21,19,000000 
CONTINUE' 

COB21-0FSIC0B 
OFSCTB 22,20,018181 



CXB1-DFSICXB,C 

00000100, 10, 00, CNT27-DFSICX 



00000100, 01, 00, CNT30-DFSICX 



00000300,0 A, 00, CNT34-DFSICX 



0,0' 

00000300, CO, 00, CNT39-DFSICX 



C000030C,OC,00,CNT40-DFSICX 



0,0' 
OOC00300,OA,00,CNT41-OFSICX 



OOOOC100,C0,O0,CNT42-OFSICX 



OOO0C70C,C0,00,CNT42-OFSICX 



00OOC7C0,00,0O,CNT42-DFSICX 



00000 34C,00,00,CNT44-OFSICX 



00000340,00, 00, CNT45-DFSICX 



OOOC0300,CO,00,CNT46-OFSICX 



C0004300,40,00,CNT48-DFSICX 
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2292 + 
2293* 

+ 
2294* 
2295* 

+ 
2296 + 
2297* 

2298* 
2299* 

230C + 
2301* 

+ 
2302* 
2303 + 

♦ 
2304* 

2305 + 

2306 + 
23C7 + 

♦ 
2308 + 
23C9 + 
2310 + 
2311* 
2312 + 
2313* 

2314 + 

2315 + 
2316* 
2317 + 
2318* 
2319* 
2320* 

2321 + 

2322 + 
♦ 

2323 + 

2324 + 



2326 + 
♦ 

2327 + 



2328 + 

2329 + 



2330 + 

2331 + 



PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 



CT835 
NT, 



CTB36 



NT, CONTINUE" 

COB22-DFSICOB,G,0' 
DFSCTB 2 3,21,C48181,C0000300,00,00,CNT49-DFSICX 
CONTINUE 1 

C0B23-0FSICOB,0,O' 
OFSCTB 24,22,E28181,GOOC03CO,00,00,CNT50-DFSICX 
CONTINUE' 

COB24-DFSICOB,0,0' 
OFSCTB 25,23,E28181,GOC003C0,00,00,CNT51-OFSlCX 
CONTINUE' 

COB25-0FSICOB,C,O' 
OFSCTB 26, 24,E2C28l,0OCCO300,20,OC,CNT52-OFSICX 
CONTINUE' 

COB26-DFSICOB,0,C 
CFSCTB 0,25,000281,20000100, CO, 00, CNT53-DFSICNX 
CONTINUE' 

COB27-0FSIC0B,C,C 
CFSCTB 0, 25, 000281,20000100, CO, 00, CNT56-DFSICNX 
CONTINUE' 

COB27-DFSICOB,C,0' 
OFSCTB 0,25,OC0281,2COC0100,00,00,CNT58-DFSICNX 
CONTINUE' 

C0B27-0FSICOB,C,G' 
OFSCTB 0,25, 000281, 2C0C0300, CO, 00, CNT60-0FSICNX 
, CONTINUE' 

COB27-0FSICOB,0,0' 
OFSCOBS 27* 
CXB1 DFSCXB 0210, OCOC, 0019, 0000' 
Ciei CFSCIB CCC4' 
CIH2 CFSCIB 02C7' 
CIB3 CFSCIB 02C7* 
Cie4 CFSCIB C0C7' 
CIB5 DFSCIB 0360' 
CIB6 CFSCIB 0360' 
CIB7 DFSCIB 0240* 
CIBB DFSCIB 0CC7' 
CIB9 CFSCIB 0340' 



CT837 
NT, 



CTB38 
NT, 



CTB39 
T, 



CTB4C 



CTB41 



CTB42 



CNT21 
CNT22 
CNT34 

CNT' 
CNT29 
CNT31 

NT' 
CNT35 

CNT' 
CNT 54 

T' 
CNT32 

NT' 
CNT1 
CNT53 

CNT' 
CNT23 
CNT27 



OFSCNT AA,0O0C,O,CTB18-DFSlCTB, 65535' 
DFSCNT AB,003C«C,CTB19-OF SI CTB, 65535' 
OFSCNT ATELLER,008C,0,CTB24-DFSICTB,CNT35-DFSIX 

OFSCNT A 29801, 0080, 0.CTB22-DFSICTB, 65535' 
DFSCNT A298O2,O08O,C,CTB23-0FSICTB,CNT32-DFSICX 

DFSCNT BTELLER, 0080, 0.CTB24-DFSICTB.CNT36-DF SIX 

DFSCNT CAROL,OC02,O,CTB39-0FSICTB,CNT55-DFSICNX 

OFSCNT COMMON, 0080, 0,CTe23-DFSlCTB,CNT33-DF SIC X 

CFSCNT CTRL, 4000,0, CTB 1-DFS I CTB, CNT 2-DFSICNT* 
DFSCNT ELEANOR, 0002, 0.CTB39-DFSICTB.CNT54-DFSIX 

CFSCNT ERNE, OCOC, 0.CTB2C-DFSICTB, 65535' 

OFSCNT H0MER1,CC80,0,CTB22-DFSICTB,CNT28-0FSICX 
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2332* 
2333* 
2334* 
2335 + 
2336+ 
2337* 
2338* 
2339* 
2340* 
2341 + 
2342* 

♦ 
2343* 

♦ 
2344 + 
2345* 
2346* 
2347* 

♦ 
2348 + 

2349+ 

2350 + 
♦ 

2351 + 

2352 + 

2353 + 

2354 + 

2355 + 

2356 + 

2357 + 
+ 

2358+ 



236C + 

2361 + 
♦ 

2362 + 

2363 + 

2364 + 

2365 + 

2366 + 

2367 + 

2368 + 
♦ 

2369 + 

2370 + 

2371 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 



PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 



NT' 

•CNT38 

•CNT33 

•CNT2 

•CNT40 

•CNT41 

•CNT48 

•CNT49 

•CNT5C 

•CNT51 

•CNT52 

•CNT36 

CNT' 

•CNT37 

CNT» 

•CNT3 

•CNT4 

■CNT5 

•CNT28 

NT' 

'CNT3C 

NT* 

•CNT17 

•CNT18 

ICNT' 

•CNT19 

•CNT44 

•CNT55 

•CNT46 

•CNT47 

■CNT63 

•CNT61 

ICNT* 

■CNT62 

ICNT" 

'CNT60 

NT* 

•CNT45 

•CNT42 

NT' 

•CNT43 

•CNT20 

'CNT6 

•CNT39 

•CNT56 

CNT' 

•CNT57 

•CNT58 

CNT' 

•CNT59 

•CNT26 

•CNT24 

NT" 

•CNT25 

NT* 



DFSCNT HOMER2t0080t0tCTe24-DFSICTB, 65535* 
DFSCNT H0MER4,0C80,1,CTB23-DFSICTB, 65535* 
DFSCNT HOWARD t OOOOtO tCTBl-DFS I CTB, 65535' 
OFSCNT INQU0393, 000 1,0, CTB 26-DFSICTB, 65535* 
DFSCNT INQU0401,0001.0fCTB27-DFSICTB,6553 5' 
DFSCNT INQU0464, 000 1,0,CTB34-DF SI CTB, 65535* 
DFSCNT I NQU0469, 0001, 0.CTB35-DFSICTB, 65535* 
DFSCNT INQU0477, 0001, 0.CTB36-DFSI CTB, 65535' 
OFSCNT INQU0485, 000 1,0,CTB37-DFSICTB, 65535* 
OFSCNT INQU0493,00C1,0,CTB38-DFSI CTB, 65535' 
DFSCNT J TELLER, 0080, 0,CTB24-0FSICTB,CNT37-DFSIX 

OFSCNT KTELLER,C080,0,CTB24-DFSICTB,CNT38-DFSIX 

DFSCNT LARRY, 0000, 0.CTB2-DFSICTB, 65535" 
DFSCNT M00EL2, 0000, 0.CTB3-DFSICTB, 65535' 
DFSCNT M0DEL2K,00C0,C,CTB4-DFSICTB, 65535' 
DFSCNT N29801,0C80,0,CTB22-DFSICTB,CNT29-DFSICX 

CFSCNT N29802,0C80,0,CTB23-DFSICTB,CNT31-DFSICX 

DFSCNT PRINTER1,0000,0,CTB15-DFSICTB,65535' 
DFSCNT PRINTER 2, 0000,0, CTB 16-DFSI CTB, CNT19-DFSX 

OFSCNT PR INTER3, 0000, 1.CTB16-DFSI CTB, 65535' 
DFSCNT PRTSYS,O0CO,O,CTB31-DFSICTB, 65535' 
DFSCNT SHARRON, 0002, C, CTB39-DFSICTB, 65535' 
DFSCNT SP1,0000,0,CTB33-DFSICTB,CNT47-DFSICNT« 
CFSCNT SP2, 0000, CCTB33-DFS I CTB, 65535' 
OFSCKT SWCOPNCH, 0002, 3, CTB42-DFSI CTB, 65535' 
DFSCNT SWPRNTR2,0002,2,CTB42-DFSICTB,CNT62-DFSX 

DFSCNT SWTPPNCH,0002,2,CTB42-DFSICTB,CNT63-DFSX 

DFSCNT SwlG5C,0002,0,CTB42-CFSICTB,CNT61-CFSICX 

CFSCNT TAPESYS.CCOCC, CTB 32-DFSICTB, 65535' 
OFSCNT n033A,0000,0,CTB2B-DFSICT6,CNT43-DFSICX 

CFSCNT T1033B,0000,0,CTB28-DFSICTB,6 5535« 
OFSCNT T2265XCL, 0000,0, CTB 17-DFS I CTB, 65535' 
DFSCNT T274i)NSC, 0000, 0.CTB5-DFSICTB, 65535* 
DFSCNT T2741,OCO0,C, CTB 25-DFSICTB, 65535' 
OFSCNT T2741N1,00C2,C,CTB40-DFSICTB,CNT57-DFSIX 

DFSCNT T2741N2,O0C2,0,CTB4O-DFSICTB, 65535' 
OFSCNT T2741N3,0002,0,CTB41-DFSICTB,CNT59-DFSIX 

DFSCNT T2741N4,0OC2,C,CTB41-DFSICTB, 65535' 
DFSCNT T2 770C,0000,2,CTB21-0FSICTB,65535' 
CFSCNT T2770P,0C00,0,CTB21-DFSICTB,CNT25-DFSICX 

CFSCNT T277CV,C000,1,CTB21-0FSICTB,CNT26-CFSICX 
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2373* 
2374* 
2375* 

2376 + 

2377 + 

2378 + 

2379 + 
2380* 
2381* 
2382* 
2383 + 
2334 + 

♦ 

2385 + 

2386 + 

2387 + 

2388 + 

2389 + 
239C + 

2391 + 

2392 + 

2393 + 

2394 + 

2395 + 

2396 + 
2397+ 

2398 + 

2399 + 

2400 + 

2401 + 

2402 + 

2403 + 

2404 + 
24C5 + 

2406 + 

2407 + 

2408 + 
+ 

2409 + 

2410 + 
* 

2411 + 

2412 + 



2417 + 

2418 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 



CNT9 

CNT1C 

CNT11 

CNT14 

CNT15 

CNT12 

CNT13 

CNT16 

CNT7 

CNT8 

CNT64 



DFSCNT T327CA,0GOC,G,CTB7-OF 
DFSCNT T327CB,0CC0i0tCTB8-DF 
CFSCNT T3270Cf0C0CtCiCTB9-DF 
OFSCNT T3270L1.G00C,0,CTB12 
DFSCNT T3270L2 f C000,0tCTB13 
OFSCNT T3270P1,C0C0,0,CTB1C 
DFSCNT T327GP2.CCCG.C.CTB11 
DFSCNT T327GP3.C0OO.C.CTB14- 
DFSCNT T3275,0OCOtC,CTB6-DFS 
DFSCNT T3275P,C0G0,ltCTB6-DF 
DFSCNT WTOR.CCGO.O.CTBO-DFSI 
TITLE "DFSICLLO - COMMUNICA 



SICTB.65535' 
SICTB, 65535* 
SICTB.65535' 
DFSICTB, 65535' 
DFSICTB, 65535' 
DFSICTB, 65535' 
DFSICTB, 65535' 
DFSICTB, 65535' 
ICT8.CNT8-DFSICNT' 
SICTB.65535' 
CTB, 65535' 
TION TERMINAL MATRX 



X ICTMI."' 



ENTRY CFSICTH* 



DS 
CC 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
END' 



CD' 

B"CC00C0C0" 

B"10GC0CO0" 

tCOLGGOGOO" 

B"OGG0CGGC" 

B"G0GOCOC0" 

B« 'OGOOGOOO' ' 

B"00OOCCOO' ' 

B"OOOOG001" 



/*• 

//STEP2 

// PARM= 

//SYSLIB 

// 

//SYSLIN 

//SYSPRI 

// SPACE 

//SYSUT1 

// SPACE 

//SYSIN 



ES (CTTI. 
DFSICTTC 
CTTO 
TREC=TRC 

CTTI 



EXEC PGM=IEV90.REGION=200K,« 

•LOAC.NODECK" • 

DD DSN=IMS2.GENLIB,DISP=SHR' 

DO 0SN=SYS1.MACLIB,DISP=SHR' 

DD DSN=IMS2.BLKS5C(DFSICLL1),DISP=0LD' 
NT DD SYS0UT=A,0CB=(BLKSIZE=605),' 
=(605,1 100.50),RLSE,,R0UNDI' 

DD UNIT=SYSOA,DISP=(, DELETE),' 
=(CYL,(10,5I )• 
CD *• 

OFSCCBS 6,3' 

TITLE "DFSICLL1 - COMMUNICATION TERMINAL TABLX 
• ■ • 

CSECT' 

ICTTG DPT 1 = 231, OPT2=0,DD=DFS0NSC0,TSNC=TRC0NSSX 
GNSS, X' 

BUFSZ=146,INLNG=129 f NTRYL=0,LTC=51' 
ICTTG BUFSZ=200,NTRYL=2,IULNL=19, X 

CONTINUE' 

INLNG=144,IDLTAB=13,IDLLF=2, X 

CONTINUE' 

LTC=l,OPTl=0,OPT2=C,OPT3=0, X 

CONTINUE' 

DD=DFSDNC10. X 

CONTINUE' 

TSND=TR27401S, X 

CONTINUE' 
TREC=TR27401R' 
ICTTG BUFSZ=257,NTRYL=2.1DLNL=0, X 

CONTINUE' 
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IOC OBJECT CODE 



AD0K1 ADDR2 


STMT 


SOURCE STATEMENT 






2419 


PUNCH 




INLNG=451,I0LTAB=0,IDLLF=0, 
CONTINUE' 




2420 


y PUNCH 




LTC=4,OPT1=96,OPT2=0,OPT3=0, 
CONTINUE* 




2421 


► PUNCH 




DD=DFSDNC40, 
CONTINUE* 




2422< 


PUNCH 




TSND = TR27401S, 
CONTINUE' 




2423 


PUNCH 




TREC-TR27401R' 




2424< 


PUNCH 


CTT3 


ICTTG BUFSZ=449,NTRYL=2.IDLNL=0, 
CONTINUE' 




2425 


► PUNCH 




INLNG=45l, IDLTAB=0, IDLLF=0, 
CONTINUE' 




2426 


► PUNCH 




LTC*4, OPT 1=96, OPT2=0,CPT3=0, 
CONTINUE' 




2427< 


PUNCH 




DD=0FSDN040. 
CONTINUE' 




2428< 


PUNCH 




TSND=TR27401S, 
CONTINUE' 




2429 


PUNCH 




TREC=TR27401R" 




2430 


PUNCH 


CTT4 


ICTTG BUFSZ=200,NTRYL=2, IDLNL=19, 
CONTINUE' 




2431 


PUNCH 




INLNG=144,I0LTAB=13,IDLLF=2, 
CONTINUE' 




2432 


V PUNCH 




LTC=12.0PT1=0,OPT2=48,OPT3=0, 
CONTINUE' 




2433 


y PUNCH 




DU=DFSDN120, 
CONTINUE" 




2434 


► PUNCH 




TSN0=TR27401S, 
CONTINUE' 




2435 


PUNCH 




TREC=TR27401R' 




243 6 


PUNCH 


CTT5 


ICTTG BUFSZ=48,NTRYL=6,inLNL=n, 
CONTINUE' 




2437 


y PUNCH 




INLNG=344,IDLTAB=»0,IDLLF»0, 
CONTINUE" 




2438 


PUNCH 




LTC=13,OPT1=117,OPT2=2,OPT3=0 

CONTINUE' 




2439 


► PUNCH 




0D=0FSUN130, 
CONTINUE" 




2440 


► PUNCH 




TSND=TRCONSS, 
CONTINUE' 




2441 


► PUNCH 




TREC=TRCUNSS" 




2442 


y PUNCH 


CTT6 


ICTTG BUFSZ=8,NTRYL=0,IDLNL=0, 
CONTINUE' 




2443 


PUNCH 




INLNG=30 6,IDLTAB=C,IDLLF=0, 
CONTINUE' 




2444 


PUNCH 




LTC=14,OPT1=101,OPT2=2,OPT3=0 
CONTINUE' 




2445 


y PUNCH 




0D=DFSDN140, 
CONTINUE' 




2446 


► PUNCH 




TSND=TRCONSS, 
CONTINUE' 




2447 


► PUNCH 




TREC=TRCONSS« 




2448 


PUNCH 


CTT7 


ICTTG BUFSZ=8,NTRYL=0,ICLNL=0, 
CONTINUE" 



F010CT71 10/02/72 
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LOC OBJECT CODE 



AODR1 ADDR2 STMT 



STMT 


SOURCE STATEMENT 




F010CT71 


2449* 


PUNCH 




INLNG«6,IDLTAB»0,IDLLF*0, 


X 


♦ 






CONTINUE* 




2450* 


PUNCH 




LTC-14, OPT 1-101 1 0PT2«2,0PT3»0, 


X 


♦ 






CONTINUE' 




2451* 


PUNCH 




DD«DFSDN140, 


X 


♦ 






CONTINUE' 




2452* 


PUNCH 




TSND-TRCONSS, 


X 


♦ 






CONTINUE' 




2453* 


PUNCH 




TREC»TRCONSS' 




2454* 


PUNCH 


CTT8 


ICTTG BUFSZ«200,NTRYL«3,IDLNl=19, 


X 


♦ 






CONTINUE' 




2455* 


PUNCH 




INLNG*144,IDLTAB«13,IDLLF»2, 


X 


♦ 






CONTINUE' 




2456* 


PUNCH 




LTC-2,0PTl-0 f OPT2»OiaPT3-Ot 


X 


♦ 






CONTINUE' 




2457 + 


PUNCH 




OD«DFSDN020, 


X 


♦ 






CONTINUE' 




2458* 


PUNCH 




TSND»IECTSD50, 


X 


♦ 






CONTINUE' 




2459* 


PUNCH 




TREC»IECTRC5G' 




2460* 


PUNCH 


CTT9 


ICTTG BUFSZ=970,NTRYL»3,IDLNL«0, 


X 


♦ 






CONTINUE' 




2461* 


PUNCH 




INLNG=970,IOLTAB=3,IDLLF«0, 


X 


+ 






CONTINUE' 




2462* 


PUNCH 




LTC»3, OPT 1-96, 0PT2»128,0PT3»0, 


X 


♦ 






CONTINUE' 




2463 + 


PUNCH 




OD=DFSDN030, 


X 


♦ 






CONTINUE' 




2464* 


PUNCH 




TSND«TR2260RS, 


X 


♦ 






CONTINUE' 




2465* 


PUNCH 




TREC-TR2260RR' 




2466* 


PUNCH 


CTT10 


ICTTG BUFSZ»97G,NTRYL»3,IDLNL»0, 


X 


♦ 






CONTINUE' 




2467* 


PUNCH 




INLNG=97C,IDLTAB«C,IDLLF«0, 


X 


♦ 






CONTINUE' 




2468* 


PUNCH 




LTC»3,0PT1»96,0PT2«128,0PT3»0, 


X 


♦ 






CONTINUE' 




2469 + 


PUNCH 




OD-OFSDN030, 


X 


♦ 






CONTINUE' 




2470* 


PUNCH 




TSND»TR2260RS, 


X 


♦ 






CONTINUE' 




2471* 


PUNCH 




TREC*TR2260RR' 




2472 + 


PUNCH 


CTT11 


ICTTG BUFSZ»276,NTRYL»5,IDLNL=0, 


X 


♦ 






CONTINUE' 




2473* 


PUNCH 




INLNG=277,IDLTAB=C,IDLLF=0, 


X 


♦ 






CONTINUE' 




24 74 + 


PUNCH 




LTC-9,0PTl»181,0PT2«0,OPT3=O, 


X 


♦ 






CONTINUE' 




2475 + 


PUNCH 




DD-DFSDN090, 


X 


♦ 






CONTINUE' 




2476* 


PUNCH 




TSN0=TRC0NSS, 


X 


+ 






CONTINUE' 




2477* 


PUNCH 




TREC=TRCONSS' 




2478* 


PUNCH 


CTT12 


ICTTG BUFSZ»100.NTRYL«5,IDLNL«15, 


X 


♦ 






CONTINUE' 
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OBJECT COOE ADDR1 ADDR2 STMT 


SOURCE STATEMENT 






2479 + 


PUNCH 




INLNG-L00tIDLTA8«10tI0LLF»15, 




♦ 






CONTINUE* 




248C + 


PUNCH 




LTC-UfOPTl«53tOPT2«OtOPT3«Ot 




♦ 






CONTINUE' 




2481 + 


PUNCH 




0D-DFSON110, 




♦ 






CONTINUE' 




2482 + 


PUNCH 




TSNO'MOlEBCLCt 




+ 






CONTINUE' 




2483* 


PUNCH 




TREC-MD1LCEBC 




2484* 


PUNCH 


CTTX3 


ICTTG BUFSZ«100,NTRYL«5,IDLNL«15, 




♦ 






CONTINUE' 




2485* 


PUNCH 




INLNG«100tIDLTAB'10«I0LLF«15, 




♦ 






CONTINUE' 




2486 + 


PUNCH 




LTC«ll,0PTl»53,0PT2«0t0PT3»0, 




♦ 






CONTINUE' 




2487* 


PUNCH 




DD«=DFSDN110t 




♦ 






CONTINUE' 




2488* 


PUNCH 




TSND-MD2EBCLC, 




♦ 






CONTINUE* 




2489* 


PUNCH 




TREC»M02LCEBC 




2490 + 


PUNCH 


CTT14 


ICTTG BUFSZ"100tNTRYL»5,I0LNL«15, 




♦ 






CONTINUE' 




2491* 


PUNCH 




INLNG«100» I0LTAB=10 f IDLLF-15, 




♦ 






CONTINUE' 




2492* 


PUNCH 




LTC«lltOPTl-53,OPT2-0,OPT3-O t 




♦ 






CONTINUE' 




2493* 


PUNCH 




OO'OFSONllOt 




♦ 






CONTINUE* 




2494+ 


PUNCH 




TSND«ND4EBCLC, 




+ 






CONTINUE* 




2495 + 


PUNCH 




TREC-MD4LCEBC* 




2496 + 


PUNCH 


CTT15 


ICTTG BUFSZ»200tNTRVL«0,I0LNL*13t 




♦ 






CONTINUE' 




2497 + 


PUNCH 




INLNG«144 f I0LTAB«13tIDLLF»2, 




♦ 






CONTINUE' 




2498 + 


PUNCH 




LTC»8,OPTl-0t0PT2»56,OPT3*0, 




♦ 






CONTINUE' 




2499 + 


PUNCH 




00=DFSDN080t ;'\ 




♦ 






CONTINUE' 




2500 + 


PUNCH 




TSNDMECTSD41, 




♦ 






CONTINUE* 




2501 + 


PUNCH 




TREC=IECTRF41' 




2502 + 


PUNCH 


CTT16 


ICTTG BUFSZ«200,NTRYL«0,IDLNL«l3t 




♦ 






CONTINUE' 




2503 + 


PUNCH 




INLNG*144tIDLTAB*13.IDLLF«2 f 




+ 






CONTINUE' 




2504 + 


PUNCH 




LTC»69tOPTl-13,OPT2«56,0PT3»0, 




♦ 






CONTINUE* 




2505 + 


PUNCH 




CD«DFSDS050t 




♦ 






CONTINUE* 




2506 + 


PUNCH 




TSND-IECTS041, 




♦ 






CONTINUE' 




2507 + 


PUNCH 




TREC-IECTRF41" 




2508 + 


PUNCH 


CTT17 


ICTTG BUFSZ«200,NTRVL«2,IDLNl«52, 




+ 






CONTINUE' 
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LOC OBJECT CODE 



DDR1 AODR2 STMT 


SOURCE STATEMENT 


F010CT71 


10/02/72 




25U9* 


PUNCH 




INLNG-200. IDLTAB»52t IDLLF=8, 


X 




♦ 






CONTINUE' 






2510* 


PUNCH 




LTC»6,0PTl»l00t0PT2-128,OPT3»0t 


X 




4 






CONTINUE" 






2511* 


PUNCH 




DD«DFSDN060. 


X 




* 






CONTINUE* 






2512* 


PUNCH 




TSND»IECTS030, 


X 




♦ 






CONTINUE' 






2513 + 


PUNCH 




TREC-IECTRC30' 






2514* 


PUNCH 


CTT18 


ICTTG BUFSZ»10,NTRYL«0tIDLNL»0i 


X 




♦ 






CONTINUE' 






2515 + 


PUNCH 




INLNG'9G « I DLT AB'G • I DLL F*Ct 


X 




♦ 






CONTINUE' 






2516 + 


PUNCH 




LTC-15,OPT1»103.0PT2-160,OPT3-Ct 


X 




♦ 






CONTINUE' 






2517* 


PUNCH 




DD»DFSDN150t 


X 




♦ 






CONTINUE' 






2518* 


PUNCH 




TSNO-Ot 


X 




♦ 






CONTINUE' 






251S* 


PUNCH 




TREC-O' 






2520* 


PUNCH 


CTT19 


ICTTG BUFSZ="143,NTRYL»0tIDLNL»0, 


X 




♦ 






CONTINUE' 






2521* 


PUNCH 




INLNG«10 i IDLTAB»0, IDLLF»0, 


X 




♦ 






CONTINUE' 






2522* 


PUNCH 




LTC=15tOPTl»103.0PT2»32,OPT3»Gt 


X 




♦ 






CONTINUE' 






2523* 


PUNCH 




OO'OFSONlSOt 


X 




♦ 






CONTINUE' 






2524* 


PUNCH 




TSND»TRPRTPNt 


X 




♦ 






CONTINUE' 






2525* 


PUNCH 




TREC»0' 






2526* 


PUNCH 


CTT20 


ICTTG BUFSZ»224.NTRYL«0,I0LNL»0, 


X 




♦ 






CONTINUE' 






2527* 


PUNCH 




INUNG"lCtI0LTAB»OiIDLLF-O, 


X 




♦ 






CONTINUE' 






2528* 


PUNCH 




LTC»15.0PTl-lG3i0PT2»36,0PT3»0t 


X 




♦ 






CONTINUE' 






2529* 


PUNCH 




DO»0FSDN150t 


X 




♦ 






CONTINUE' 






2530 + 


PUNCH 




TSND=0, 


X 




♦ 






CONTINUE' 






2531* 


PUNCH 




TREC»0' 






2532 + 


PUNCH 


CTT21 


ICTTG BUFSZ=880.NTRYL»0,IOLNL«0. 


X 




♦ 






CONTINUE' 






2533* 


PUNCH 




INLNG»32tIDLTAB«0,I0LLF=0. 


X 




♦ 






CONTINUE' 






2534* 


PUNCH 




LTC»15,OPTl=lC3tOPT2»32,CPT3»Ot 


X 




♦ 






CONTINUE' 






2535* 


PUNCH 




D0-DFS0N150, 


X 




♦ 






CONTINUE' 






2536 + 


PUNCH 




TSND=Ot 


X 




♦ 






CONTINUE" 






2537* 


PUNCH 




TREC«0« 






2538 + 


PUNCH 


CTT22 


ICTTG BUFSZ=256fNTRYL=0,I0LNL»0. 


X 




♦ 






CONTINUE' 
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LOC OBJECT CODE 



ADOR1 AODR2 STMT SO 


URCE STATEMENT 






2539* 


PUNCH 




INLNG=256,IDLTAB»0tIDLLF=0. 




♦ 






CONTINUE' 




25*0* 


PUNCH 




LTC=67,0PTl»12.0PT2-56,0PT3=0t 




♦ 






CONTINUE' 




2541* 


PUNCH 




0D«0FSDS030, 




♦ 






CONTINUE' 




2542* 


PUNCH 




TSND»0UT7770, 




♦ 






CONTINUE' 




25*3 + 


PUNCH 




TREC-ABB7770' 




2544* 


PUNCH 




ROUTINE 0UT7770 ' 




2545* 


PUNCH 


CTT23 


ICTTG BUFSZ«210.NTRYL»0»IOLNL=0, 




♦ 






CONTINUE' 




2546* 


PUNCH 




INLNG»60f I0LTAB»O»IDLLF«0i 




♦ 






CONTINUE' 




2547* 


PUNCH 




LTC"67,0PTl»12t0PT2»56,0PT3«0, 




♦ 






CONTINUE' 




2548* 


PUNCH 




DD*DFSDS030t 




♦ 






CONTINUE* 




2549* 


PUNCH 




TSND»0UT7770, 




♦ 






CONTINUE' 




2550 + 


PUNCH 




TREC»ABC7770« 




255U 


PUNCH 




ROUTINE OUT7770 • 




2552* 


PUNCH 


CTT24 


ICTTG BUFSZ»200,NTRYL»O f IOLNL»2. 




♦ 






CONTINUE' 




2553 + 


PUNCH 




INLNG«200tIDLTAB-2,IOLLF»2, 




♦ 






CONTINUE' 




2554* 


PUNCH 




LTC«68, OPT 1=40 tOPT2=8,OPT3»0t 




♦ 






CONTINUE' 




2555 + 


PUNCH 




DD«DFSDS040t 




♦ 






CONTINUE' 




2556* 


PUNCH 




TSN0«IECTSCT2, 




♦ 






CONTINUE' 




2557* 


PUNCH 




TREC»IECTRCT2» 




2558* 


PUNCH 


CTT25 


ICTTG BUFSZ»200iNTRYL«OtIOLNL=19, 




♦ 






CONTINUE' 




2559* 


PUNCH 




INLNG=144,IDLTAB=13,I0LLF«2, 




♦ 






CONTINUE' 




2560* 


PUNCH 




LTC=65tCPTl=8,OPT2-CtOPT3»0t 




♦ 






CONTINUE' 




2561* 


PUNCH 




0D»0FS0S010t 




♦ 






CONTINUE' 




2562* 


PUNCH 




TSN0»TR27401S, 




♦ 






CONTINUE' 




2563* 


PUNCH 




TREC-TR27401R' 




2564* 


PUNCH 


CTT26 


ICTTG BUFSZ«200,NTRYL-3tI0LNl=l9, 




♦ 






CONTINUE' 




2565* 


PUNCH 




INLNG=144,IDLTAB»13,I0LLF«2f 




♦ 






CONTINUE' 




2566 + 


PUNCH 




LTC=66,OPT1«8,OPT2=G,OPT3=0, 




♦ 






CONTINUE' 




2567* 


PUNCH 




D0»DFSDS020t 




♦ 






CONTINUE' 




2568+ - 


PUNCH 




TSND»IECTS050t 




+ 






CONTINUE' 




2569* 


PUNCH 




TREC*IECTRC50' 



FC10CT71 10/02/72 
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LOC OBJECT COOE 



AODR1 AODR2 STMT SOURCE STATEMENT 



F010CT71 10/02/72 



2570* 
2571* 
♦ 
2572* 
2573* 
2574* 
2575* 
2576* 
2577* 
2578 + 
2579* 
2580 + 
2581* 
2582* 
2583* 
2584* 
2585* 
2586* 
2587* 
2588* 
2589* 
2590* 
2591* 
2592* 
2593* 
2594* 
2595* 
2596* 
2597* 
2598* 
2599* 
2600* 
2601* 
2602* 
2603* 
2604* 
2605* 
2606* 
2607f 
2608* 
2609* 
2610+ 
2611* 
2612* 
2613* 
2614* 
2615* 
2616* 
2617* 
2618* 
2619* 
2620* 

2621 + 

2622 + 
2623* 



PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



ROUTINE GEN • 

TITLE ••DFSICLLl - COMMUNICATION TRANSLATION TX 
ABLES. 1 * 1 
OFSITRTO CSECT' 

COPY TRCONSS* 

ENTRY IECTSD41.IECTRF41 • 

ASMTRTA3 SD41' 

ORG IECTSD41*55» 

OC X^EB"* 

ORG* 

ASMTRTAB RF41« 

ORG 1ECTRF41*31« 



OC 


X it42"> 


ORG 


IECTRF41*159» 


OC 


X ,, 42«" 


ORG* 




EJECT 


• 


ENTRY 


IECTSD40iIECTRF40 


ASMTRTAB SD40« 


ORG 


IECTSD40*55« 


DC 


X , «88 ,, « 


ORG* 




ASMTRTAB RF40' 


ORG 


IECTRF40*31« 


DC 


X'S2'" 


ORG* 




EJECT 


• 


ENTRY 


IECTSB40tIECTRU40 


ASMTRTAB SB4C 


ORG 


IECTSB40+55" 


DC 


X»»88« , « 


ORG* 




ASMTRTAB RU40' 


ORG 


IECTRU40*31« 


DC 


X"42«" 


ORG 1 




EJECT 


• 


ASMTRTAB RCT2iSCT2 • 


ORG 


IECTSCT2*21 • 


DC 


X"fll'"' 


ORG 


IECTSCT2*38 • 


OC 


X««C9«" 


ORG • 




EJECT 


■ 


COPY 


TRPRTPN ' 


COPY 


TRN2740' 


COPY 


TRN105G' 


COPY 


TRN2260* 


ASMTRTAB RC30tSD30> 


ORG 


IECTSD30O' 


DC 


X«"23«»« 


ORG 


IECTS030»55» 


DC 


x .»23«" 


ORG 1 




EJECT 





3.183 
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LOC OBJECT COOE 



ADOR1 A0DR2 STMT SOURCE STATEMENT 



F010CT71 10/02/72 



2624+ 
2625* 
2626* 
2627 + 
2628* 
2629* 
2630+ 
2631* 
2632* 
2633 + 
2634* 
2635* 
2636* 
2637* 
2638 + 
2639+ 
2640* 

2641 + 

2642 + 
2643* 

2644 + 

2645 + 

2646 + 

2647 + 
2648* 
2649 + 
2650+ 
2651* 
2652 + 
2653* 

2654 + 

2655 + 
2656* 
2657* 
2658 + 
2659+ 

2660 + 

2661 + 

2662 + 

2663 + 

2664 + 
2665+ 
2666+ 
2667 + 
2668+ 
2669+ 
2670+ 
2671 + 
2672+ 
2673+ 
2674 + 
2675+ 
2676+ 
2677+ 
2678 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



COPY 


TRN2742' 


COPY 


ABC7770' 


COPY 


ABB777G' 


COPY 


TRAN298C 


COPY 


TRN29801' 


COPY 


TRN29802' 


COPY 


TRN29804' 


END' 





/*• 

//STEP3 EXEC PGM«IEV90,REGI0N»20CK,' 

// PARM«"LOAC,NODECK"' 

//SYSLIB DO DSN=IMS2.GENLIB,DISP=SHR« 

// DD DSN=SYS1.MACLIB,UISP"SHR« 

//SYSLIN OD DSN=IMS2.BLKS50(DFSICVeOI,CISP«OLO« 

//SYSPRINT DD SYSOUT«A,DCB»(BLKSIZE«605I, • 

// SPACE«(605,(100.50),RLSE,,ROUNDI« 

//SYSUT1 DD UNlT*SYSDA,DISP«t, DELETE),' 

// SPACE»(CYL,»10,5M' 

//SYSIN 00 *• 

CVBG /ASSIGN, DFSICL70»CTH»0' 
CVBG /BROADCAST, DFSI CLIO, FLAGS'98' 
CVBG /CANCEL. DFSCLP20,FLAGS"C6« 
CVBG /CHANGE, DFS ICL60,CTM»0' 
CVBG /CHECKPOINT, DFSICL20,CTM«0,FLAGS=80' 
CVBG /OBDUMP,DFSICL20,CTH»C,FLAGS-80' 
CVBG /DBRECOVERY,DFSICL20,CTM«0,FLAGS»80' 
CVBG /DELETE, 0FSICL80,CTM»C' 
CVBG /DEQUEUE, OFSICL JO, FLAGS-80,CTM»0« 
CVBG /DI SPLAY, DFSICLDO,CTM«0, FLAGS-BO' 
CVBG /END.DFSICL50' 

CVBG /ERESTART,0FSICL20,CT*-0,FLAGS'B4' 
CVBG /EXCLUSIVE, 0FSICL5O' 
CVBG /EXIT.OFSICLHO' 
CVBG /FORMAT, DFS ICLKO ,FLAGS-BO' 
CVBG /HOLD.DFSICLHO' 
CVBG /IAM,DFSICLAO,FLAGS«80« 
CVBG / IDLE, DFSICLGO.CTH-O, FLAGS-BO' 
CVBG /LOCK.DFSICL90' 
CVBG /L0G,DFSCLP10,FLAGS«02' 
CVBG /LOOPTEST,DFSICL50,FLAGS-98« 2605 
CVBG /NRESTART,DFSICL20,CTM-0,FLAGS»A4' 
CVBG /PST0P,0FSICL40,CTM«0' 
CVBG /PURGE, DFSICL40,CTM«0« 
CVBG /RDI SPLAY, DFS ICLDO, FLAGS-80' 
CVBG /RELEASE, CFSICLHO* 
CVBG /RESET, OFSICLEO' 
CVBG /RSTART,DFSICL40,CTH«0' 
CVBG /SET, OFSICLEO' 
CVBG /START, DFSICL40,CTH«0• 
CVBG /ST0P,DFSICL40,CTH«0' 
CVBG /TEST,DFSICL50,FLAGS«80« 2605 
CVBG /TRACE, DFSI CLNO,FLAGS-80,CTM*0* 
CVBG /UNLOCK, DFS ICL90' 
END' 

/*' 
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2679* 
2680* 
2681* 
2682* 
2683* 
2684* 
2685* 
2686* 
2687* 
2688* 
2689* 

♦ 
269C* 
2691* 
2692* 
2693* 
2694* 
2695* 
2696* 
2697* 
2698* 
2699* 

♦ 
2700* 

♦ 
2701* 
2702* 
2703* 
2704* 
2705* 
2706* 
2707+ 
2708* 
2709* 
2710* 
2711* 
2712* 
2713* 
2714* 
2715* 
2716* 
2717+ 
2718* 
2719* 
2720+ 
272U 
2722* 
2723* 
2724* 
2725* 
2726* 
2727* 
2728* 
2729 + 
2730* 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



//STEP* EXEC PGM»IEV90,REGION»200K,' 
// PARM»"L0AD,N0DECK'" 
//SYSLIB DO DSN-IMS2.GEKLIB,DISP»SHR' 
// DD 0SN-SYS1.MACLIB,DISP»SHR« 

//SYSLIN DD DSN»IHS2.BLKS50CDFSISDBB).DISP«0LD' 
//SVSPRINT DD SVS0UT-AtDCB»(BLKSIZE«605),' 
// SPACE-<605t< 100i50),RLSE», ROUND)' 
//SYSUT1 00 UNIT-SYSDAtOISP»(, DELETE),* 
// SPACE«(CYL,< 10,511' 
//SYSIN DD *• 

SOBO TITLE ••DFSISOBB - SECURITY DIRECTORY BLOCKS (X 

SOB).'" 
CFSISCBO CSECT* 

ENTRY OFSISDB' 
DFSISDB OS 00* 

DC ACSHBL-DFSISDBI 

DC ACCNTL-OFSISCBI 

DC A(DMDL-DFSISDBI 

DC AIPSBL-OFSISCB) 

DC A(CVBL-DFSISDB) 

DC AICTBL-OFSISOB) 

OC AIMASTER-DFSISDBI 



OFFSET TO SMB LIST.' 
OFFSET TO CNT LIST. • 
OFFSET TO DMD LIST.' 
OFFSET TO PSB LIST.' 
OFFSET TO CVB LIST.' 
OFFSET TO CTB LIST.' 
OFFSET TO MASTER CNT.X 



OC 
MASTER CTB.' 



At « CTBL-OF S I SOB > «- f 1 1— 11*5) I 



CFFSET TOX 



SMBL 
SMBLL 



DC 
OS 
DC 
DC 
DC 
OC 
DC 
CC 
DC 
DC 
OC 
OC 
DC 
OC 
DC 
OC 
OC 
DC 
DC 
DC 
OC 
DC 
DC 
OC 
CC 
OC 
OC 
DC 
DC 
DC 



AL2MSMBLE-SHBLL)/L"S)'BLL,L"SMBLLI' 

0CL8' 

CL8"A00INV" 

CL8"ADDPART'" 

CL8"CL0SE«" 

CL8"C0NV1'" 

CL8"C0NV2'" 

CL8"DFS'" 

CL8"0ISBURSE'" 

CL8"DLETINV" 

CLB"DLETPART'" 

CL8"DLI'" 

CL8"DLN'" 

CL8"DSPALLI"« 

CL8"DSPINV" 

CL8"ENQ" 

CL8"ICS" 

CL8"IMS" 

CL8"LKM" 

CL8"MR1" 

CL8"MR2" 

CL8"MR3" 

CL8"MR4" 

CL8"MR5" 

CL8"MR6" 

CL8"MR7" 

CL8"MR8" 

CL8"MR9" 

CL8"PART' 

CLB"SKD1' 
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2731 + 


PUNCH 


OC 


CL8« 


•SKH1'" 


2732* 


PUNCH 


CC 


CL8' 


•SKH2'" 


2733* 


PUNCH 


OC 


CL8' 


•SKH3'" 


2734* 


PUNCH 


OC 


CL8» 


'SKI1'" 


2735* 


PUNCH 


OC 


CL8' 


•SKI 2"' 


2736* 


PUNCH 


DC 


CL8' 


•TPPL1" • 


2737* 


PUNCH 


DC 


CL8' 


•TPPL2'" 


2738* 


PUNCH 


DC 


CL8« 


•TUBE'* 1 


2739 + 


PUNCH 


SM8LE EQU 


*• 




2740* 


PUNCH 


CNTL OC 


AL2MCNTLE-CNTLL 


2741 + 


PUNCH 


CNTLL OS 


0CL8 




2742 + 


PUNCH 


OC 


CL8' 


•AA'" 


2743* 


PUNCH 


OC 


CL8' 


■ AB"' 


2744 + 


PUNCH 


DC 


CL8' 


•ATELLER"' 


2745 + 


PUNCH 


DC 


CL8' 


•A29801'" 


2746 + 


PUNCH 


DC 


CL8' 


•A29802••■ 


2747* 


PUNCH 


DC 


CL8' 


•BTELLER"' 


2748 + 


PUNCH 


OC 


CL8' 


•CAROL'" 


2749* 


PUNCH 


OC 


CL8' 


■COMMON'" 


2750* 


PUNCH 


MASTER DC 


CL8' 


•CTRL'" 


2751* 


PUNCH 


DC 


CL8' 


•ELEANOR"' 


2752* 


PUNCH 


OC 


CL8' 


'ERNE'" 


2753 + 


PUNCH 


OC 


CL8' 


•H0MER1"' 


2754* 


PUNCH 


DC 


CL8' 


•H0MER2"' 


2755* 


PUNCH 


DC 


CL8" 


•H0MER4' •• 


2756* 


PUNCH 


OC 


CL8' 


•HOWARD' " 


2757* 


PUNCH 


DC 


CL8' 


• INQU0393'" 


2758* 


PUNCH 


OC 


CL8' 


•INOU0401'" 


2759 + 


PUNCH 


DC 


CL8' 


•IN0U0464'" 


2760* 


PUNCH 


DC 


CL8» 


•INQU0469'" 


2761* 


PUNCH 


CC 


CL8' 


•INQUC477"' 


2762 + 


PUNCH 


OC 


CL8* 


•IN0U0485'" 


2763 + 


PUNCH 


OC 


CL8' 


•IN0UC493'" 


2764 + 


PUNCH 


OC 


CL8' 


•JTELLER"' 


2765* 


PUNCH 


DC 


CL8' 


'KTELLER'" 


2 766* 


PUNCH 


OC 


CL8' 


'LARRY'" 


2767* 


PUNCH 


OC 


CL8' 


•M00EL2"' 


2768* 


PUNCH 


DC 


CL8' 


•M00EL2K'" 


2769 + 


PUNCH 


DC 


CL8' 


•N29801' " 


2770+ 


PUNCH 


DC 


CL8' 


•N29802' " 


2771* 


PUNCH 


DC 


CL8' 


•PRINTER1'" 


2772* 


PUNCH 


DC 


CL8' 


•PRINTER2"' 


2773* 


PUNCH 


OC 


CL8' 


•PRINTER3'" 


2774* 


PUNCH 


OC 


CL8' 


•PRTSYS"' 


2775* 


PUNCH 


OC 


CL8' 


•SHARRON'" 


2776* 


PUNCH 


DC 


CL8" 


•SP1"« 


2777 + 


PUNCH 


OC 


CL8" 


•SP2'" 


2778* 


PUNCH 


CC 


CL8' 


•SWCOPNCH"' 


2779* 


PUNCH 


DC 


CL8' 


■SWPRNTR2'" 


2780* 


PUNCH 


OC 


CL8' 


•SWTPPNCH"' 


2781* 


PUNCH 


OC 


CL8« 


•SW1050'" 


2782* 


PUNCH 


OC 


CL8" 


•TAPESYS"' 


2783 + 


PUNCH 


DC 


CL8' 


•T1033A'" 


2784 + 


PUNCH 


DC 


CL8' 


•T1033B'" 


2785 + 


PUNCH 


DC 


CL8' 


•T2265XCL'" 
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2786* 


PUNCH 


CC 


CL8» 


•T^740NSC•• • 


2787* 


PUNCH 


DC 


CL8' 


•T2741'" 


2788* 


PUNCH 


DC 


CL8« 


'T2741N1 , «« 


2789* 


PUNCH 


DC 


CL8* 


'T2741N2 , « 1 


2790 + 


PUNCH 


DC 


CL8« 


•T2741N3 ,, « 


2791 + 


PUNCH 


DC 


CL8« 


•T2741N4'" 


2792* 


PUNCH 


DC 


CL8« 


•T2770C" 


2793 + 


PUNCH 


OC 


CL8« 


•T2770P"' 


2794 + 


PUNCH 


DC 


CL8« 


•T277CV'" 


2795* 


PUNCH 


DC 


CL8 1 


•T3270A'" 


2796 + 


PUNCH 


DC 


CL8' 


•T3270B'" 


2797 + 


PUNCH 


DC 


CL8« 


'T327CC ,, « 


2798 + 


PUNCH 


OC 


CL8' 


•T327CLI'" 


2799 + 


PUNCH 


DC 


CL8« 


, T3270L2•• , 


28CC + 


PUNCH 


DC 


CL8> 


•T3270P1••• 


2801 + 


PUNCH 


DC 


CL8« 


•T3270P2••• 


2802 + 


PUNCH 


DC 


CL8' 


•T3270P3*" 


2803 + 


PUNCH 


CC 


CL8' 


•T3275"» 


2804 + 


PUNCH 


OC 


CL8« 


•T3275P"' 


2805 + 


PUNCH 


DC 


CL8« 


<WTOR"«t 


2806 + 


PUNCH 


CNTLE EQU 


*• 




2807+ 


PUNCH 


DMDL DC 


AL2U0HDLE-DMDU 


2808 + 


PUNCH 


OMOLL OS 


0CL8 


' 


28CS + 


PUNCH 


DC 


CL8' 


•DD41SK01 , • , 


2810 + 


PUNCH 


DC 


CL8« 


•DD41TS01••• 


2811 + 


PUNCH 


DC 


CL8« 


•DH41SK01 , • , 


2812 + 


PUNCH 


DC 


CL8« 


'DH41SK02 ,, • 


2813 + 


PUNCH 


DC 


CL8» 


•DH41SK03"' 


2814 + 


PUNCH 


CC 


CL8' 


•DH41TS01"' 


2815 + 


PUNCH 


OC 


CL8" 


•DH41TS02"' 


2816 + 


PUNCH 


DC 


CL8« 


•DH41TS03• ,, 


2817 + 


PUNCH 


OC 


CL8' 


•0I21PART'" 


2818+ 


PUNCH 


DC 


CL8" 


■DI31LM01 , «' 


2819 + 


PUNCH 


CC 


CL8" 


•DI31PH02 ,, ' 


2820 + 


PUNCH 


OC 


CL8' 


, DI41SK01••• 


2821 + 


PUNCH 


DC 


CL8' 


, DI42SK01 , • , 


2822 + 


PUNCH 


OC 


CL8,' 


■DS40JC01 ,, « 


2823 + 


PUNCH 


OC 


CL8« 


•DX41SK01 ,, « 


2824 + 


PUNCH 


DC 


CL8« 


•DX41TS01••• 


2825 + 


PUNCH 


DMCLE EQU 


*• 




2826 + 


PUNCH 


PSBL DC 


AL2HPSBLE-PSBLL 


2827 + 


PUNCH 


PSBLL OS 


0CL8 


• 


2828 + 


PUNCH 


CC 


CL8« 


•CONTEST*" 


2829 + 


PUNCH 


DC 


CL8« 


•DFSSAM02'" 


2830 + 


PUNCH 


DC 


CL8« 


•OFSSAMOS'" 


2831 + 


PUNCH 


DC 


CL8« 


<0FSSAM04 ,, « 


2832 + 


PUNCH 


DC 


CL8« 


•OFSSAHOS"' 


2833 + 


PUNCH 


CC 


CL8" 


■DFSSAH06"" 


2834 + 


PUNCH 


OC 


CL8' 


•OFSSAMO?'" 


2835 + 


PUNCH 


DC 


CL8» 


•ENQ0SK41 ,, « 


2836 + 


PUNCH 


DC 


CLB« 


•HDTASK01 ,, » 


2837 + 


PUNCH 


DC 


CL8« 


•HHBLSK41'" 


2838 + 


PUNCH 


DC 


CL8" 


, HHBLSK42 , •' 


2839 + 


PUNCH 


OC 


CL8« 


■HHBLSK43'" 


2840 + 


PUNCH 


DC 


CL8« 


■HHTASK41»»» 
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2841 + 


PUNCH 


■ , OC 


CL8"HHTASK42'" 


2842 + 


PUNCH 


' DC 


CL8"HHTASK43'" 


2843 + 


PUNCH 


■ DC 


CL8"HIBASK41"« 


2844* 


PUNCH 


• DC 


CL8"HIMAJC01»" 


2845* 


PUNCH 


■ DC 


CL8••HIMAJC02••• 


2846 + 


PUNCH 


CC 


CL8"HIMAJC03"' 


2847* 


PUNCH 


» DC 


CL8•'HIMALM01•• , 


2848* 


PUNCH 


DC 


CL8"HITASK41"' 


2849* 


PUNCH 


OC 


CL8"HITASK42"» 


285C + 


PUNCH 


DC 


CL8"HSBASK41"' 


2851* 


PUNCH 


OC 


CL8 ,, LKHDFS00 , »» 


2852 + 


PUNCH 


• DC 


CL8••LKMDFS10••• 


2853* 


PUNCH 


OC 


CL8"MR1'" 


2854* 


PUNCH 


OC 


CL8"MR2'" 


2855 + 


PUNCH 


OC 


CL8"MR3«" 


2856 + 


PUNCH 


OC 


CL8"MR4»" 


2857 + 


PUNCH 


' DC 


C18"MR5'" 


2858 + 


PUNCH 


OC 


CL8"MR6«" 


2859 + 


PUNCH 


DC 


CL8"MR7"' 


2860+ 


PUNCH 


DC 


CL8"MR8'" 


2861 + 


PUNCH 


OC 


CL8"MR9'" 


2862 + 


PUNCH 


PSBLE EOU 


*• 


2863 + 


PUNCH 


CVBL OC 


AL2((CVBLE-CVBLD/L 


2864+ 


PUNCH 


CVBLL OS 


0CL10' 


2865 + 


PUNCH 


OC 


CtlO"ASSIGN"' 


2866 + 


PUNCH 


OC 


CLIO' •BROADCAST'" 


2867+ 


PUNCH 


CC 


CUO"CANCEL'" 


2868 + 


PUNCH 


DC 


CU0"CHANGE"' 


2869 + 


PUNCH 


DC 


CL10"CHECKP01NT'" 


2870* 


PUNCH 


OC 


CL10"DB0UMP»" 


2871 + 


PUNCH 


OC 


CUC'DBRECOVERY'" 


2872 + 


PUNCH 


DC 


CL10"DELETE"« 


2873 + 


PUNCH 


OC 


CL10"DEQUEUE"« 


2874 + 


PUNCH 


OC 


CL10"0ISPLAY»" 


2875+ 


PUNCH 


DC 


CL10"END'" 


2876 + 


PUNCH 


DC 


CL10"ERESTART"« 


2877+ 


PUNCH 


DC 


CL10"EXCLUSIVE"' 


2878 + 


PUNCH 


OC 


CL10"EXIT"' 
CL10"FORMAT"' 


2879 + 


PUNCH 


DC 


2880 + 


PUNCH 


DC 


CLIC'HOLO'" 


2881 + 


PUNCH 


OC 


CL10"IAM'" 


2882 + 


PUNCH 


CC 


CLIO'MDLE'" 


2883 + 


PUNCH 


DC 


CL10"L0CK'" 


2884+ 


PUNCH 


DC 


CL10"LOG'" 


2885 + 


PUNCH 


OC 


CUO"LOOPTEST"' 


2886+ 


PUNCH 


OC 


CL10"NRESTART'" 


2887 + 


PUNCH 


DC 


CL10"PST0P'" 


2888 + 


PUNCH 


DC 


CL10"PURGE"' 


2889 + 


PUNCH 


OC 


CL10"R0ISPLAV" 


289C + 


PUNCH 


OC 


CL10"RELEASE»" 


2891 + 


PUNCH 


DC 


CL10"RESET»" 


2892 + 


PUNCH 


OC 


CLIO' 'RSTART'" 


2893 + 


PUNCH 


DC 


CLIO' 'SET'" 


2894 + 


PUNCH 


OC 


CL10"START'" 


2895 + 


PUNCH 


OC 


CL10"ST0P"' 
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2896* 


PUNCH 


DC 


CL10"TEST" ' 


2897* 


PUNCH 


OC 


CLIO* 'TRACE'" 


2898 + 


PUNCH 


DC 


CLIO' 'UNLOCK" 


2899* 


PUNCH 


CVBLE EQU 


»t 


290C* 


PUNCH 


OS 


OF' 


2901* 


PUNCH 


CTBL DC 


AL2<42*1,5»' 


2902* 


PUNCH 


DC 


C001E2" 


2903* 


PUNCH 


DC 


C"002C6"' 


2904* 


PUNCH 


DC 


C"002E2"« 


2905* 


PUNCH 


OC 


C"00 345"' 


2906* 


PUNCH 


DC 


C"00346«" 


2907* 


PUNCH 


OC 


C"004E2«" 


2908* 


PUNCH 


CC 


C"0054C"« 


2909* 


PUNCH 


DC 


C"0C540«" 


2910* 


PUNCH 


OC 


C"005C1»" 


2911* 


PUNCH 


DC 


C"C05C2"' 


2912* 


PUNCH 


OC 


C"005C3'" 


2913* 


PUNCH 


DC 


C"00 5C4»" 


2914* 


PUNCH 


DC 


C00610'" 


2915 + 


PUNCH 


OC 


C"00612«" 


2916 + 


PUNCH 


OC 


C"0071l«" 


2917 + 


PUNCH 


DC 


C"008E2'" 


2918* 


PUNCH 


OC 


C"008E4"' 


2919 + 


PUNCH 


DC 


C"0095l'" 


2920* 


PUNCH 


OC 


C"009A0"' 


2921* 


PUNCH 


OC 


C009A1"' 


2922* 


PUNCH 


OC 


C009A4"' 


2923* 


PUNCH 


DC 


C'OIOCI'" 


2924* 


PUNCH 


OC 


C"01140«" 


2925 + 


PUNCH 


DC 


COllFl'" 


2926* 


PUNCH 


OC 


C"011F2«" 


2927* 


PUNCH 


DC 


C'01201"' 


2928* 


PUNCH 


DC 


C"01350»" 


2929* 


PUNCH 


DC 


C"01453«" 


2930* 


PUNCH 


DC 


C"01564«" 


2931* 


PUNCH 


DC 


C01564'" 


2932* 


PUNCH 


OC 


C"016G0«" 


2933* 


PUNCH 


OC 


C'OITOC" 


2934 + 


PUNCH 


DC 


C'01800" 1 


2935* 


PUNCH 


OC 


C"01900"' 


2936 + 


PUNCH 


DC 


C020C1"' 


2937* 


PUNCH 


DC 


C"021C4»" 


2938* 


PUNCH 


OC 


C022E2'" 


2939* 


PUNCH 


OC 


C"023E2'" 


2940* 


PUNCH 


OC 


C"024E2"» 


2941 + 


PUNCH 


DC 


C'02500"" 


2942* 


PUNCH 


DC 


C'02500'" 


2943* 


PUNCH 


DC 


C"0250C"' 


2944* 


PUNCH 


DC 


C"02500'" 


2945* 


PUNCH 


END' 




2946* 


PUNCH 


/«" 




2947* 


PUNCH 


//IMSGEN3 JOB 


l82Ct6443)tIMS, 


♦ 




>»D,PRTY«8« 




2948* 


PUNCH 


//STEP1 EXEC 


PGH-IEV90, REGION 



S/360 OPERATOR" S CONSOLE. X 
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2949* 


PUNCH 


2950* 


PUNCH 


2951 + 


PUNCH 


2952* 


PUNCH 


2953* 


PUNCH 


2954* 


PUNCH 


2955* 


PUNCH 


2956* 


PUNCH 


2957* 


PUNCH 


2958* 


PUNCH 


2959* 


PUNCH 


2960* 


PUNCH 


2961 + 


PUNCH 


2962 + 


PUNCH 



2965* 
2966* 
2967* 

+ 
2968* 
2969+ 

♦ 
2970* 
2971 + 
2972* 
2973* 
2974* 
2975* 
2976* 
2977* 
2978* 
2979* 
2980* 
2981+ 

2982 + 

2983 + 

2984 + 
♦ 

2985 + 
♦ 

2986 + 

2987 + 

2988 + 

2989 + 

2990 + 

2991 + 

2992 + 

2993 + 

2994 + 

2995 + 



PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



// PARM="LOAD,NODECK"« 

//SYSLIB 00 CSN=IMS2.GENLIB,DISP«SHR« 

// DO DSN=SYS1.MACLIB,DISP»SHR' 

//SYSLIN DO 0SN=IMS2.BLKS50(0FSISYS0),0ISP«0LD' 

//SYSPRINT DO SYS0UT=A,DCB=(BLKSIZE=605),' 

// SP ACE«( 605, ( 100 , 50 >,RLSE,, ROUND !• 

//SYSUT1 OD UNIT-SYSDA,DISP«(, DELETE),' 

// SP«CE=(CYL,<10,5))' 

//SYSIN DD *■ 

TITLE "DFSISYSO - IOB""S, CHAN. PGH""S, AX 
NO MSG QUEUE DCB""S.'" 
OFSFXCOO XCOO 23, 500,2000, TYPE-CSECT' 

SPACE 3' 

DFSICIOB NUM10B=15' 

MSGOCB QCRBUFN«3l.HSG8UFN=l3, X 

CONTINUE' 

SHMSG=192,LGMSG=576, X 

CONTINUE* 

DEVTYPE»(2314, 2314, 23141, X 

C 

MSGBLK=576 • 

DFSAVARA 17,EVENTS«31 ,SECTYPE=CSECT» 

TITLE "DFSISYSO - PARTITION SPECIFICATION TABX 
LES(PST""S).'" 

DFSIPST REGI0NS»5' 

TITLE ••DFSISVSO - INTERNAL/EXTERNAL QUEUE BLOX 
KS.'" 

OFSQUEUE TASK'S, LI NES=25,CLASS«5« 

END* 
/*• 

//STEP2 EXEC PGM=IEV90,REGION=200K,« 
// PARM«"L0AC,NODECK'" 
//SYSLIB DD DSN=IMS2.GENLIB,0ISP»SHR« 
// DD DSN=SVS1.MACLIB,0ISP=SHR' 
//SYSLIN DD DSN=lMS2.BLKS5O(DFSVC0GC),DISP*OL0' 
//SYSPRINT DO SYS0UT=A,DCB=<BLKSIZE=605>,' 
// SPACE=(605,(100,50),RLSE,,ROUNDI' 
//SYSUT1 DO UNIT=SYSDA,DISP*(, DELETE),' 
// SPACE-(CYL,( 10,51 (• 
//SYSIN OD ♦ • 
OFSVCOOO CSECT' 

DFSVCS SSCD SECTYPE=CSECT,SVC«(234, 248,, 2131, DESC»2,X 
CONTINUE' 

0SPS=10,TCT=5, X 

CONTINUE' 

ROUTCDE=13,OCEP=Z5' 

END' 
/*• 

//STEP3 EXEC PGM=IEV90,REGION=2C0K,' 
// PARM"LOAO,NODECK"« 
//SYSLIB DO DSN=IMS2.GENLIB,0ISP=SHR» 
// OD DSN=SYS1.MACLIB,DISP-SHR' 
//SYSLIN DD DSN=IMS2.BLKS50(0FSISC00»,DISP=0LD« 
//SYSPRINT DD SYSOUT=A, DCB= ( BLKS I ZE=605) , • 
// SPACE" (605, (100, 50 I, RLSE,, ROUND)' 
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2996* 
2997 + 
2998* 
2999* 

♦ 
3000* 

3C01* 

3002* 

3003* 

3004* 

3005* 

♦ 

3006+ 

3007* 



3009* 
3010 + 
3011* 

3012* 

3013* 

3014* 

♦ 
3015* 

♦ 
3016 + 
3017* 
3018* 
3019* 

♦ 
3020* 
3021 + 
3C22* 
30 23 + 

+ 

3024 + 

3025 + 

3026 + 
3C27* 
3028* 
3029+ 

♦ 
3030* 
3031* 
3032* 
3033* 



PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 



PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 



//SYSUT1 DD UNIT=SYSDA,DISP»( tOELETEl,' 
// SPACE-(CYL,(10,5II' 
//SYSIh OD ♦• 

TITLE "DFSISCDO - SYSTEM CONTENTS DIRECTCRY (X 
SCOI.*" 

CFSGLBS PSB»34,DMB»16,SMB»36,TCT«5, X 

CONTINUES' 7982 

CXB»1,CIB»9,CRB«0, X 

CONTINUE* 

CLB»25.CTB»43.CNT»64 f C0B«24,CTT=26, X 
CONTINUE' 

PST«5 f SAV=»17,WAT»31,RQE=14,QUE»(l,23l, X 
CONTINUE 1 

SVC-I234,248),0SA»'««213,Z5I,CVB»34,CTM»1X 
CTML-8, CONTINUE* 

FBP«13000,FRE»13, X 

CONTINUE' 
COB»27,CCB»(9,O,192,150,100l,E0IT=N0' 
ISCO SECTYPE»CSECT,CPOPT«2500,PSYS=»10, X 
CONTINUE' 

SINIT«(INIT,CLASSAtAI, X 

X' 

MCS«13 t DESC»2' 
EJECT' 

DFSINT UCRS»13,MSGS»576, X 

CONTINUE' 

PSBNO=8000, X 

CONTINUE' 

DMBN0-100G0, X 

CONTINUE' 

DBASE-11000, X 

CONTINUE' 

FBPNO»13000, X 

CONTINUE* 

CCMM» 10600, POUL»500C 
END' 
/*' 

//IMSGEN4 JOB « 82C.6443 It IMS,MSGLEVEL»1,MSGCLASS*A,CLASX 
«D,PRTY«8' 

//STEP1 EXEC PGM«IEWL,' 
// REG1GN«130K,' 

// PARM=" RENT, REFR, NCAL iLET ,XREF, LIST'" 

//SYSPRINT DO SYS0UT»A,DCB=(RECFM=FBA,LRECL"121,BLKSIZEX 
6051,' 

// SPACE»<605,«10,1GI,RLSE,,RCUN0I« 
//SYSOBJ DD 0SN=IMS2.BLKS50,DISP=SHR' 
//LOAD CO DSN=IKS2.L0A0,DISP=SHR' 
//USERLIB 00 DSN»ICS.CLOD,DISP»SHR' 
//SYSLHOC 00 DSN=IMS2.RESLIB,DISP«0LD' 

//SYSUT1 00 UNIT«(SYSDA,SEP-(SYSLMOD,SYSOBJII,SPACE=(CYX 
,( 10,111' 
//SYSLIN OD *• 

CHANGE OFSVC400C1GC0021C)' 

INCLUDE LOADIDFSVC400)' 

NAME IGC0021CCRI TYPE 4 SVCUOAD 01' 
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303** 


PUNCH ■ 


3035 + 


PUNCH • 


3036* 


PUNCH • 


3037* 


PUNCH • 


3038* 


PUNCH • 


3039* 


PUNCH • 


3040 + 


PUNCH • 


3041 + 


PUNCH • 


3C42 + 


PUNCH ■ 


3043 + 


PUNCH • 


3044 + 


PUNCH • 


3045 + 


PUNCH • 


3C46 + 


PUNCH • 


3047 + 


PUNCH • 


3048 + 


PUNCH • 


3049 + 


PUNCH • 


3050 + 


PUNCH • 


3051 + 


PUNCH • 


3052 + 


PUNCH • 


3053 + 


PUNCH • 


3054* 


PUNCH • 


3055 + 


PUNCH • 


3056 + 


PUNCH « 


3057 + 


PUNCH • 


3058 + 


PUNCH • 


3C59+ 


PUNCH • 


3060 + 


PUNCH • 


3061 + 


PUNCH • 


3062 + 


PUNCH • 


3063 + 


PUNCH • 


3ki64 + 


PUNCH • 


3C65 + 


PUNCH • 


3066 + 


PUNCH • 


3067 + 


PUNCH • 


3C68 + 


PUNCH • 


3069+ 


PUNCH • 


307C + 


PUNCH • 


3071 + 


PUNCH ■ 


3072+ 


PUNCH • 


3073+ 


PUNCH • 


3074+ 


PUNCH • 


3075 + 


PUNCH • 


3076+ 


PUNCH • 


3077+ 


PUNCH • 


3078+ 


PUNCH • 


3079+ 


PUNCH • 


3080+ 


PUNCH • 


3C81 + 


PUNCH • 


3082 + 


PUNCH • 


3C83 + 


PUNCH • 


3084 + 


PUNCH • 


3085 + 


PUNCH • 


3086+ 


PUNCH • 


3087+ 


PUNCH • 



CHANGE DFSVC410IIGC012 
INCLUDE L0ADIDFSVC410I 
NAME IGC0121CIR) 
CHANGE 0FSVC420IIGC022 
INCLUDE LOADIDFSVC420I 
NAME IGC0221CIRI 
CHANGE DFSVC430IIGC032 
INCLUCE L0ACIDFSVC430I 
NAME IGC0321CIRI 
CHANGE 0FSAOSAOUGCO4 2 
INCLUDE L0ACIDFSA0SA0 1 
NAPE IGC0421C(R) 
CHANGE DFSAOSBOUGC052 
INCLUCE LOADIDFSAOSBOI 
NAME IGC0521C(RI 
CHANGE 0FSA0SC0IIGC062 
INCLUCE LOAD(DFSAOSCO) 
NAME IGC0621CIRI 
CHANGE DFSAOSDOUGCG72 
INCLUDE LOADIDFSAOSDOI 
NAME IGCG721CIRI 
CHANGE CFSICSCGI IGC102 
INCLUDE LOADIDFSICSCOI 
NAME IGC1021CIR) 
CHANGE DFSVCI00IIGC112 
INCLUCE LOADIDFSVCIOOI 
NAME IGC1121CIRI 
CHANGE DFSASV1CUGC122 
INCLUDE LOAD(DFSASVIO) 
NAME IGC1221CIRI 
CHANGE 0FSVC44OIIGC132 
INCLUDE LCADIDFSVC440I 
NAME IGC1321CIRI 
CHANGE DFSVC100IIGC234 
INCLUCE LOADIDFSVCIOOI 
NAME IGC234IRI 
CHANGE DFSVC200UGC248 
INCLUCE L0ADIDFSVC200 t 
NAME IGC248CR) 
CHANGE DFSAOCEOIIGG019 
INCLUCE LCADIOFSAOCEOI 
NAME IGG019Z5IRI 
CHANGE DFSAAP10IIGGC19 
INCLUCE LGACIDFSAAP10I 
NAME IGG019Z6IRI 
ENDAGE* 

INCLUDE LCADIOFSARWOOI 
NAME DFSARWOOIRI 
INCLUDE L0ADIDFSAOS101 
NAME 0FSA0S10IRI 
INCLUDE LOADI0FSAOS2OI 
NAME CFSA0S20IR) 
INCLUDE L0ADI0FSA0S3C) 
NAME DFSA0S30(R> 
INCLUCE L0A0IDFSAOS5OI 



TYPE 4 SVC (LOAD II • 
CI* 

TYPE 4 SVC (LOAD 2»* 
CI* 

TYPE 4 SVCILOAD 31* 
CI • 

TYPE 4 SVCILOAD 41* 
CI* 

TYPE 4 SVC (LOAD 51* 
CI* 

TYPE 4 SVCILOAD 61* 
CI* 

TYPE 4 SVCILOAD 71* 
CI* 

TYPE 4 SVCILOAD 101* 
CI* 

TYPE 4 SVCILOAD XII* 
CI* 

TYPE 4 SVCILOAD 121' 
CI* 

TYPE 4 SVCILOAD 131* 

t 

TYPE 1 SVC INTERFACE* 

TYPE 2 SVC INTERFACE* 
51* 

OSAM CHAN. END APPENDAGE* 
61* 

7770 CHANNEL/ABNORMAL END APPX 

7770 READ/WRITE MODULE* 
CAM OPEN INTERFACE* 
OSAM READ/WRITE* 
OSAM CHECK* 



3.192 



IMS SYSTEM DEFINITION. 



V2 R3 CLOO 27MAY72 



PAGE 72 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



3088* 


PUNCH ' 


3C89 + 


PUNCH • 


3090 + 


PUNCH • 


3091* 


PUNCH • 


3092* 


PUNCH • 


3093* 


PUNCH • 


3094 + 


PUNCH • 


3095* 


PUNCH • 


3096* 


PUNCH • 


3097+ 


PUNCH • 


3098* 


PUNCH ' 


3099* 


PUNCH • 


3100* 


PUNCH • 


3101 + 


PUNCH • 


3102* 


PUNCH • 


3103 + 


PUNCH • 


3104 + 


PUNCH • 


3105* 


PUNCH • 


31C6 + 


PUNCH • 


3107* 


PUNCH • 


3108 + 


PUNCH • 


3109* 


PUNCH • 


3110 + 


PUNCH • 


3111 + 


PUNCH • 


3112 + 


PUNCH • 


3113* 


PUNCH • 


3114 + 


PUNCH • 


3115* 


PUNCH • 


3116+ 


PUNCH • 


3117 + 


PUNCH • 


3118* 


PUNCH ■ 


3119* 


PUNCH • 


3120* 


PUNCH • 


3121 + 


PUNCH • 


3122 + 


PUNCH • 


3123 + 


PUNCH ■ 


3124 + 


PUNCH • 


3125 + 


PUNCH • 


3126 + 


PUNCH • 


3127 + 


PUNCH • 


3128 + 


PUNCH • 


3129 + 


PUNCH • 


3130 + 


PUNCH • 


3131 + 


PUNCH • 


3132 + 


PUNCH • 


3133 + 


PUNCH • 


3134 + 


PUNCH • 


3135 + 


PUNCH ■ 


3136 + 


PUNCH • 


3137 + 


PUNCH • 


3138 + 


PUNCH • 


3139 + 


PUNCH • 


3140 + 


PUNCH • 


3141 + 


PUNCH • 


3142 + 


PUNCH • 



NAPE CFSACS50IRJ 
INCLUDE LCADIDFSDISMOP 
NAME CFSDISMOIRI 
INCLUDE LOAOIOFSOLAUOt* 
INCLUCE L0ADCDFSDLA30I* 
ENTRY DFSSTART* 
NAME CFSDLAOOIRI 
INCLUCE LOAD(DFSDLDOO)* 
NAME DFSDLDOOIRI 
INCLUDE LOAO(DFSDLOCO)' 
NAME CFSDLCCO<R» 
INCLUCE LOAO(DFSDLROO>" 
NAME DFSOLROO(R) 
INCLUCE LOAOIOFSDDLEOI' 
ALIAS DFSOOLIO* 
NAME CFSDDLEOIRI 
INCLUDE LUAD(DFSDXMTO)' 
NAME CFSDXMTCIRI 
INCLUCE LOAD(CFSDDBHO)* 
INCLUCE LCADIOFSOCSPOI* 
INCLUCE LOAD(DFSGNSR0»« 
INCLUCE LCAD(DFSFNDSO)' 
INCLUCE LOADIDFSRCHOOl" 
INCLUDE LOAOIOFSBFWRO)' 
INCLUDE LCAO(DFSDCVTO)' 
INCLUDE LCAO(DFSDBHRO)* 
NAME CFSOBhOOIR) 
INCLUCE LOADCCFSGGSPOI ' 
INCLUCE LOADIOFSLLCLOI " 
INCLUCE LOACIDFSMMLCO) ' 
INCLUCE LOADIDFSMMUDOI • 
INCLUDE LOAO(DFSRRHMO) • 
INCLUCE LCAD(OFSRRHPO) ' 
INCLUCE LOADIOFSDHDCOJ" 
INCLUDE LCADIDFSRCHBOJ* 
INCLUCE LCAOCOFSFRSPOI* 
ENTRY DFSOHDSO • 
NAME CFSDHDSO(R) 
INCLUDE LCAOIDFSRRCOCI* 
NAME CFSRRCOOIRI 
INCLUCE LOACIDFSPCC30)* 
ENTRY PCSTART* 
NAME 0FSPCC3OIRI 
INCLUDE LCAD(DFSPROOO) ' 
ALIAS DFSIPRXX* 
NAME DFSPROOO(R) 
INCLUCE LCAD(DFSRRAOO)* 
NAME DFSRRACOIRI 
INCLUDE LCA0IDFSRRA10I* 
NAME CFSRRAIGIRJ* 
INCLUDE LCA0(DFSRRA2C)* 
NAME CFSRRA20IRI' 
INCLUDE LGADIDFSRRA50I* 
NAME CFSRRA50IRI* 
INCLUDE LOAD(DFSRDBLO)* 



F010CT71 10/02/72 
OSAM COMMON SUBROUTINES* 
DL/I ISAM SIMULATOR" 

DL/I ANALYZER* 

DL/I DELETE/REPLACE* 

OL/I OPEN/CLOSE* 

DL/I RETRIEVE* 

DL/I INSERT* 

DL/I INDEX MAINTENANCE* 



DL/I BUFFER HANDLER* 



DL/I SPACE MANAGEMENT* 
REGION CCNTROLLOR* 

BATCH PROGRAM CONTROLLER* 

PROG. REQUEST HANDLER" 
REGION PARM ANALYZER* 
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3143* 


PUNCH • 


3144* 


PUNCH • 


3145* 


PUNCH • 


3146* 


PUNCH • 


3147* 


PUNCH • 


3148* 


PUNCH • 


3149* 


PUNCH • 


315G* 


PUNCH • 


3151* 


PUNCH • 


3152* 


PUNCH • 


3153* 


PUNCH • 


3154* 


PUNCH • 


3155 + 


PUNCH • 


3156* 


PUNCH • 


3157 + 


PUNCH • 


3158* 


PUNCH ■ 


3159* 


PUNCH • 


3160 + 


PUNCH • 


3161« 


PUNCH • 


3162 + 
3163* 


PUNCH ■ 


PUNCH • 


3164* 


PUNCH • 


3165 + 


PUNCH • 


3166 + 


PUNCH • 


3167+ 


PUNCH • 


3168* 


PUNCH • 


3169 + 


PUNCH • 


3170* 
3171 + 


PUNCH • 


PUNCH • 


3172* 


PUNCH ■ 


3173* 


PUNCH • 


3174* 


PUNCH • 


3175* 


PUNCH • 


3176* 


PUNCH • 


3177* 


PUNCH • 


3178* 


PUNCH • 


3179* 


PUNCH • 


3180* 
3181* 


PUNCH • 


PUNCH • 


3182* 


PUNCH • 


3183* 


PUNCH • 


3184+ 


PUNCH • 


3185* 
3186* 


PUNCH • 


PUNCH • 


3187* 


PUNCH • 


3188* 


PUNCH • 


3189 + 


PUNCH • 


3190* 


PUNCH • 


3191* 


PUNCH • 


3192* 


PUNCH • 



NAME DFSRDBLO(RI 
INCLUOE LOADCDFSILNKO)' 
NAPE DFSILNKO(R) 
INCLUDE SYSOBJtDFSVCOOOl" 
NAME OFSVCOOOIRJ 
INCLUOE L0ADIDFSRRC10M 
ENTRY RCSTART' 
NAME CFSRRCIO(R)' 
INCLUDE LOADICFSPCCIGI' 
INCLUDE SYSOBJCDFSVCOOOP 
ENTRY PCSTART' 
NAPE DFSPCCIOCRI' 
INCLUDE LOADIDFSFPTCOI' 
INCLUOE SYSO8JIDFSVC0O0I' 
NAME OFSFPTCOIRJ 



DATABASE LCGGER' 



LINKAGE EDITOR INTERFACE* 



SECONDARY SCO MODULE* 



STOP REGION' 



/♦• 

//STEP2 EXEC PGM=IEWL,' 

// REGICNM30K," 

// PARM»••NCALtLETtREUS,XREF,LIST••• 

//SYSPRINT DO SYS0UT*A,DCB=<RECFM«FBA,LRECL=121.BLKSIZEX 

605lt« 

// SPACE*(605,I10.10),RLSE,,RCUNOI' 

//SYSOBJ DD DSN=IHS2.BLKS50,DISP»SHR' 

//LOAD DD 0SN«IMS2.L0AD,DISP»SHR' 

//USERLIB DD DSN»lCS.CLOD,DISP»SHR' 

//SYSLMOD 00 0SN=IMS2.RESLIB,0ISP=CLD' 

//SYSUT1 DD UNIT«<SYSDA,SEP=«SYSLMOO,SYSOBJI»,SPACE=CCYX 

.110,111' 

//SYSLIft DD *• 

INCLUDE SYS08J(DFSBBLKB» BATCH CONTROL BLCCKS.X 



INCLUDE LOADCOFSBINTOI" 
INCLUDE LOAO(DFSBLOIO) 
INCLUOE LOAD(OFSFLOGC) 
ENTRY OFSBNUC 
NAME CFSBNUCO(R) 
INCLUOE LCAOIOFSISTOOI' 
INCLUDE LOAD(DFSISTUO)' 
ENTRY CFSISTOO' 
NAME DFSISTOO(R) 
INCLUDE SYSOBJIDFSIDLIO 
i 

INCLUOE SYSOBJIOFSICLLO 

INCLUDE SYS0BJIDFSICLL1 

INCLUCE SYSOBJCOFSICVBO 

INCLUDE SYSCBJIDFSISYSG 

INCLUCE SYSOBJIOFSISCDO 



BATCH INTERFACE SIMULATOR' 
BATCH LOG RECORDER' 
LOG WRITER' 

BATCH NUCLEUS' 



STATISTICS 0' 

OL/I ON-LINE CONTROL BLOCKX 

COMM. CONTROL BLGCKS(l).' 
COMM. CONTROL BL0CKSI2I.' 
COMM. VERB BLOCKS.' 
SYSTEM CONTROL BLOCKS.' 
SYSTEM CONTENTS OIRECTORY.X 

USER SUPPLIED ROUTINE.' 
USER SUPPLIED MOOULE' 
USER SUPPLIED MODULE' 
USER SUPPLIED MODULE' 



INCLUCE USERLIB(DFS10300I 

INCLUOE USERLIBC0FSS7770I 

INCLUDE USERLIB(DFSI7770I 

INCLUDE USERLIBIDFSO7770) 

INCLUCE USERLIBCDFS29800) USER SUPPLIED MODULE' 

INCLUDE USERLIBI0UT7770I USER SUPPLIED MODULE.' 

NAME CFSIBLKBIRI COMPOSITE SYSTEM CONTROL BLX 
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FOIOCT71 10/02/72 



3193* 


PUNCH • 


3194 + 


PUNCH • 


3195* 


PUNCH • 


3196 + 


PUNCH • 


3197* 


PUNCH • 


3198* 


PUNCH « 


3199* 


PUNCH • 


320O + 


PUNCH • 


3201* 


PUNCH • 


3202* 


PUNCH • 


3203* 


PUNCH • 


3204* 


PUNCH • 


3205 + 


PUNCH ■ 


3206* 


PUNCH • 


3207* 


PUNCH ' 


3208* 


PUNCH • 


3209* 


PUNCH • 


321C + 


PUNCH • 


3211 + 


PUNCH • 


3212* 


PUNCH • 


3213 + 


PUNCH • 


3214 + 


PUNCH • 


3215 + 


PUNCH • 


3216+ 


PUNCH • 


3217 + 


PUNCH • 


3218+ 


PUNCH • 


3219+ 


PUNCH • 


3220 + 


PUNCH « 


3221 + 


PUNCH • 


3222 + 


PUNCH • 


3223 + 


PUNCH • 


3224 + 


PUNCH • 


3225 + 


PUNCH • 


3226 + 


PUNCH • 


3227 + 


PUNCH • 


3228 + 


PUNCH • 


3229 + 


PUNCH • 


3230 + 


PUNCH • 


3231 + 


PUNCH • 


3232 + 


PUNCH • 


3233 + 


PUNCH • 


3234 + 


PUNCH • 


3235 + 


PUNCH ' 


3236 + 


PUNCH • 


3237 + 


PUNCH • 


3238 + 


PUNCH ' 


3239 + 


PUNCH • 


324C + 


PUNCH • 


3241 + 


PUNCH • 


3242 + 


PUNCH • 


3243 + 


PUNCH • 


3244 + 


PUNCH ■ 


3245 + 


PUNCH • 



SECURITY DIRECTORY BLOCKS MX 



DL/I LANGUAGE INTERFACE' 



DL/I BLOCK BUILDER* 



START REGION" 



OCKS MOOULE.' 

• INCLUDE SYSOBJIDFSISDBBI' 

• NAME CFSISDBBIR) 
CDULE.' 

• INCLUDE LOADIDFSLIOOOP 

• ALIAS PLITDLI' 

• ALIAS DFSPLP 

• ALIAS CBLTDLI' 

• ALIAS DFSCCBOL" 

• ALIAS ASMTDLI' 

• ALIAS DFSASM' 

• ALIAS FORTDLI' 

• ALIAS DFSFCR' 

• NAME CFSLICOOIRI 

■ INCLUDE LCAOIOFSOLBLOI' 

• INCLUDE LOADIDFSLIOCOP 

• NAME CFSOLBLO(R) 

• INCLUDE LOADIOFSFSTCOM 

• NAME CFSFSTCOIRI 

• INCLUDE LOAOIDFSLIOOO)' 

• INCLUOE LOADIDFSUTSOOI 1 

• ENTRY CLITCBL* 

• NAME CFSUTSOOIRC 

• INCLUDE LOADIDFSUTLOOI 1 

• NAME DFSUTLOO(R) FORMAT UTILITY INFO TABLE ■ 

• INCLUDE LCADIDFSUTLIOM 

• INCLUCE LOADCOFSUTLXC) 1 

• INCLUDE LCADIDFSUTLZOM 

• INCLUCE LCAOIDFSINDXOM 
« ENTRY DFSUTL10" 

• NAME 0FSUNU1OCRJ FORMAT UTILITY PHASE 1 PROC. < 

• INCLUDE L0ADIDFSUTL20)' 

• NAME DFSUTL20CRI FORMAT UTILITY PHASE 2 PROC. 

• INCLUCE LOADIDFSLIOCOM 

• INCLUDE LGAD(DFSUTL30I' 

• INCLUCE LOADCDFSUTLSOP 

• INCLUCE LCADIDFSUTL60)' 

• INCLUCE LGADCOFSUTLTC)' 

• INCLUCE L0AD(DFSUTL801' 

• INCLUDE L0AD(DFSUTL90I' 

• INCLUDE LOAOIDFSUTLAOP 

• INCLUDE LCADIDFSUTLBC I • 

• INCLUCE LOAD(OFSUTLCO)' 

• INCLUCE LQADCDFSUTLDO)' 
1 INCLUCE LOAO(OFSUTLEOI« 

• INCLUDE LOAD«OFSUTLFO)' 
1 INCLUCE LOAOCDFSUTLGOM 
' INCLUDE LCADIDFSUTLHOI' 

• INCLUDE LOADIDFSUTLTOM 

• INCLUDE LCAOCDFSUTLUCM 

• INCLUCE LOAD (DFSUTL VO I • 

• INCLUCE LOACCDFSUTLW0M 

• INCLUDE LCADIDFSUTLXCM 

■ INCLUCE LOADIOFSUTLYOP 

• INCLUDE LOAO<OFSUTLZO)' 
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F010CT71 10/02/72 



3246* 


PUNCH • 


3247* 


PUNCH • 


3248* 


PUNCH ■ 


3249 + 


PUNCH ■ 


3250* 


PUNCH • 


3251* 


PUNCH • 


3252 + 


PUNCH • 


3253 + 


PUNCH • 


3254 + 


PUNCH • 


3255* 


PUNCH • 


3256* 


PUNCH • 


3257* 


PUNCH • 


3258* 


PUNCH • 


32 59* 


PUNCH • 


3260* 


PUNCH • 


3261* 


PUNCH • 


3262* 


PUNCH • 


3263 + 


PUNCH • 


3264* 


PUNCH • 


3265* 


PUNCH • 


3266* 


PUNCH • 


3267* 


PUNCH • 


3268* 


PUNCH • 


3269 + 


PUNCH • 


3270* 


PUNCH • 


3271* 


PUNCH • 


3272* 


PUNCH • 


3273* 


PUNCH • 


3274 + 


PUNCH • 


3275* 


PUNCH • 


3276* 


PUNCH • 


3277* 


PUNCH • 


3278* 


PUNCH • 


3279* 


PUNCH • 


328C* 

♦ 

3281* 


PUNCH ■ 


PUNCH • 


3282* 


PUNCH • 


3283 + 


PUNCH • 


3284* 


PUNCH • 


3285* 


PUNCH • 


3286+ 


PUNCH • 


3287* 
3288* 


PUNCH • 


PUNCH ■ 


3289* 


PUNCH • 


3290* 


PUNCH • 


3291* 


PUNCH • 


3292* 


PUNCH • 


3293* 


PUNCH • 


3294* 


PUNCH • 


3295* 


PUNCH • 


3296* 


PUNCH • 


3297* 


PUNCH • 



INCLUDE LOAD(DFSUTOIO)* 

INCLUDE LOAD«DFSUT020I* 

INCLUDE L0ADIDFSUT030I* 

INCLUCE L0AD(DFSUT040»' 

INCLUDE LOAD(OFSUT050I* 

INCLUCE LOADIDFSUT060I* 

INCLUDE L0ADIDFSUT07O* 

INCLUCE L0AD'DFSUT080)* 

INCLUCE LGA0(DFSUT090>* 

INCLUDE LOADIDFSUTOAOJ* 

INCLUCE LOADIDFSINOXO* 

INCLUDE LCADIOFSICATCI* 

INCLUDE LOAO(DFSISUBO)' 

ENTRY DLITCBL* 

NAME CFSUNU20<R) FORMAT UTILITY PHASE 3 PROC. 

INCLUDE L0AD(0FSUTL40I* 

NAME DFSUNU30IRI FORMAT UTILITY PHASE 4 PROC. 

INCLUDE LOAO(DFSPRRCO)* 

NAME CFSPRRCOtR)' 

INCLUDE LOAD(DFSPRPXO)' 

NAME OFSPRPXCIRI' 

INCLUCE LOAOIDFSPRPLOI' 

NAPE DFSPRPLO(R) 1 

INCLUCE LOAOIOFSPRRGOI* 

NAME DFSPRRGOIRI* 

INCLUCE LOADIDFSFLOSOM 

NAME DFSFLCSOIR) 

INCLUCE LCAD(DFSDSEHO)' 

NAME CFSOSEHOCRJ 



STAE EXIT ROUTINE* 
PREFIX RESOLUTION ROUTINE 1 



/*' 

//IMSGEN5 JCB I82Ct6443l,IHS,MSGLEVEL»l,MSGCLASS=A,CLASX 

»D,PRTY«8* 

//STEP1 EXEC PCM»IEWL,* 

// REGICM13GK,* 

// PARM=**OVLY,NCAL,LET,XREF»LIST**» 

//SYSPRINT DO SYS0UT=A,DCB=<RECFH«PBA,LRECL"121,BLKSIZEX 

605),' 

// SPACE*! 605. (10, 10 I.RLSE,, ROUND)' 

//SYSOBJ DO 0SN=IMS2.BLKS50,DISP*SHR* 

//LOAD OD DSN»IMS2.L0AD,0ISP=SHR* 

//USERLIB 00 DSN»ICS.CLODtDISP»SHR« 

//TELLIB DO DSN=SYS1.TELCMLIB,DISP«SHR* 

//SYSLMOD DO OSN»l MS2. RESL I B,DISP«OLD* 

//SYSUTl DO UNIT«<SYSDA,SEP"=(SYSLMOD,SYSOBJ)),SPACE«(CYX 

, (10,1)1* 

//SYSLIN DO ** 

INCLUDE LOAD(DFSFSWAO)* 

NAME CFSFSHAO(R) 

INCLUDE LGAO(OFSDLNOO)* 

INCLUCE LOADIOFSIINLOI* 

INCLUCE- LCAOIDFSIINIOI* 

INCLUCE L0A0(0FSIIN20>* 

INCLUDE LOAD(OFSDBPIO) 1 

NAME CFSOLBNO(R) 

INCLUCE LOAO(DFSDPSBO)* 



2589 

STAE WKAREA MODULE* 



DL/I INITIALIZATION* 
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DL/I UTILITY INTERFACEi 



3299* 


PUNCH ■ 


330C* 


PUNCH • 


3301* 


PUNCH • 


3302* 


PUNCH • 


3303* 


PUNCH • 


3304* 


PUNCH • 


33C5 + 


PUNCH • 


33C6* 


PUNCH • 


3307* 


PUNCH • 


33C8* 


PUNCH • 


3309 + 


PUNCH ■ 


331G* 


PUNCH • 


331U 


PUNCH • 


3312* 


PUNCH • 


3313* 


PUNCH • 


3314 + 


PUNCH • 


3315* 


PUNCH ■ 


3316* 


PUNCH • 


3317* 


PUNCH • 


3318* 


PUNCH • 


3319* 


PUNCH • 


3320* 


PUNCH • 


332U 


PUNCH • 


3322* 


PUNCH • 


3323* 


PUNCH • 


3324* 


PUNCH • 


3325 + 


PUNCH • 


3326* 


PUNCH • 


3327* 


PUNCH • 


3328* 


PUNCH • 


3329 + 


PUNCH • 


3330* 


PUNCH • 


3331 + 


PUNCH • 


3332* 


PUNCH • 


3333 + 


PUNCH • 


3334* 


PUNCH ■ 


3335* 


PUNCH ' 


3336* 


PUNCH • 


3337* 


PUNCH • 


3338* 


PUNCH • 


3339* 


PUNCH • 


334C + 


PUNCH • 


3341* 


PUNCH • 


3342* 


PUNCH • 


3343* 


PUNCH • 


3344* 


PUNCH • 


3345 + 


PUNCH • 


3346* 


PUNCH • 


3347* 


PUNCH ■ 


3348* 


PUNCH • 


3349t 


PUNCH • 


3350 + 


PUNCH ■ 



DL/I UTILITY INTERFACE, AX 



• NAME CFSDPSeO(R) 
SB GENERATOR* 

• INCLUCE LOACIDFSDAPLOI' 

• NAFE OFSOAPLO(R) 
UTH PGM LIST* 

• INCLUCE LOADCDFSUCMNO)' 

• INCLUDE LOAD(OFSUCCTO)' 

• INCLUCE LOAC(CFSUC150I« 

• INCLUCE LCADI0FSUC350)' 

• INCLUCE LOADCDFSUCERO)' 

• INCLUCE LOAOtOFSCUMMO)' 

• INCLUDE SYSOBJIDFSVCOOCP 

• NAME DFSUCUMO(R)' 

• INCLUCE LOADIDFSUDMPOC 

• INCLUDE LCADIDFSDMPHOI' 

• INCLUCE SYSOBJIOFSVCOOOI' 

• NAME CFSUDHPO(R) 

• INCLUCE LOAD(DFSUACBO)' 

• INCLUDE LOADIDFSUSCHOl* 

■ INCLUCE LCAOIDFSUMGTGP 

• INCLUDE LOAD(DFSUMSGO)' 

• INCLUCE LOADIDFSUSRCOP 

• INCLUCE LOAD(DFSUAMBO)' 

• ENTRY DFSUACBO' 

• NAME CFSUACBO(R) 

• INCLUCE LCAD(OFSLBLMO) • 

• NAME CFSLBLMOIRI BLOCK BUILDER MSG ROUTER 
« INCLUCE LCADIOFSURULO)' 

• INCLUCE LOAOIDFSAOSIOP 

• INCLUCE LOADIOFSRULMO)' 

• INCLUCE SYSOBJIOFSVCOOOI* 

• NAME DFSURULOIR) 

• INCLUDE LOADIDFSURRLOI* 

• INCLUCE LOADIDFSRRLMO)' 

• INCLUDE SYSOBJ(DFSVCOOO) 1 

• NAME CFSURRLO(R) 

• INCLUDE LCADtDFSURDBOP 

• INCLUCE LOAD! DFSRDBMO I • 

■ INCLUDE SYSOBJIOFSVCOOCP 

• NAME CFSURDBO(R) 

• INCLUCE LOADIDFSBINDOI" 

• INCLUCE LCADCDFSDBLMC I* 

• INCLUDE LOADJDFSDBLDOI" 

• INCLUDE LOADtOFSOBLPO)' 

• INCLUDE LOADIDFSDBLRO)' 

• ENTRY DFSBINDO' 

• NAME CFSBBLDO(R) 

• INCLUDE LCAOIDFSURGUO)' 

• INCLUDE LOADIDFSLICOOP 

• INCLUOE LCADtDFSRGUMOl' 

• INCLUDE SYSOBJCOFSVCCOOI' 

■ NAME CFSURGUOIR) 

• INCLUCE LOAOIDFSURGLO)' 

• INCLUDE LOAD(OFSUEXIO)* 

■ INCLUCE LCAO(DFSLIOOO) 1 



IMAGE DUMP' 



ACBLI8 UTILITY 



HISAM REORG UNLOAC* 



HISAM REORG RE-LOAD' 



DATABASE RECOVERY" 



BATCH ACB BLOCKS LOADER* 



HDAM REORG UNLOAC" 
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F010CT71 10/02/72 



3351 + 


PUNCH • 


3352* 


PUNCH • 


3353* 


PUNCH • 


3354 + 


PUNCH • 


3355* 


PUNCH • 


3356* 


PUNCH • 


3357* 


PUNCH • 


3358* 


PUNCH • 


3359 + 


PUNCH • 


3360 + 


PUNCH • 


3361* 


PUNCH • 


3362* 


PUNCH • 


3363* 


PUNCH • 


3364 + 


PUNCH • 


3365 + 


PUNCH • 


3366* 


PUNCH • 


3367* 


PUNCH • 


3368* 


PUNCH ■ 


3369* 


PUNCH • 


337C + 


PUNCH • 


3371* 


PUNCH • 


3372 + 


PUNCH • 


3373* 


PUNCH • 


3374* 


PUNCH • 


3375 + 


PUNCH • 


3376 + 


PUNCH • 


3377 + 


PUNCH • 


3378 + 


PUNCH • 


3379 + 


PUNCH • 


3380 + 


PUNCH • 


3381 + 


PUNCH • 


3382 + 


PUNCH • 


3383 + 


PUNCH • 


3384 + 


PUNCH • 


3385 + 


PUNCH • 


3386+ 


PUNCH • 


3387+ 


PUNCH • 


3388 + 


PUNCH • 


3389+ 


PUNCH • 


3390+ 


PUNCH • 


3391 + 


PUNCH • 


3392 + 


PUNCH • 


3393 + 


PUNCH • 


3394 + 


PUNCH • 


3395 + 


PUNCH • 


3396 + 


PUNCH • 


3397+ 


PUNCH ' 


3398 + 


PUNCH • 


3399 + 


PUNCH • 


3400 + 


PUNCH • 


3401 + 


PUNCH • 


3402 + 


PUNCH • 


3403 + 


PUNCH ■ 


3404 + 


PUNCH ■ 



INCLUDE LOAOIDFSRGLMC I' 
INCLUDE SYSOBJIOFSVCOOOI' 
NAME DFSURGLO(R) 
I NCLUCE LOAD! DFSURGPO ) • 
INCLUDE LOAD(DFSLIOOO) 1 
INCLUCE SYSOBJIOFSVCOOOI' 
INCLUDE LCADIDFSURGMOI' 
NAME DFSURGPO(R) 
INCLUDE LOADIDFSURGIOI' 
INCLUCE LOADIDFSLIOOO)' 
INCLUCE SYSOBJIOFSVCOOOI' 
INCLUDE LCAD(DFSURGMC)' 
NAME DFSURGIO(R) 
INCLUCE LOADIDFSURGSOI' 
INCLUCE LGADIDFSDSEHOP 
INCLUCE LCAD(DFSLIOOO)' 
INCLUDE SYSOBJIDFSVCOOOI 1 
INCLUDE LCADIDFSURGMOM 
NAME CFSURGSO(R) 
INCLUCE LOAD(DFSURPRO)' 
INCLUOE SYSOBJIOFSVCOOOI' 
INCLUCE LOADIDFSURGMOI' 
NAPE DFSURPROCRI 
INCLUDE L0ADIDFSERA101' 
NAME DFSERA10IR) 
INCLUCE LCADIDFSACP10I' 
NAME DFSACP10IRI 
INCLUDE LOADIDFSUPRTOI 
NAME DFSUPRTOIRI' 
INCLUDE LOADIDFSIMPOOI" 
INCLUOE L0ADIDFSIMP10I" 
INCLUDE LCADI0FSIMP20I" 
ENTRY DFSISMPO' 
NAME DFSISMPO(R) 
INCLUDE LOADIDFSFLBDOI 
ENTRY DFSFLBD1" 
NAME CFSFL6D0IRI 

INCLUCE LCADIDFSFLOTOI' 
INCLUDE LOADIDFSFLMTOI" 
INCLUCE SYSOBJIDFSVCCOOI' 
ENTRY DFSFLOTO' 
NAME DFSFLCTOIRI 
INCLUCE L0ADIDFSIST10I' 
NAME CFSIST10CRI 
INCLUCE L0ADIDFSIST20I" 
NAME DFSIST20IRI 
INCLUCE L0ADIDFSIST30I" 
NAME DFSIST30CR) 
INCLUCE L0AD<DFSIST40I" 
NAME DFSIST40IRI 
INCLUCE LOADIDFSDDLSOI' 
INCLUDE LOADIDFSLIOOO)' 
ENTRY CLITCBL" 
NAME DFSDDLTOIR) 



HDAM REORG RE-LOAD' 



REORG PREFIX UPDATE" 



REORG SORT 1' 



REORG SCAN' 



PRE-REORG/LOAD' 

LOG PRINT SERVICE AID. 



7770 CHANNEL PROGRAM' 
LOCAL SYSOUT UTILITY. 



SECURITY MAINTENANCE" 
V954 



STAND-ALONE LOG TERMINATCRX 



SYSTEM LOG TERMINATOR 
STATISTICS 1' 



STATISTICS 2' 
STATISTICS 3' 



STATISTICS 4' 



DL/I TEST PROGRAM" 
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F010CT71 10/02/72 



34C5 + 
34C6 + 
34C7 + 
34C8 + 
3409* 
3410* 
3411* 
3412* 
3413* 

3414 + 

3415 + 

3416 + 
3417+ 
3418* 
3419 + 
342C + 

3421 + 

3422 + 

3423 + 

3424 + 

3425 + 
3426* 
3427 + 
3428* 
3429 + 
343C + 

3431 + 

3432 + 

3433 + 

3434 + 
3435+ 

3436 + 

3437 + 

3438 + 

3439 + 

3440 + 

3441 + 

3442 + 
+ 

3443 + 

3444 + 

3445 + 

3446 + 
344 7 + 

3448 + 

3449 + 

3450 + 

3451 + 

3452 + 

3453 + 

3454 + 

3455 + 
3456+ 
3457 + 
3458+ 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



INCLUDE LOAO(DFSBACKO)* 
INCLUDE LCADIDFSROBCOI* 
INCLUDE LOAOIDFSLIOGC)' 
INCLUDE LOAD(DFSBACMO)' 
ENTRY CLITCBL* 
NAME DFSBBCCO(R) 
INCLUDE LOAOIDFSIXXXOI 
INCLUDE SYSLMODIOFSIbLKBI 
INCLUCE LOADIOFSISVVOI 
INCLUCE LOAD(DFSCFEOO) 
INCLUCE L0ADIDFSCFE80) 
INCLUDE LOADIDFSCFEIOI 
INCLUCE LOADIOFSCFEPCI 
INCLUCE LOADIOFSCFEGOI 
INCLUDE LOADIDFSCFEOO) 
INCLUDE LOAO(OFSCFESO) 
INCLUOE LCADtDFSCFEQCI 
INCLUDE LOAOIDFSFPMMOJ 
INCLUCE LCAOIDFSFPRFOI 
INCLUDE LOADIDFSFFETOI 
INCLUCE LOADIOFSFFRHOI 
INCLUCE LOAOIOFSCFEZOI 
INCLUCE LOAOIDFSCLMOOI 
INCLUCE LOADIDFSCLMROI 
INCLUCE L0ADI0FSCMT10) 
INCLUDE L0AD(0FSCMT20I 
INCLUCE LOAD(DFSCMT30) 
INCLUDE LCAD(DFSOBLMO) 
INCLUCE LOAD(OFSDULDO) 
INCLUCE LOAD(DFSDBLIO) 
INCLUOE LOAD(DFSDBLPO) 
INCLUCE LOAD(DFSDSSTO) 
INCLUOE LCADIDFSDBLROI 
INCLUDE LOADtOFSDPDMO) 
INCLUDE LCAD(OFSDBPIC) 
INCLUCE L0ADI0FSFXC1G ) 
INCLUDE LOAD(DFSFLOSO) 
INCLUCE LOADtDFSFBGNOI 



INCLUCE 
INCLUDE 
INCLUCE 
INCLUCE 
INCLUDE 
INCLUDE 
INCLUCE 
INCLUCE 
INCLUDE 
INCLUCE 
INCLUDE 
INCLUCE 
INCLUOE 
INCLUDE 
INCLUCE 
INCLUDE 



LOAD(DFSFLOIO) 
LOADCOFSFLOGO I 
LOAD(DFSIASEC) 
LOAD(OFSTERMO) 
LOAOCDFSIASIO) 
LOAD(DFSIASTO) 
LCAD(DFSICIOC) 
LOAD(DFSICLBO) 
LOADIDFSICLDOI 
LOAOCDFSICLEOI 
LCADIDFSICLF01 
LOAD(DFSICLKC) 
LOAD(DFSICLNO) 
LOAOtDFSICLPOl 
LOADCDFSICLRO I 
LOADIDFSICLSOI 



BATCH DATABASE BACKOUT 1 
SYSTEM DIRECTORY.* 
SYSTEM CTRL BLOCKS.' 
SVC MODULES. 1 

FORMAT EDITOR INPUT SCAN.' 
FORMAT ED. OUTPUT BUILD. • 
FORMAT ED. INPUT PROCESS.' 
FORMAT EOITOR PAGING.' 
FORMAT EO. OUTPUT BUFFER.' 
FORMAT ED. OUTPUT PROCESS' 
FORMAT EDITOR SORT.' 
FORMAT EDITOR CLEAN-UP.' 
FORMAT POOL MANAGER. • 
PRE-FETCH MODULE. • 
IMMEDIATE FETCH MODULE. ' 
FETCH REQUEST HANCLER. • 
FORMAT EDITOR TRACE. • 
MESSAGE GENERATOR OVLY.' 
MESSAGE GENERATOR ROOT.' 
MSG GENERATOR TABLE 1.' 
MSG GENERATOR TABLE 2.' 
MSG GENERATOR TABLE 3.' 
DL/I BLOCK MOVER.' 
OMB LOADER/RELOCATION' 
INTENT LIST LOAD/RELOCATE' 
PSB LOADER/RELOCATION' 
OATABASE RESOURCE MNGMT • 
ACBLIB READER • 
PSB/DMB POOL MANAGER • 
BUFFER POOL INIT' 
IMS/360 ENQUEUE' 
IMS/360 STAE EXIT ROUTINE* 
LOG INTERFACE INITIAL IZATI X 

LOG RECORDER ROUTINE.' 
LOG WRITER MODULE* 
SIM REGION TERMINATION.' 
TERMINATION CLEANUP' 
REGION INITIATOR.' 
REGION TERMINATOR.* 
COMM. I/O ANALYZER.* 
COMM. INPUT EDITOR.* 
COMM. DISPLAY PROCESSOR.* 
SET/RESET COMMAND.' 
FIND DESTINATION MODULE.' 
FORMAT COMMANO. • 
TRACE COMMAND. • 
COMMAND PROCESSOR.' 
MESSAGE ROUTER.' 
SECURITY CHECKER.' 
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F01OCT71 1C/02/72 



3459+ 


PUNCH 


INCLUDE 


3460* 


PUNCH 


INCLUOE 


3461* 


PUNCH 


INCLUDE 


3462* 


PUNCH 


INCLUDE 


3463* 


PUNCH 


INCLUDE 


3464* 


PUNCH 


INCLUDE 


3465* 


PUNCH 


INCLUDE 


3466* 


PUNCH 


INCLUDE 


3467* 


PUNCH 


INCLUDE 


3468* 


PUNCH 


INCLUDE 


3469* 


PUNCH 


INCLUDE 


3470* 


PUNCH 


INCLUCE 


3471 + 


PUNCH 


INCLUDE 


34 72* 


PUNCH 


INCLUDE 


3473* 


PUNCH 


INCLUCE 


3474 + 


PUNCH 


INCLUDE 


34 75* 


PUNCH 


INCLUCE 


3476 + 


PUNCH 


INCLUDE 


3477* 


PUNCH 


INCLUCE 


3478* 


PUNCH 


INCLUDE 


3479* 


PUNCH 


INCLUCE 


3480 + 


PUNCH 


INCLUDE 


3481* 


PUNCH 


INCLUDE 


3482* 


PUNCH 


INCLUDE 


3483* 


PUNCH 


INCLUCE 


3484+ 


PUNCH 


INCLUOE 


3485 + 


PUNCH 


INCLUCE 


3486 + 


PUNCH 


INCLUCE 


3487+ 


PUNCH 


INCLUCE 


3488 + 


PUNCH 


INCLUCE 


3469 + 


PUNCH 


INCLUCE 


3490 + 


PUNCH 


INCLUDE 


3491 + 


PUNCH 


INCLUCE 


3492 + 


PUNCH 


INCLUDE 


3493 + 


PUNCH 


INCLUDE 


3494 + 


PUNCH 


INCLUDE 


3495 + 


PUNCH 


INCLUCE 


3496 + 


PUNCH 


INCLUCE 


3497+ 


PUNCH 


INCLUCE 


3498 + 


PUNCH 


INCLUCE 


3499+ 


PUNCH 


INCLUCE 


350C + 


PUNCH 


INCLUCE 


3501 + 


PUNCH 


INCLUOE 


3502 + 


PUNCH 


INCLUCE 


35C3 + 


PUNCH 


INCLUDE 


3504 + 


PUNCH 


INCLUCE 


3505 + 


PUNCH 


INCLUCE 


3506 + 


PUNCH 


INCLUOE 


3507 + 


PUNCH 


INCLUDE 


3508 + 


PUNCH 


INCLUDE 


3509+ 


PUNCH 


INCLUDE 


3510 + 


PUNCH 


INCLUCE 


3511 + 


PUNCH 


INCLUOE 


3512 + 


PUNCH 


INCLUDE 


3513 + 


PUNCH 


INCLUDE 



LCAO(DFSICLTO) 
LOAD(OFSICLXO) 
L0AD(DFSICL10» 
L0ADCDFSICL2CI 
L0AD(DFSICL30) 
L0ADI0FSICL40I 
L0ADCDFSICL50I 
L0A0IDFSICL60) 
L0ADIDFSICL70) 
L0ADIDFSICL80) 
LOADICFSICL90I 
LCAD(DFSICLGOI 
LOAOIDFSICLJO) 
LCADIOFSICUROI 
LOAD(OFSIDPGO) 
L0ADICFSIDP10I 
L0AD(0FSIDP20I 
LOA0IOFSIDP30I 
L0ADCDFSIDP4C) 
L0ADIDFSIDP50) 
LCADIDFSIDP60I 
L0ADIDFSIDP70J 
LCAD(DFSIDP80I 
LOADIDFSIDP90) 
LCAOtDFSIDPAOl 
LOAD(DFSIDSPO) 
LOADIDFSIIDEOI 
LOAO(DFSIIENO) 
LOADtDFSIINBOi 
LOAD(DFSIINDO) 
LOAD(DFSIINFO) 
LOADIDFSIINLOI 
LOADtOFSIINQCI 
LCAD(DFSIINSO) 
LOADIDFSIINTOI 
LCAD(DFSIINXO) 
LOAD(DFSIINIO) 
LOADJDFSIIN20) 
LCAD(OF'SIMBDC) 
LOAD(DFSIMBEO) 
LOADCDFSIPCPOJ 
LOAO(DFSIPOLO) 
LOAD(DFSFTRMC) 
LOAD(OFSIPREO) 
LCAD(DFSIRDIO) 
LOADtDFSQMGROI 
LOAD(OFSQLOGO) 
LOADIDFSQRSTO) 
LOAD(OFSISMIC) 
LOAD(OFSISMNO) 
LCAD(OFSRCPOO) 
LOADtDFSRBOIOI 
LOAD(DFSROBCO) 
LOADIOFSREREOI 
LOAD(DFSRNKEO) 



MESSAGE TRANSLATOR.' 
RESET POLL.' 
BROADCAST COMMAND.' 
CHE/RES COMMANO. • 
COMMAND EDITOR.' 
START COMMAND.' 
TEST/EXC/END COMMAND.' 
CHANGE COMMAND.' 
ASSIGN COMMAND.' 
DELETE COMMAND.' 
LOCK/UNLOCK COMMANDS.' 
IDLE COMMAND. • 
DEQUEUE COMMAND • 
OUTPUT EDITOR.' 
DISPLAY CONTROL.' 
DISPLAY STATUS.' 
DISPLAY ACTIVE.' 
DISPLAY QUEUES.' 
DISPLAY TRAN ££ LTERM.' 
DISPLAY PGM CS DATABASE.' 
DISPLAY LINE G£ PTERM.' 
DISPLAY ASSIGNMENT.' 
DISPLAY CONVERSATIONS.' 
DISPLAY SHUTDOWN STATUS.' 
DISPLAY POOL. • 
DISPATCHER.' 
BLOCK OEQUEUE. • 
BLOCK ENQUEUE.' 
INIT - COMMUNICATIONS.' 

- DMB DIRECTORY.' 

- FORMAT BUFPOOL. • 

- MODULE LOADER.' 

- QUEUE MANAGEMENT.' 

- POOL MANAGEMENT.' 

- CONTROL £6 MISC.' 

- RESIDENT XFR CTRL' 

- JOBLIB MODULE TBL" 

- SVCLIB MODULE TBL' 
SMB DEQUEUE.' 

SMB ENQUEUE.' 

CHECKPOINT POST ROUTINE.' 

POLLING LIST MANIPULATOR.' 

TERMINAL LOOKUP MODULE. • 

LOG PREFIX BUILDER.' 

DISPLAY MASTER.' 

QUEUE MANAGEMENT.' 

QUEUE LOG BUILDER. • 

QUEUE RESTART INTERFACE. • 

SECURITY MAINT. INIT." 

STORAGE MANAGEMENT.' 

CHECKPOINT MODULE.' 

BACK OUT INTERFACE MODULE' 

BACK OUT MODULE' 

EMER RESTART OVLY MODULE.' 

NORM RESTART OVLY MODULE.' 



3.200 
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LOC OBJECT CODE 



AODR1 AODR2 STMT SOURCE STATEMENT 
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3514* 
3516* 
3516* 
3517* 
3518 + 

♦ 
3519* 
3520+ 
3521 + 
3522* 
3523* 
3524* 
3525* 
3526* 
3527* 
3528* 

♦ 
3529* 
3530* 
3531* 
3532* 
3533* 
3534* 
3535* 
3536* 
3537* 
3538* 
3539* 
354C* 
3541 + 

♦ 
3542* 

♦ 
3543* 
3544* 
3545* 
3546* 
3547* 
3548* 
3549* 
3550 + 
3551* 
3552* 
3553* 
3554* 
3555* 
3556* 
3557* 
3!>58* 
3559* 
3560* 
3561 + 
3362* 
3563* 
3564* 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



INCLUDE 
INCLUDE 
INCLUCE 
INCLUDE 
INCLUDE 

INCLUCE 
INCLUDE 
INCLUCE 
INCLUCE 
INCLUCE 
INCLUCE 
INCLUDE 
INCLUCE 
INCLUDE 
INCLUDE 

INCLUDE 
INCLUDE 
INCLUDE 
INCLUCE 
INCLUCE 
INCLUDE 
INCLUDE 
INCLUCE 
INCLUDE 
INCLUDE 
INCLUCE 
INCLUDE 
INCLUDE 



LOADIDFSRSTOOI 

LOAD(OFSWRAPC) 

TELLIB(IECTLOPN) 

TELLIB(IECTCHGN) 

LOADIDFSDNSCOI 

LOAO(DFSPAQEO) 
L0AOIDFSDNO10I 
LOACIDFSDN120) 
LOAD(DFSDSOIO) 
LOAD(DFSUNOeO) 
L0A0(0FSDS05CI 
LOAD(DFSDNllO) 
L0A0IDFSDN02C) 
LCAD<0FSDS02OI 
LOA0IDFSDN03CI 

LCAD(DFSDN130) 
LOADIDFSDN140) 
LOADIDFSDN040I 
L0A0«DFSDN06O| 
LOA0IDFSDN090I 
LOAD(OFSBSCKC) 
LOAD(DFSDNS30I 
L0A0IDFSDNS20I 
LOADIDFSDS040) 
LOAD(DFSDNISO) 
L0ADI0FSII150) 
LCADIDFSICONOI 
LOAD(DFSICLHO) 



INCLUDE LOADIDFSICLAOI 

INCLUCE LCADIDFSICA10I 
INCLUCE LCAD(DFSII0301 
INCLUDE LGADIDFSDS030) 
INCLUCE LOAD(DFSIOMYO) 

ENTRY DFSSTART' 
OVERLAY CHEA* 

INSERT DFSRSTOO' 
OVERLAY CHEA1' 

INSERT DFSDBPIO' 
OVERLAY CHEA' 

INSERT DFSRCPOO' 
OVERLAY INSAIREGIONI' 

INSERT DFSCLMOO' 
OVERLAY IMSA' 

INSERT 0FSICL10' 
OVERLAY IMSA' 

INSERT CFSICL20' 
OVERLAY IMSA' 

INSERT 0FSICL30' 
OVERLAY IMSA' 

INSERT DFSICL40' 
OVERLAY IMSA' 



RESTART ROOT MODULE.* 

POLL OPEN/WRAP.* 

BTAP LINE OPEN* 

BTAM POLL CHANGER.' 

SYSTEM CONSOLE DEVICE HODUX 

TERMINAL PAGING MODULE* 
2740 DEVICE HCOULE(NS).' 
274C DEVICE MODULEINSC). • 
2740 DEVICE MODULE(S).* 
2741 DEVICE MODULEINSI* 
2741 OEVICE MODULEISI. • 
2980 DEVICE MODULE(NS). • 
105C OEVICE MODULE(NS).* 
1050 DEVICE MODULE(S).* 
2260 DEVICE MOOULEIREHOTEIX 

3270 REMOTE OEVICE MODULE* 
3270 LOCAL DEVICE MODULE.' 
2740-11 DEVICE MODULE.* 
1030 OEVICE MODULE.* 
2770 DEVICE MODULEINSt. • 
BSC CHECK MODULE. • 
277C RWA SERVICE MODULE. • 
2770 OEBLOCK MODULE. • 
TWX DEVICE MODULE. • 
LOCAL SYSOUT MOOULE. • 
LOCAL SYSOUT INIT • 
CONVERSATICN PROCESSOR.* 
HOLO/EXIT/RELEASE COMHANDSX 

IAM ROOTICONNECT-OISCONNECX 

SIGN ON OVERLAY.* 
7770 OPEN INITIALIZATION* 
7770 DEVICE MODULE' 
INSURE NO UNRESOLVES. • 
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3565 + 


PUNCH 


INSERT 0FSICL50' 


3566* 


PUNCH 


OVERLAY IPSA* 


3567 + 


PUNCH 


INSERT DFSICL60' 


3568* 


PUNCH 


OVERLAY IMSA' 


3569 + 


PUNCH 


INSERT 0FSICL70' 


3570* 


PUNCH 


OVERLAY IMSA' 


3571* 


PUNCH 


INSERT DFSICL80' 


3572* 


PUNCH 


OVERLAY IMSA' 


3573 + 


PUNCH 


INSERT DFSICL90' 


3574* 


PUNCH 


OVERLAY IMSA' 


3575* 


PUNCH 


INSERT DFSICLEO* 


3576* 


PUNCH 


OVERLAY IMSA' 


3577* 


PUNCH 


INSERT DFSICLHO' 


3578* 


PUNCH 


OVERLAY IMSA' 


3579* 


PUNCH 


INSERT DFSICLGO' 


3580 + 


PUNCH 


OVERLAY IMSA' 


3581* 


PUNCH 


INSERT OFSICLJO' 


3582 + 


PUNCH 


OVERLAY IMSA' 


3583* 


PUNCH 


INSERT DFSICLNO' 


3584* 


PUNCH 


OVERLAY IMSA' 


3585* 


PUNCH 


INSERT OFSIOPOO' 


3586* 


PUNCH 


OVERLAY IMSA' 


3587* 


PUNCH 


INSERT DFSI0P10' 


3588 + 


PUNCH 


OVERLAY IMSA* 


3589* 


PUNCH 


INSERT DFSIDP20' 


3590* 


PUNCH 


OVERLAY IMSA 1 


3591* 


PUNCH 


INSERT DFSIDP30' 


3592* 


PUNCH 


OVERLAY IMSA" 


3593* 


PUNCH 


INSERT CFSIDP40* 


3594* 


PUNCH 


OVERLAY IMSA* 


3595* 


PUNCH 


INSERT CFSI0P50' 


3596* 


PUNCH 


OVERLAY IMSA' 


3597 + 


PUNCH 


INSERT DFSIDP60' 


3598* 


PUNCH 


OVERLAY IMSA' 


3599 + 


PUNCH 


INSERT 0FSI0P70' 


3600* 


PUNCH 


OVERLAY IMSA* 


3601* 


PUNCH 


INSERT DFSIDP80' 


3602* 


PUNCH 


OVERLAY IMSA' 


3603* 


PUNCH 


INSERT DFSIDP90' 


36C4 + 


PUNCH 


OVERLAY IMSA' 


3605 + 


PUNCH 


INSERT DFSIDPAO' 


3606+ 


PUNCH 


OVERLAY IMSA* 


3607* 


PUNCH 


INSERT DFSCFEZO' 


3608 + 


PUNCH 


INSERT DFSCFEZ1* 


3609* 


PUNCH 


OVERLAY IMSA* 


3610* 


PUNCH 


INSERT DFSIRD10' 


3611 + 


PUNCH 


OVERLAY IMSA" 


3612* 


PUNCH 


INSERT OFSIPCPO' 


3613* 


PUNCH 


OVERLAY IMSA' 


3614* 


PUNCH 


INSERT DFSCMT10' 


3615 + 


PUNCH 


OVERLAY IMSA' 


3616* 


PUNCH 


INSERT DFSCMT20' 


3617* 


PUNCH 


OVERLAY IMSA* 


3618+ 


PUNCH 


INSERT DFSCMT30' 


3619* 


PUNCH 


OVERLAY IMSA' 



IMS SYSTEM DEFINITION. 
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LOC OBJECT COOE 
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3620* 


PUNCH • 


3621* 


PUNCH • 


3622* 


PUNCH • 


3623* 


PUNCH ■ 


3624 + 


PUNCH • 


3625* 


PUNCH ' 


3626* 


PUNCH • 


3627* 


PUNCH ■ 


3628 + 


PUNCH • 


3629* 


PUNCH • 


363C + 


PUNCH • 


3631 + 


PUNCH • 


3632 + 


PUNCH • 


3633 + 


PUNCH • 


3634 + 


PUNCH • 


3635 + 


PUNCH • 


3636 + 


PUNCH • 


3637 + 


PUNCH ' 


3638 + 


PUNCH • 


3639 + 


PUNCH • 


3640 + 


PUNCH • 


3641 + 


PUNCH • 


3642 + 


PUNCH • 


3643 + 


PUNCH • 


3644 + 


PUNCH • 


3645 + 


PUNCH • 


3646 + 


PUNCH • 


3647+ 


PUNCH • 


3648 + 


PUNCH • 


3649 + 


PUNCH ■ 


3650 + 


PUNCH • 


3651 + 


PUNCH • 


3652 + 


PUNCH • 


3653 + 


PUNCH • 


3654 + 


PUNCH • 


3655 + 


PUNCH • 


3656+ 


PUNCH • 


3657 + 


PUNCH • 


3658 + 


PUNCH • 


3659 + 


PUNCH • 


366C + 


PUNCH • 


3661 + 


PUNCH • 


3662 + 


PUNCH • 



INSERT DFSICA10' 
OVERLAY IMSA' 

INSERT DFSIINXO' 
OVERLAY IMSB' 

INSERT DFSIINTO' 

INSERT OFSFBGNO' 
OVERLAY IMSB' 

INSERT OFSIINLO' 

INSERT DFSIIN10' 

INSERT DFSIIN20' 
OVERLAY IMSB' 

INSERT DFSIINOO' 
OVERLAY IMSB' 

INSERT DFSIINSO' 

INSERT OFSINTBO' 
OVERLAY IMSB' 

INSERT OFSIINQO' 
OVERLAY IMSB' 

INSERT DFSIINFO' 
OVERLAY IMSB' 

INSERT DFSIINBO' 

INSERT DFSII03C 

INSERT 0FSII150' 
OVERLAY IMSA • 

INSERT DFSIASEO' 
OVERLAY IMSA' 

INSERT DFSTERMO' 
OVERLAY IMSA' 

INSERT CFSRNREO' 
OVERLAY IMSD» 

INSERT OFSISMIO' 
OVERLAY IMSA' 

INSERT OFSREREO' 
OVERLAY IMSA' 

INSERT DFSRBOIC 
INSERT DFSROBCO' 
OVERLAY IMSA' 

INSERT IECTLOPN' 
OVERLAY IMSA' 

INSERT IECTCHGN' 
NAME DFSCNUCBIRI' 
/*• 
//• 
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3664 
3665 
3666 
3667 
366S 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
369C 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3 706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 



****** ************************************************ 
****************************************************** 
** ** 

** SUCCESSFUL IMS SYSTEM DEFINITION »* 

** FOR ALL FUNCTIONS. ** 

BEFORE STAGE II EXECUTION 

THE FOLLOWING IMS DATA SETS MUST BE ALLO- 
CATED AND CATALOGED BEFORE ATTEMPTING TO EXECUTE 
THE GENERATED STAGE II JOB STREAM: 

IMS2.LCA0 IMS2.GENLIB IMS2.RESLIB 

IMS2.MACLIB IHS2.PR0CLIB 

IMS2.BLKS50 ICS.CLOD 

OTHER REQUIRED DATA SETS MUST BE ALLOCATED 
AND CATALOGED PRIOR TO EXECUTION OF THE IMS 
CONTROL PROGRAM. 

SPECIFIED USER SUPPLIED MODULES MUST RESIDE 
IN ICS.CLOD BEFORE EXECUTION OF THE 
CONTROL BLOCK LINK EDIT STEP OF STAGE II. 

1030 LINE GROUPS REQUIRE LOAD MEMBER NAMED 
(DFS10300) AND MUST RESIDE IN ICS.CLOD 
BEFORE EXECUTION OF THE CONTROL BLOCK LINK EDIT 
STEP OF STAGE II. 

2980 LINE GROUPS REQUIRE LOAD MEMBER NAMED 
(DFS29800) AND MUST RESIDE IN ICS.CLOD 
BEFORE EXECUTION OF THE CONTROL BLOCK LINK EDIT 
STEP OF STAGE II. 



BEFORE SYSTEM EXECUTION 

THE FOLLOWING FUNCTIONS MUST BE COMPLETED 
BEFCRE SUCCESSFUL EXECUTION OF THE IMS CONTROL 
PROGRAM CAN BE ACHIEVED: 

THE REQUIRED TYPE 4 SVC AND APPENDAGE MODULES 
MUST BE PLACED IN SYS1.SVCLIB. 

THE RESIDENT SVC INTERFACE MODULES MUST BE 
LINK EOITEO WITH THE OS NUCLEUS. THESE 
MODULES ARE PLACED IN IMS2.RESLIB BY THE 
STAGE II JOB STREAM AND ARE NAMED IGC234 
AND IGC248. 

THE LOAD MEMBER DFSRRCOO MUST BE ADDED TO THE 
•PRIVILIGED PROGRAM NAME LIST 1 MEMBER (IEEVLNKT) 
IN SYS1.LINKLIB. 

THE IMS2.RESLIB OATASET MUST BE CONCATENATED WITH 
SYS1.LINKLIB BY ADDING THE NAME • IMS2.RESLIB 1 TO 



IMS SYSTEM DEFINITION. 
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LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
374C 
3741 
3742 
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THE LNKLSTOO MEMBER OF SYS1.PARMLIB. 



THE TERMINAL CONVERSATION FEATURE REQUIRES THE 
IMS2. SPA DATA SET BE ALLOCATED AND CATALOGED, 
WITH SPACE SPECIFICATION - SPACE»(0,8). 

THE CATALOGED PROCEDURE 'IMS* MUST BE UPDATED 
TC INCLUDE DO STATEMENTS FOR ON-LINE DATABASES 
AND PLACED IN SYS1.PR0CLIB BEFORE THIS PROCEDURE 
CAN BE SUCCESSFULLY EXECUTED. 

THE CATALOGED PROCEDURE • IMSRDR' HUST BE PLACED 
IN SYS1.PR0CLIB BEFORE ANY OTHER IMS GENERATED 
PROCEDURE CAN BE SUCCESSFULLY EXECUTED. 

REFER TO THE IMS SYSTEM PROGRAMMING 
REFERENCE MANUAL FOR INSTRUCTIONS AND ASSIST- 
ANCE IN PERFORMING THESE AND OTHER REQUIRED 
FUNCTIONS BEFORE SYSTEM EXECUTION. 



► ,** ** 

»,** ** 

►, ****************************************************** 
t t ***************************************i»* ************* 



NO STATEMENTS FLAGGEO IN THIS ASSEMBLY 
♦STATISTICS* SOURCE RECORDS (SYSIN) = 360 
♦OPTIONS IN EFFECT* LIST, NODECK, NOLOAC, NCRENT, 
4104 PRINTED LINES 



SOURCE RECORDS (SYSLIB) = 8589 
XREF, NCTEST, ALGN, OS, NOTERM, LINECNT * 



3.203 



BATCH DATA BASE EXAMPLE 

This example illustrates the output from Stage 1 of IMS/360 system 
definition. The input to Stage 1 (that is, the control cards) is 
provided in the output listing as is a summary of the Data Set and 
Data Base Specifications, followed by the punch statements and warning 
comments at the end. 



LOC OBJECT CODE 



A0DR1 A0DR2 STMT 



IMS SYSTEM DEFINITION. 



SOURCE STATEMENT 

IMSCTRL SYSTEM-CMVT, BATCH) 



F010CT71 10/10/72 



BATCH IMS SYSTEM FUNCTIONS ARE SELECTED 
FOR A MVT OS PROGRAMMING SYSTEM. 



IMSGEN , 

TITLE 'IMS SYSTEM DEFINITION. 



V2 R3 CLOO 14N0V72 



LOC OBJECT CODE 



ADDR1 A0DR2 STMT 
8 



SOURCE STATEMENT 
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OS SYSTEM OPTIONS: 



17 
18 
19 
20 
21 



IMS SYSTEM DEFINITION. 



MVT SYSTEM 

RESV«D SVC'S (253.254,255) 

RESV'D APNDG IGG019Z9 

RESV'D SQS (500(1000) 

IMS/360 SYSTEM OPTIONS: 

1 REGIONS 

1 SUBTASKS 

18 CONCURRENT EXCTL REQUESTS 

1000 CHECKPOINT LOG FREQUENCY 

GENERATE FOR BATCH 

V2 T3 CLOO 



LOC OBJECT CODE 



ADDR1 A00R2 STMT SOURCE STATEMENT 
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23 + 


PUNCH • 


24+ 


PUNCH • 


25+ 


PUNCH • 


26 + 


PUNCH • 


27+ 


PUNCH • 


28 + 


PUNCH • 


29+ 


PUNCH • 


30 + 


PUNCH • 


31 + 


PUNCH • 


32 + 


PUNCH • 


33 + 


PUNCH • 


34 + 


PUNCH • 


35+ 


PUNCH • 


36 + 


PUNCH • 


37+ 


PUNCH • 


38 + 


PUNCH • 


39+ 


PUNCH • 


40 + 


PUNCH • 


41 + 


PUNCH • 


42 + 


PUNCH • 


43+ 


PUNCH • 


44 + 


PUNCH ' 


45 + 


PUNCH • 


46 + 


PUNCH • 


47 + 


PUNCH • 


4b + 


PUNCH ■ 


49 + 


PUNCH • 


50 + 


PUNCH • 


51 + 


PUNCH • 


52 + 


PUNCH • 


53* 


PUNCH • 


54 + 


PUNCH • 


55+ 


PUNCH • 


56 + 


PUNCH • 


57 + 


PUNCH • 


58+ 


PUNCH • 


59 + 


PUNCH • 


60 + 


PUNCH • 


61 + 


PUNCH • 


62 + 


PUNCH ■ 


63 + 


PUNCH ■ 


64 + 


PUNCH « 


65 + 


PUNCH • 


66 + 


PUNCH • 


67 + 


PUNCH • 


68 + 


PUNCH • 


69 + 


PUNCH • 


70 + 


PUNCH • 


71 + 


PUNCH • 


72 + 


PUNCH • 


73 + 


PUNCH • 


74+ 


PUNCH • 


75 + 


PUNCH • 


76 + 


PUNCH • 



//IMSGEN1 JOB MSGLEVEL=1,MSGCLASS=A,CLASS«A« 
//STEP1 EXEC PGM»IEBCOPY« 
//SYSPRINT DO SYS0UT»A» 
//SYSUT1 00 DSN=IMS2.GENLIB,D1SP=SHR« 
//SYSUT2 DO DSN=IMS2.MACLIB,DISP=0LD« 
//SYSUT3 DD UNIT=SYSDA,SPACE=(80,(10,15J) • 
//SYSUT4 OD UNIT»SYSDA,SPACE*(256.(5,1>) • 
//SYSIN DD *• 

COPY 0UTDD=SYSUT2,INDD«SVSUT1 • 

SELECT MEMBER=ALPHA • 

SELECT MEMBER=CKDDN • 

SELECT MEMBER=CKOPT • 

SELECT MEMBER=CONVERT • 

SELECT MEMBER=DATASET • 

SELECT MEMBER=DBD • 

SELECT MEMBER=DBDGEN • 

SELECT MEMBER*DBOLRECL • 

SELECT MEMBER=DEVSIZE • 

SELECT MEMBER=DMAN • 

SELECT MEMBER=EXPARMS • 

SELECT MEMBER=EXTDBD • 

SELECT MEMBER=FIELD • 

SELECT MEHBER=FINISH • 

SELECT MEMBER=FLD • 

SELECT MEMBER=FLDK • 

SELECT MEMBER=GLOBALS • 

SELECT MEMBER=HIERSEQ • 

SELECT MEMBER=LCHILD • 

SELECT MEMBER=PCB • 

SELECT MEMBER=PCBPDV • 

SELECT MEMBER=PSBGEN ■ 

SELECT MEMBER=SEGM • 

SELECT MEMBER=SEGPTRS • 

SELECT MEMBER=SENSEG • 

SELECT MEMBER=SETFLGS • 

SELECT MEMBER=SETFREQ • 

SELECT MEMBER=SOURSEG • 

SELECT MEHBER=X0FLD • 
//STEP2 EXEC PGM=IEBUPDTE,' 
// PARM=NEW 

//SYSPRINT OD SYSOUT=A' 

//SYSUT2 DD DSN=IMS2.PR0CLIB,DISP=0LD« 
//SYSIN DD DATA* 
./ ADD NAME = CBLT0LI' 

LIBRARY RESLIB(CBLTOLI) 

ENTRY DLITCBL' 
./ ADD NAME=PLITDLI' 

LIBRARY RESLIB(PLITDLI) 

ENTRY IHESAPD' 
./ ADD NAME=DLtBATCH« 
./ NUMBER NEWl=10,INCR=10» 

// PROC MBR=TEMPNAHE,SOUT=A,PSB=,BUF=,SPIE=0,TEX 
ST=0' 
//G EXEC PGM=DFSRRC00,REGION=130K,» 
// PARM="DLI,£6MBR,£tPSB,£6BUF, 6CSPIEECTESX 



DL/I LANGUAGE INTERFACE 1 



DL/I LANGUAGE INTERFACE' 
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LUC OtJJECT CODE 



AUOR1 AODR2 STMT SOURCE STATEMENT 
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77* 

78 + 
79* 

ao+ 

81* 
82* 

♦ 
83 + 
84* 

♦ 
85+ 

86 + 

87 + 

88 + 
+ 

8* + 

90 + 
♦ 

91 + 

92 + 

93 + 

94 + 

95 + 
♦ 

96 + 

97 + 
♦ 

98 + 
99+ 

100 + 

101 + 

102 + 
♦ 

103 + 
104+ 
105 + 
106+ 

107 + 

108 + 
♦ 

109 + 

110 + 

111 + 

112 + 

113 + 

114 + 

115 + 

116 + 
♦ 

117 + 

118 + 
♦ 

119+ 
120 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 



T«" 

//STEPLIB DD DSN»IMS2.RESLIB,DISP«SHR« 

// DD DSN«IMS2.PGMLIB,0ISP»SHR» 

//IMS DO DSN=IMS2.PSBLIB,DISP»SHR« 

// DD DSN=IMS2.0BDLIB,DISP»SHR• 

//OFSLOGTT OD DSN»IMS2.L0GT ,OISP«SHR» 

//IEFRDER DO DSN«IMSL0G,DISP«(,KEEP),V0L-(,,,99),UNIT-(X 
2400, .DEFER),' 

// DCB»(RECFM«VBSiBLKSIZE»1408,LRECL«1400,BUFNO«l) > 

//SYSUDUMP DD SYS0UT»£CSOUT,DCB- (RECFM»FBA,LRECL«121,BLX 
KSUE-605),' 

// SPACE- (605 1( 500, 500), RLSE,, ROUND I ' 



./ 
./ 
II 
ST»0' 
110 
II 



ADO NAME'DBBBATCH* 

NUMBER NEWl«lO,INCR»10» 

PROC MBR=TEMPNAME,SOUT»A,PSB« 



.BUF-8.SPIE-0.TEX 



PGH'DFSRRCOO.REGION-ISOK,' 
PARH»«»OBB,CCMBR,tCPSB,CEBUF, CCSPIEttTESX 



//STEPLIB DO DSN«IMS2.RESLIB,0ISP>SHR* 

// DD DSN»1MS2.PGMLIB,0ISP»SHR« 

//IMSACB DD DSN«IMS2.ACBL1B,DISP»SHR» 

//OFSLOGTT DO DSN»lMS2.L0GT,DISP»SHR• 

//IEFRDER DO DSN»IMSLOG,DISP*(,KEEP) ,VOL»( ,, ,99) ,UNIT»{ X 
2400, .DEFER),' 

// OCB<(KECFM<VBS,BLKSIZE°1408,LRECL'1400,BUFNO-1) < 

//SYSUOUMP OD SYS0UT»ttS0UT,DCB-(RECFH«FBA,LRECL«l21,BLX 
KSIZE=605),' 

// SPACE*(605, (500, 500), RLSE,, ROUND)* 



ADD NAME=ACBGEN» 

NUMBER NEW1=10,INCR»10« 

PROC SOUT=A,COMP»,RGN«100K• 

EXEC PGM»DFSRRC00,PARM-««UPB,C£C0MP««,REGION»X 



./ 
./ 
II 
110 

CCRGN* 
//SYSPRINT OD SYS0UT»ECSOUT« 



//IMS 
II 

//IMSACB 
//SYSUT3 
//SYSUT4 
EN=8» 
//COMPCTL 
./ 
./ 

.1 
.1 
II 
IIC 



DD DSN«IMS2.PSBLIB,DISP=SHR' 

OD DSN*IMS2.0B0LIB,DISP«SHR ( 

DD DSN>IMS2.ACBLIB,DISP«0LD I 

00 UNI T=SYSDA, SPACE* ( 80.(100, 100))' 

OD UNIT=SYSDA,SPACE* (256, ( 100, 100) ),DCB*KEYLX 

00 DSN=IMS2.PR0CLIB(DFSACBCP),DISP»SHR« 
ADD NAME-DFSACBCP* 
NUMBER NEW1=10,INCR=10' 
COPY INOD»IMSACB,OUTOD»IMSACB« 
ADD NAHE=PSBGEN« 
NUMBER NEW1=10,INCR=10« 
PROC MBR=TEMPNAME,SOUT-A« 
EXEC PGM=IEUASM,REGI0N»120K,PARM»« 'LOAD.NODECX 



//SYSLIB DD 
//SYSGO DD 
00), RLSE),' 
II 
//SYSPRINT DD 



DSN=IMS2.MACLIB,DISP=SHR« 
UNlT=SYSDA,OISP=(, PASS), SPACE- (80, (100, IX 



DCB=(BLKSIZE«400,RECFM*FB,LRECL»80)' 
SYS0UT»C£SOUT,DCB»(LRECL-12l,RECFM»FBM,BX 



3.205 



IMS SYSTEM DEFINITION. 



V2 R3 CLOO 



LOC OBJECT CODE 



ADOR1 AD0R2 STMT SOURCE STATEMENT 
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121* 
122* 

♦ 
123 + 

♦ 
124* 

+ 
125* 
126 + 

+ 
127* 
128 + 
129* 

+ 
130+ 
131* 
132* 

♦ 
133* 
134* 
135* 
136 + 
137+ 

+ 

138 + 

139 + 
♦ 

140 + 

141 + 
+ 

142 + 

143 + 
+ 

144 + 
♦ 

145 + 
+ 

146 + 

147 + 
+ 

148 + 

149 + 

150 + 
+ 

151 + 

152 + 
153+ 

♦ 
154+ 
155 + 
156+ 
157 + 
158+ 
159 + 



PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



LKSIZE=605)t« 

II 

//SYSUT1 00 
00,50))' 

//SYSUT2 00 
00,50))' 

//SYSUT3 DO 

II 

//L EXEC 
LT,C),REGION=120 
//STEPLIB OD 
//SYSLIN DD 
//SYSPRINT 00 
LKSIZE=605),' 
II 

//SYSLMOD DO 
//SYSUT1 OD 
DELETE),' 
II 



ADD 
NUMBER 
PROC 
EXEC 



./ 
./ 
II 
IIC 

in 

//SYSLIB DD 

//SYSGO DD 
0O),RLSE),' 

II 

//SYSPRINT OD 
LKSIZE=605),« 

II 

//SYSUT1 DD 
00,50))' 

//SYSUT2 DO 
00,50))' 

//SYSUT3 DD 



SPACE*! 121, I 500, 500), RLSE,, ROUND)' 

UNI T=SYSDA,DISP*I, DELETE), SPACE=U700,C IX 

UNIT=SYSDA,DISP*C , DELETE) .SPACE* I 1700, J IX 

UNIT*(SYSDA,SEP*(SYSLIB,SYSUT1,SYSUT2)),X 

SPACE=(1700, ( 100,50) ) • 

PGM=DFSILNK0.PARH*"XREF,LIST",CONO=(0,X 

K' 

0SN=IMS2.RESLIB,DISP=SHR' 

DSN=*.C. SYSGO, DISP* IOLD, DELETE)' 

SYS0UT=C£S0UT,DCB-ILRECL*12l,RECFM-FBA,BX 

SPACE=I121,I 100, 100), RLSE)' 
DSN=IMS2.PSBLIBUCMBR),DISP*SHR' 
UNIT=ISYSDA, SEP- ( SYSLMOD, SYSL IN )),0ISP*iX 

SPACE*! 1024, ( 100,10) , RLSE) • 
NAME=DBDGEN' 

NEW1=10,1NCR=10' 
MBR=TEMPNAME.SOUT=A' 
PGM=IEUASM,REGI0N=120K,PARN="L0AD,N0DECX 

DSN=IMS2.MACLIB,0ISP=SHR' 
UNIT=SYSDA,DISP=(, PASS), SPACE* (80, (100, IX 

DCB=(BLKSIZE=400,RECFM*FB,LRECL=80)' 
SYS0UT=££S0UT,DCB=(LRECL=121,RECFM=FBM,BX 

SPACE* (121, (500, 500), RLSE,, ROUND)' 
UNIT=SYSDA, ISP* (, DELETE ), SPACE*! 1700, (IX 

UNI T=SYSDA,0 1 SP-(, DELETE), SPACE*( 1700, (IX 

UN I T= I SY SOA, SEP* ( SYSL I B , SYSUT 1 , SYSUT2 J ) , X 



// SPACE=(1700, (100,50))' 

III EXEC PGM=DFSILNK0,PARM="XREF,LIST",COND=(O,X 

LT,C),RfcGI0N=120K' 

//STEPLIB DD DSN=IMS2.RESLI8,DISP=SHR« 

DSN=*.C. SYSGO, DISP* (OLD, DELETE)' 
SYS0UT=££SOUT,DCB=(LRECL=121,RECFM=FBA,BX 



SPACE* (121, (100, 100), RLSE) • 

DSN=IMS2.DBDLIBI££MBR),DISP=SHR' 

UNI T=(SYSDA, SEP* (SYSLMOD, SYSL IN) ),DISP=(X 



//SYSLIN DO 
//SYSPRINT DD 
LKSIZE=605),' 
// 

//SYSLMOD OD 
//SYSUT1 00 
DELETE), • 

// SPACE=!1024, 1100, 10), RLSE)' 

./ AOO NAME=IMSC0B0L' 
./ NUMBER NEWl=10,INCR=10' 
// PROC MBR=,PAGES=60,S0UT=A' 
//C EXEC PGM=IKFCBL00,REGI0N=150K,' 
// PARM="SIZE=130K,BUF=10K,LINECNT=50' 
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V2 R3 CLOO 



LOG OBJECT CODE 



AUORl ADDR2 STMT SOURCE STATEMENT 
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160 + 


PUNCH 


//SYSLIN OD 


161 + 


PUNCH 


II 


162 + 


PUNCH 


II 


163 + 


PUNCH 


//SYSPRINT DD 


+ 




RECFM-FBA),' 


164 + 


PUNCH 


II 


♦ 


^ 


JO)' 


165 + 


PUNCH 


//SYSUT1 DD 


166 + 


PUNCH 


II 


167 + 


PUNCH 


//SYSUT2 DD 


168 + 


PUNCH 


II 


169 + 


PUNCH 


//SYSUT3 DD 


170 + 


PUNCH 


II 


171 + 


PUNCH 


//SYSUT4 OD 


172 + 


PUNCH 


II 


173 + 


PUNCH 


III EXEC 


+ 




LIST",' 


174+ 


PUNCH 


II 


175 + 


PUNCH 


//STEPLIB DD 


176 + 


PUNCH 


//SYSLIB DO 


177 + 


PUNCH 


// OD 


178 + 


PUNCH 


//RESL1B DD 


179 + 


PUNCH 


//SYSLIN OD 


+ 


( 


..SYSLIN 1 


180 + 


PUNCH 


// DD 


181 + 


PUNCH 


// DD 


182 + 


PUNCH 


//SYSLMOD DD 


183 + 


PUNCH 


//SYSPRINT DD 


♦ 


I 


.KSIZE=605),' 


184 + 


PUNCH 


II 


♦ 


^ 


<D)« 


185 + 


PUNCH 


//SYSUT1 DD 


+ 




DELETE),' 


186 + 


PUNCH 


II 


187 + 


PUNCH 


.1 ADD 


188 + 


PUNCH 


./ NUMB 


189 + 


PUNCH 


// PROC 


+ 




1UF=« 


190 + 


PUNCH 


IIC EXEC 


191 + 


PUNCH 


// 


192 + 


PUNCH 


//SYSLIN DD 


193 + 


PUNCH 


II 


194 + 


PUNCH 


II 


195 + 


PUNCH 


//SYSPRINT DO 


♦ 




RECFM=FBA),« 


196 + 


PUNCH 


II 


♦ 


^ 


JD)' 


197 + 


PUNCH 


//SYSUT1 DD 


198 + 


PUNCH 


II 


199 + 


PUNCH 


//SYSUT2 DD 


200 + 


PUNCH 


II 


201 + 


PUNCH 


//SYSUT3 DD 


202 + 


PUNCH 


II 


203 + 


PUNCH 


//SYSUT4 DD 


204 + 


PUNCH 


II 



DSN=££££LIN, 01 SP=( MOD, PASS). UNIT-SYSDA," 
DCB=(LRECL=80,RECFM=FB,BLKSIZE»400),' 
SPACE* (3520, 1 40 ■ 10), RLSEt, ROUND! • 
SYS0UT=££S0UT,DCB-(LRECL-12l,BLKSIZE»605X 

SPACE= 1605 , (££P AGES. 0, ££PAGES),RLSE, ,ROUX 

UNIT=SYSDA,D I SP=(, DELETE),' 

SP ACE- (3520, (100, 10), RLSE,, ROUND)' 

UNIT=SYSDA, DISP-(, DELETE), • 

SPACE* (3520,1 100,10) ,RLSE,, ROUND)" 

UNIT=SYSDA,DISP-l,DELETE),' 

SPACE-! 3520, ( 100, 10) , RLSE, , ROUND) • 

UNI T=SYSOA,D ISP- (, DELETE),' 

SPACE- (3520, (100, 10), RLSE,, ROUND)' 

PGM-DFS I LNKO, REGION- 120K,PARM="XREF,LETX 

C0ND=(4,LT,U" 

DSN=IHS2.RESLIB,DISP=SHR" 

DSN-SYS1.C0BLIB.DISP-SHR" 

DSN=SYS1.PL1LIB,0ISP»SHR" 

DSN=IMS2.RESLIB,DISP=SHR" 

DSN»££££L1N, 01 SP= (OLD, DELETE). VOL«REF»».X 

DSN=IMS2.PR0CLIB(CBLTDLI),DISP=SHR' 
DONAME-SYSIN' 

DSN=IMS2.PGML1B(££MBR),DISP-SHR' 
SYS0UT=t£S0UT,DCB»(RECFM=FBA,LRECL»121,BX 

SPACE=(605,(££PAGES.0,££PAGES),RLSE,,ROUX 

UNIT=(SYSOA,SEP-(SYSLMOO,SYSLIN)),DISP-(X 



SPACE-! 3520, (100, 10), RLSE,, ROUND)' 
NAME-IMSCOBGO' 
NUMBER NEH1-10, INCR-10' 

MBR-,PAGES=60,S0UT-A,PSB=,SPIE=0,TEST=0,X 



PGM=IKFCBL00,REGION=150K,« 

PARM-" SIZE-130K, BUF-10K.LINECNT-50' • ■ 

DSN=££££LIN,D ISP- (MOD, PASS) , UNIT-SYSDA, • 

OCB=(LRECL=80,RECFM=FB,BLKSIZE=400),' 

SPACE=( 3520, (40, 10), RLSE,, ROUND)' 

SYS0UT=££S0UT,DCB-(LRECL=121,BLKSIZE=605X 

SPACE- (605, (££P AGES. 0,££PAGES), RLSE,, ROUX 

UN IT-SYSDA.D ISP- (.DELETE),' 
SPACEM3520, ( 100,10) .RLSE, .ROUND) • 
UNI T=SYSDA,OISP= I, DELETE),' 
SPACE-J3520, ( 100, 10), RLSE, .ROUND)' 
UNIT-SYSDA, OISP=(, DELETE),' 
SPACE=( 3520, (100, 10), RLSE,, ROUND)' 
UNI T-SYSOA.D ISP- (.DELETE),' 
SPACE- (3520, (100, 10), RLSE,, ROUND)' 



3.207 



IMS SYSTEM DEFINITION. 



V2 R3 CLOO 



LOC OBJECT COOE 



AOOR1 ADOR2 



STMT 

205+ 
♦ 
206+ 
207* 
208 + 
209+ 
210 + 
211* 
♦ 

212 + 

213 + 
214+ 

215 + 
♦ 

216 + 
+ 

217+ 
+ 

218 + 

219 + 
+ 

220+ 

♦ 
221 + 
222* 
223+ 
224 + 
225+ 

♦ 
226+ 

♦ 
227* 

+ 
228 + 

+ 
229+ 

230 + 

231 + 

232 + 

233 + 

234 + 
+ 

235 + 

236 + 
237+ 

+ 

238 + 

239 + 
+ 

240+ 

241 + 
+ 

242 + 
243+ 



SOURCE STATEMENT 



PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 
PUNCH 



EXEC 



//L 
LIST",' 
II 

//STEPLIB 00 
//SYSLIB 00 
// DD 
//RESLIB DO 
//SYSLIN DO 
•SYSLIN' 
// DD 
// DD 
//SYSLMOO DD 
//SYSPRINT DD 

LKSIZE=605) ,• 
II 

ND)' 
//SYSUTl DD 
DELETE), • 
II 
//C EXEC 

LT)," 
II 



F010CT71 10/10/72 

PGM=OFSILNKO,REGION=120K,PARM="XREF,LETX 

C0ND=(4,LT,C)' 

DSN=IMS2.RESL1B,DISP=SHR' 

DSN=SYS1.C0BLIB,DISP=SHR' 

DSN=SYSI.PL1LIB,DISP=SHR« 

DSN=IMS2.RESLI8,DISP=SHR' 

DSN=££££L I N,DISP=IOLD, DELETE) ,VOL=REF=*.X 

DSN=IMS2.PR0CLIB(CBLTDLI),0ISP=SHR' 
DONAME=SYSIN• 

DSN=IMS2.PGMLIB(££MBR),D1SP=SHR' 
SYS0UT=££S0UT.DCB=(RECFM=FBA,LRECL=121,BX 

SPACE=(605,(££PAGES.0,£EPAGES) ,RLSE,,ROUX 

UNIT=JSYSDA,SEP=ISYSLHOD,SYSLIN)),DISP=«X 

SP ACE=( 3520, 1100, 10 ),RLSE,, ROUND! • 
PGM=DFSRRC00,REGI0N=150K,TIME=2,C0ND=(4,X 

PARM="DLI,££MBK,££PSB,££BUF,££SPIE££TESX 



//STEPLIB DD 
// DD 
//IMS OD 
// DD 



DSN=IMS2.RESLIB,DISP=SHR' 
DSN=IMS2.PGMLIB,DISP=SHR' 
DSN=IMS2.PSBLIB.DISP=SHR' 
DSN=IMS2.DBDLIB,DISP*SHR' 
//IEFRDER DD DSN=IMSLOG,DISP=I .KEEP) ,VOL=( , , , 991, UNI T=(X 
2400,, DEFER),' 

// DCB=(RECFM=VBS,BLKSIZE= 1408, LRECL= 1400, BUX 

FN0=1)« 

//SYSOUT DD SYS0UT=££S0UT,SPACE=(CYL,<1,U),DCB=(LREX 
CL=133,RECFM=FA)« 

//SYSUDUMP DD SYS0UT«££S0UT ,DCB= ILRECL=121,RECFM=FBA,BX 
LKSIZE=3025),' 
// SPACE=I3025, (200, 100), RLSE,, ROUND)" 

./ ADD NAME=IMSPLI« 
./ NUMBER NEW1=10,INCR=10' 
// PROC MBR=,PAGES=50.S0UT=A» 

PGM=IEMAA,REGI0N=114K, • 
PARM="XREF,ATR,L0AD,NODECK,N0MACRO,,0PTX 



EXEC 



IIC 
II 

//SYSUTl DD 
ND),' 

II 

//SYSUT3 DD 
NO),' 

II 

//SYSPRINT DD 

RECFM=V8A),' 

II 

//SYSLIN DO 
BLKSIZE=80,< 

II 

//L EXEC 



UNIT=SYSDA,SPACE=(1024,(60,60),RLSE,,ROUX 



DCB=BLKSIZE= 1024, 01 SP=I, DELETE)' 
UNIT=SYSDA,SPACE=I1024,(60,60),RLSE,,R0UX 



DCB«BLKSIZE= 1024, DISP=(, DELETE)' 
SYS0UT=££S0UT,DCB=CLRECL«125,BLKSIZE=629X 



SPACE=(605,(££PAGES.0t££PAGES),RLSEI' 
UNIT=SYSDA,SPACE=(80,(250,80),RLSE),0CB=X 



DISP=(,PASS)' 
PGM=DFS1LNK0,PARM=' 



■XREF .LIST, LET", CONDX 
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LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 
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244* 
245* 
246* 
247* 
248* 

249 + 

250 + 

251 + 
252* 
253* 

♦ 
254 + 
255+ 

♦ 
256+ 
257* 
258* 

+ 
259 + 
26J4- 



262 + 

263* 

♦ 

264* 

265 + 
+ 

266 + 
267* 

♦ 
268 + 
269* 

♦ 
270* 
271* 
272* 
273 + 
274+ 
275* 
276* 
277+ 
278 + 
279* 

+ 
280* 
281* 





=I4,LT,C),' 


PUNCH 


•// 


PUNCH 


•//STEPL1B DD 


PUNCH 


•//SYSLIB DD 


PUNCH 


•// DD 


PUNCH 


•//RESLIB DD 


PUNCH 


•//SYSLIN 00 


PUNCH 


•// DD 


PUNCH 


•// DD 


PUNCH 


•//SYSLMOD DD 


PUNCH 


■//SYSPR1NT DD 




LKSIZE-605),' 


PUNCH 


•// 


PUNCH 


•//SYSUT1 DD 




U.RLSE)' 


PUNCH 


•./ ADD 


PUNCH 


»./ NUMBER 


PUNCH 


•// PROC 




BUF = « 


PUNCH 


■//C EXEC 


PUNCH 


•// 
»im 

•//SYSUT1 DD 


PUNCH 




ND) ,• 


PUNCH 


•// 


PUNCH 


•//SYSUT3 DD 




NO), 1 


PUNCH 


•// 


PUNCH 


•//SYSPRINT DD 




,RECFH=VBA),« 


PUNCH 


•// 


PUNCH 


•//SYSLIN DD 




BLKSIZE-80,' 


PUNCH 


'// 


PUNCH 


•//L EXEC 




=(4,LT,C),« 


PUNCH 


•// 


PUNCH 


•//STEPLIB 00 


PUNCH 


•//SYSLIB DD 


PUNCH 


•// DD 


PUNCH 


•//RESLIB DD 


PUNCH 


•//SYSLIN 00 


PUNCH 


•// DD 


PUNCH 


•// 00 


PUNCH 


•//SYSLMOD DD 


PUNCH 


•//SYSPRINT DD 




LKSIZE-605),' 


PUNCH 


•// 


PUNCH 


•//SYSUT1 00 




1),RLSE)« 


PUNCH 


•//G EXEC 




LT) ,» 


PUNCH 


•// 
T" ' 
•//STEPLIB DD 


PUNCH 



REGION-120K' 

DSN=IMS2.RESLIB,DISP=SHR« 

DSN«SYS1.PL1L1B,DISP«SHR' 

DSN-SYS1.C0BLIB.DISP-SHR' 

DSN-IMS2.RESLIB.DISP-SHR' 

DSN=*.C.SYSLIN t I SP»I OLD, DELETE)" 

0SN-IMS2.PR0CLIB(PLITDLI),DISP»SHR« 

DDNAME=SYSIN« 

DSN-IMS2.PGMLIB(££MBR»,DISP»SHR' 

SYS0UT=££S0UT,DCB»(LRECL»121,RECFM»FBA,BX 

SPACE»I605,(££PAGES.0,££PAGES) ,RLSEI" 

UNI T-SYSDA.D ISP- I, DELETE), SPACE- (CYL,( 5, X 



NAME-IMSPLIGO' 

NEW1=10,INCR«10' 
MBR»,PAGES=50,SOUT= 



A,PSB«,SPIE-0,TEST=0,X 



PGM- I EMAA, REGION- U4K,« 
PARM«'»XREF,ATR,L0AD f N00ECK,N0HACRO,,OPTX 

UNIT=SYSDA,SPACE-(1024,(60,60),RLSE,,R0UX 

DCB-BLKS UE- 1024, DISP-I, DELETE)' 
UNIT=SYSDA,SPACE-(1024,(60,60),RLSE,,ROUX 

DCB-BLKS IZE= 1024, DISP»<, DELETE)' 
SYS0UT-££S0UT,DCB»«LRECL-125,BLKSIZE=629X 

SPACE=(605,I££PAGES.0,££PAGES),RLSE)' 
UNIT=SYSDA,SPACE-(80,(250,80),RLSE).DCB=X 

DISP-I, PASS)' 
PGM=DFSILNK0,PARM-"XREF,LIST,LET'«,C0NDX 

REGION-120K' 

DSN=IMS2.RESLIB,DISP=SHR« 

DSN=SYSI.PL1LIB,DISP=SHR' 

DSN-SYS1.C0BLIB.DISP-SHR' 

0SN=IMS2. RESLIB, D I SP-SHR' 

DSN«*.C.SYSL IN, DISP-IOLD, DELETE)' 

DSN=IMS2.PR0CLIB(PLIT0LI),DISP»SHR' 

ODNAME-SYSIN* 

DSN- I MS2.PGMLIBI££MBR),DI SP-SHR' 

SYSOUT=££SOUT,OCB=(LRECL=121,RECFM=FBA,BX 

SPACE=(605,U£PAGES.O,££PAGES),RLSE)' 

UNI T-SYSDA, DISP-I, DELETE), SPACE- I CYL,( 5, X 

PGM=DFSRRC0O,REGION=150K,TIME»5,COND=(4,X 

PARM="DLI,££MBR,££PSB,££BUF«££SPIE££TESX 

DSN=IMS2.RESLIB,0ISP»SHR• 
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285 + 
286+ 
287* 
288 + 
+ 
289* 



291* 

292 + 
♦ 

293 + 
294+ 
295* 
296* 

297 + 
+ 

298 + 

299 + 

300 + 

301 + 

302 + 

303 + 

304 + 

305 + 

306 + 

307 + 

308 + 

309 + 
♦ 

310+ 

311 + 

312 + 

313 + 

314 + 

315 + 
♦ 

316 + 
+ 

317 + 
+ 

318 + 

319 + 

320 + 

321 + 

322 + 

323 + 

324 + 
325+ 

326 + 
+ 

327 + 

328 + 

329 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 



PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 



// DO DSN=IMS2.PGMLIB,DISP=SHR« 

//IMS DD DSN=IMS2.PSBLIB,DISP=SHR« 

// DD DSN=IMS2.DBDLIB,DISP=SHR» 

//IEFRDER DD DSN=IMSLOG,DISP=( .KEEP) ,VOL={ , , ,99) ,UNIT«(X 
2400, .DEFER),' 

// DCB=(RECFM=VBS,BLKSIZE«1408,LRECL=1400,BUX 

FN0=1)« 

//SYSPRINT DO 

RECFM=FBA),> 

// 

//SYSUOUMP ,DD 

RECFM=FBA},'' 

// 

./ ADD 

./ 

// 



SYS0UT=££S0UT,DCB=(LRECL=12l,BLKSIZE=605X 

SPACE= (605, (500, 500 ),RLSE,, ROUND)' 
SYS0UT=££S0UT,DCB=(LRECL=121,BLKSIZE=605X 

SPACE=( 605 ,(500, 500), RLSE,, ROUND >• 
NAME=MFDBDUMP« 
NUMBER NEW1=10,INCR-10 • 
PROC SOUT=A« 

//DUMP EXEC PGM=DFSRRCOO,PARM=««OLI,DFSSAH08« , ,REGIOX 
l=130K« 

//steplib dd dsn=ims2.reslib,disp=shr» 

// dd dsn=ims2.pgmlib,disp*shr« 

//ims do dsn=ims2.ps6lib,disp=shr« 

// do dsn=ims2.dbdlib,disp»shr'> 

//sysuoump dd sysout=£gsout' 

//di21part dd dsn=ims2.di21part,disp=shr• 

//di21par0 00 dsn=ims2.di21par0,disp=shr« 

//output dd sys0ut=ccsout« 

./ add name=mfdbload» 

./ Number newi=io,incr=io' 

// proc sout=a» 

//load exec pgm=dfsrrcoo,parm= ,, oli,dfssam01 ,, ,regiox 

i=130K» 

//STEPLIB DO DSN=IMS2.RESLIB,0ISP=SHR« 
// DD DSN=IMS2.PGMLIB,DISP=SHR« 
//IMS DD DSN=IMS2.PSBUB,DISP=SHR' 
// DO DSN=IMS2.DBDLIB,DISP=SHR« 
//SYSUOUMP DO SYSOUT=£tSOUT' 

//DI21PART OD DSN=IMS2.DI21PART(PRIME) ,DISP=( ,KEEP),DCBX 
DSORG=IS, X« 

// SPACE=(CYL,3,,C0NTIG),V0L=SER=££PSER,UNIX 

=££PUNIT« 

//DI21PAR0 DO 0SN=IMS2.0I21PAR0,0ISP=(,KEEP),SPACE=(CYLX 
3,,C0NTIG), X« 

// VOL=SER=££OSER,UNIT=££OUNIT« 

//SYSOUT 00 SYSOUT=££SOUT« 

//INPUT OD DSN=IMS2.MACLIB(MF0FSYSN) ,DISP=SHR« 
./ AOD NAME=IMSRDR' 
./ NUMBER NEW1=10,INCR=10« 
// PROC MBR=IMSMSG' 

//IEFPROC EXEC PGM=IEFIRC, READER FIRST LOAD" 

// REG[0N=48K, REAOER BASIC REGION* 

// PARM= , «00103005001024905210SYSDA ■• X 

OEFAULT PARM FLD« 
//* BPPTTTOOOMMHIIICCCRLSSSSSSSS* 

//*• 
//* B DEFINED PROGRAMMER NAME ££ ACCX 
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330+ 

331 + 

332 + 
♦ 

333* 

+ 
334* 

♦ 
335+ 
336 + 
337* 
338 + 
339+ 
340 + 

♦ 
341* 

♦ 
342* 
343* 



345+ 

346* 
347* 
348* 

349 + 

350 + 

351 + 

352 + 

353 + 
♦ 

354 + 

355 + 



357+ 

♦ 

358* 

359 + 

360 + 

361 + 

362 + 

363 + 

364 + 

365 + 

366 + 

367 + 

368 + 

369 + 

370 + 

371 + 



PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 

PUNCH 
PUNCH 



PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



T NBR NOT NEEDED* 
II* 
II* 
II* 



II* MMM 

KS' 

II* III 

PRI0RITY=249' 

//* CCC 

//* R 

II* L 

//* SSSSSSSS 

//*• 

//IEFRDER DD DSN=IMS2.PR0CLIB(C£MBR) ,DISP»SHR,DCB»BUFNOX 

!■ 

//IEFPDSI DD DSN=IMS2.PR0CLIB,D1SP»SHR PROCEDURE X 
LIBRARY' 

// DD 

//IEFOATA DO 

DEVICE* 

// 



PP PRI0RITY=01' 

TTT JOB STEP INTERVAL»30 MINUTES' 

000 PRIMARY SYSOUT SPACE«50 TRACKSX 



SECONDARY SYSOUT SPACE-10 TRACX 

READER/INTERPRETER DISPATCHINGX 

JOB STEP DEFAULT REGION»52K' 
DISPLAY tt EXECUTE C0MMANDS=1' 
BYPASS LABEL-O' 
SYSOUT UNIT NAME»SYSDA« 



DSN=SYS1.PR0CLIB,DISP»SHR« 

UNIT-SYSDA, SPOOLX 

SPACE=(80,(500i500),RLSE,CONTIG>, AMOUNX 

DCB=IBUFNO=2,LRECL»80,BLKSIZE=80,RECFM=FX 



// 

,8UFL=80)' 
./ ENDUP' 
/*' 

//STEP3 EXEC PGM=IEUASM,REG10N»96K,' 
// PARM="LOAD,N0DECK'" 
//SYSL18 DD DSN=IMS2.GENLIB,DISP=SHR' 
// DD DSN=SYS1.MACLIB,0ISP=SHR' 
//SYSGO UD DSN=IMS2.0BJDSET(DFSBBLKO),DISP=OLD' 
//SYSPRINT DD SYSOUT=A, DCB»(RECFM=FBM,LRECL»121 , BLKS IZEX 
605), • 

// SPACE=(605,{ 100, 50), RLSE. .ROUND)' 

//SYSUT1 DD UNIT=SYSDA,DISP=l, DELETE), SPACE=(1700, (400, X 
100))' 3401+4860 

//SYSUT2 DO UNIT=SYSDA,DISP=(, DELETE), SPACE»(1700, (400, X 
100))' 3401+4860 
//SYSUT3 DD UNIT«(SYSDA,SEP=(SYSLIB,SYSUT1,SYSUT2)),DISX 
=(, DELETE),' 

// SPACE=(1700, (400, 1001) • 3401+4860 
//SYSIN DD *• 

PRINT OFF' 

DFSPSBD DUMMY, 2018,0' 

SPACE 3' 

SPACE 3' 
IMSBATCH CENDA=Z9Z8,SVCN0= (253,254,255)' 
DFSIPST REGI0NS=1' 

TITLE "DFSI0S40 - OSAM IOB.'" 
DFSI010B NUMIOB-1' 
DFSAVARA 1 ,SECTYPE=CSECT' 

TITLE "DFSIWAIT - BATCH IWAIT ROUTINE.'" 
DFSIHAIT CSECT' 
#***■ 
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372 + 
373* 

374 + 
375* 
376 + 
377+ 

375 + 
379+ 

380 + 

381 + 

382 + 

383 + 

384 + 
385+ 
386 + 
387+ 
388 + 
389+ 

390 + 

391 + 
♦ 

392 + 

393 + 

394 + 
♦ 

395 + 

396 + 
397+ 

398 + 

399 + 

400 + 

401 + 

402 + 

403 + 
♦ 

404 + 

405 + 



407 + 
♦ 

408 + 

409 + 

410 + 

411 + 

412 + 
♦ 

413 + 
414+ 

415 + 

416 + 

417 + 

418 + 

419 + 



PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 

PUNCH 

PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 

PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 
PUNCH 



IHAIT ROUTINE 1 

THIS CODE PUTS THE BATCH TASK" 
INTO OS WAIT FOR THE DURATION' 
OF AN I/O OPERATION.' 

ASSUMES UPON ENTRY:' 



Rl 
R13 



PST ADDR' 

SAVE AREA ADDR' 



I SCO 


SECTYPE=CSECT' 


ORG 


SCDDBFPL' 


DC 


F"7168" 



SPACE 3' 

SAVE (14,12),,DFSIWAIT* 

L 13,81, 13)' 

WAIT ECB*(1)' 

L 13,41,13)' 

RETURN (14,12)' 

TITLE "DFSISCD - SYSTEM CONTENTS DIRECTORY (SX 



DEFAULT BUFFER POOL SIZEX 



END' 

/*• 

//STEP4 EXEC PGN»IEUASM,REGI0N=96K,« 

// PARM="LOAD,N0DECK"« 

//SYSLIB DD DSN=IMS2.GENLIB,DISP«SHR« 

// DD DSN-SYSl.MACLIB,DISP«SHR' 

//SYSGO DD DSN=IMS2.OBJOSET(DFSVC000),DISP»OLO' 

//SYSPRINT DD SYSOUT«=A, DCB» (RECFH»FBM,LRECL»121,BLKSIZEX 

605), • 

// SPACE=( 605,1 100, 50), RLSE,, ROUND)' 

//SYSUTl DD UNIT-SYSOA,OISP«(, DELETE), SPACE-I1700, 1400, X 
100))' 3401+4860 

//SYSUT2 DD UNIT»SYSDA,DISP=»(, DELETE J. SPACE»(1700, (400, X 
100))' 3401+4860 

//SYSUT3 DD UNIT«(SYSDA,SEP-(SYSL1B, SYSUTl, SYSUT2) ) ,DI SX 

«(, DELETE),' 

// SPACE=(1700, 1400, 100)) • 3401+4660 

//SYSIN DD *■ 

PRINT OFF' 

DFSVCOOO CSECT' 

OFSVCS SSCD SECTYPE>CSECT,SVC"(253,254,,255),0CEP*Z9X 
Z8,0SPS=10, CONTINUE' 

ROUTCDE*,DESC=' 
END' 

/*• 

//IMSGEN2 JOB MSGLE VEL=1,MSGCLASS»A,CLASS«A« 

//STEP1 EXEC PGM=IEWL,' 

// REGI0N=130K,« 

// PARM= "RENT, REFR.NCAL, LET,,'" 
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421* 


PUNCH • 


422 + 


PUNCH • 


423* 


PUNCH • 


424* 


PUNCH • 


425* 


PUNCH • 


426* 
427+ 


PUNCH • 


PUNCH ■ 


428 + 


PUNCH • 


429+ 


PUNCH ■ 


430 + 


PUNCH • 


431 + 


PUNCH • 


432 + 


PUNCH ■ 


433+ 


PUNCH • 


434 + 


PUNCH • 


435* 


PUNCH • 


436+ 


PUNCH ■ 


437* 


PUNCH ■ 


438* 


PUNCH • 


439+ 


PUNCH « 


440+ 


PUNCH • 


441 + 


PUNCH • 


442* 


PUNCH • 


443* 


PUNCH • 


444* 


PUNCH • 


445* 


PUNCH • 


446* 


PUNCH • 


447+ 


PUNCH • 


448 + 


PUNCH • 


449 + 


PUNCH • 


450 + 


PUNCH • 


451* 


PUNCH • 


452 + 


PUNCH • 


453 + 


PUNCH • 


454 + 


PUNCH < 


455 + 


PUNCH • 


456* 


PUNCH • 


457* 


PUNCH • 


458* 


PUNCH • 


459 + 


PUNCH • 


460 + 


PUNCH • 


461 + 


PUNCH • 


462 + 


PUNCH • 


463 + 


PUNCH • 


464 + 


PUNCH " 


465 + 


PUNCH • 


466 + 


PUNCH • 


467 + 


PUNCH • 


468 + 


PUNCH • 


469 + 


PUNCH • 


470 + 


PUNCH • 


471 + 


PUNCH • 


472 + 


PUNCH • 



•//SYSPRINT 00 SYSOUT=A,DCB= 
=6051," 
// SPACE=I605,( 10,10), RLSE, 
//SYSOBJ 00 0SN=IMS2.O8JDSE 
//LOAD DD DSN-IMS2.L0AD.DIS 
//USERLIB 00 DSN=IMS2.RESLI 
//SYSLMOO OD DSN-IMS2.RESLI 
//SYSUT1 DD UNIT=ISYSDA,SEP 
,(10,1))* 
//SYSLIN OD *• 

CHANGE DFSVC400IIGC0025E) 

INCLUDE LOADIDFSVC400)' 

NAME IGC0025ECR) 

CHANGE OFSVC410UGC0125EI 

INCLUDE LOADIDFSVC410)' 

NAME IGC0125EIR) 

CHANGE DFSVC420(IGC0225EI 

INCLUDE LOADtDFSVC420)« 

NAME IGC0225EIR) 

CHANGE DFSVC430C IGC0325E) 

INCLUDE LOADIDFSVC430)' 

NAME 1GC0325EIR) 

CHANGE DFSA0SA0IIGC0425E) 

INCLUDE LOADIDFSAOSAO)' 

NAME IGC0425EIR) 

CHANGE DFSAOSB01IGC0525EI 

INCLUDE LOADIDFSAOSBO)" 

NAME IGC0525E(R) 

CHANGE 0FSAOSC0I1GCO625EI 

INCLUDE LOADIOFSAOSCO)' 

NAME IGC0625EIR) 

CHANGE DFSAOSD0IIGCO725E) 

INCLUDE LOAO(OFSAOSOO) 1 

NAME IGC0725EIR) 

CHANGE DFS1CSCUIIGC1025E) 

INCLUDE LOADIDFSICSCO)' 

NAME IGC1025EIR) 

CHANGE DFSVCIO0IIGC1125E1 

INCLUDE LOADCDFSVCI001* 

NAME IGC1125EIR) 

CHANGE DFSVC440UGC1325E1 

INCLUDE LOADIDFSVC440)' 

NAME IGC1325ECR) 

CHANGE DFSAOCEOIIGG019Z9) 

INCLUDE LOADIDFSAOCEO)' 

NAME IGG01929IR) 

INCLUDE LOA01DFSAOS10)' 

NAME DFSA0S101R) 

INCLUDE LOADIDFSA0S20) ■ 

NAME DFSAOS20(R) 

INCLUDE LOADIDFSAOS30)' 

NAME DFSA0S301RI 

INCLUDE LOADIDFSAOS50)' 

NAME 0FSAOS5O(R) 

INCLUDE LOAOIOFSDISMO)* 



(RECFM=FBA,LRECL=12l,BLKSIZEX 

.ROUND) 1 
T,DISP=SHR« 
P=SHR« 
B.DISP-SHR' 
B,DISP=0LD« 
(SYSLMOD, SYSOBJ) ) ,SPACE*ICYX 



TYPE 4 SVCUOAD 0)' 

TYPE 4 SVCILOAD 1)« 

TYPE 4 SVCILOAD 2)« 

TYPE 4 SVCtLOAO 3)» 

TYPE 4 SVCILOAD 4)« 

TYPE 4 SVCILOAD 5)« 

TYPE 4 SVCtLOAO 6M 

TYPE 4 SVCILOAD 7)« 

TYPE 4 SVCILOAD 10)' 

TYPE 4 SVCILOAD 11)' 

TYPE 4 SVCILOAD 13)» 

SAM CHAN. END APPENDAGE 1 
OSAM OPEN INTERFACE* 
OSAM READ/WRITE" 
OSAM CHECK' 
OSAM COMMON SUBROUTINES' 
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AODR1 A00R2 STMT SOURCE STATEMENT 



473 + 


PUNCH • 


474 + 


PUNCH • 


475 + 


PUNCH • 


476 + 


PUNCH • 


477 + 


PUNCH • 


478 + 


PUNCH • 


479 + 


PUNCH • 


480+ 


PUNCH ■ 


481 + 


PUNCH • 


482 + 


PUNCH • 


483 + 


PUNCH • 


484 + 


PUNCH • 


485 + 


PUNCH • 


486+ 


PUNCH ■ 


487 + 


PUNCH • 


488* 


PUNCH ■ 


489 + 


PUNCH • 


490 + 


PUNCH • 


491 + 


PUNCH • 


492 + 


PUNCH ■ 


493 + 


PUNCH • 


494 + 


PUNCH ' 


495 + 


PUNCH • 


496 + 


PUNCH • 


497 + 


PUNCH • 


498 + 


PUNCH • 


499 + 


PUNCH ■ 


500 + 


PUNCH ■ 


. 501 + 


PUNCH • 


502 + 


PUNCH • 


503 + 


PUNCH ' 


504 + 


PUNCH • 


505 + 


PUNCH • 


506 + 


PUNCH • 


507 + 


PUNCH • 


508 + 


PUNCH • 


509 + 


PUNCH • 


510 + 


PUNCH • 


511 + 


PUNCH • 


512 + 


PUNCH • 


513 + 


PUNCH • 


514 + 


PUNCH ■ 


515 + 


PUNCH • 


516+ 


PUNCH • 


517 + 


PUNCH • 


518 + 


PUNCH • 


519 + 


PUNCH • 


520 + 


PUNCH • 


521 + 


PUNCH • 


522+ 


PUNCH • 


523 + 


PUNCH ■ 


524 + 


PUNCH • 


525 + 


PUNCH • 


526 + 


PUNCH • 


527 + 


PUNCH • 



NAME DFSOISMOIR) 
INCLUDE LOADIDFSDLAOO)' 
INCLUDE L0AD(DFSDLA30)' 
ENTRY DFSSTART* 
NAME DFSDLAOO(R) 
INCLUDE LOAOIDFSDLOOOJ* 
NAME DFSDLDOOIR) 
INCLUDE LOAD(DFSOLOCO)* 
NAME DFSDLOCO(R) 
INCLUDE LOAD(DFSDLROO)' 
NAME DFSDLROO(R) 
INCLUDE LOAD(DFSODLEO)* 
ALIAS DFSDDLIO* 
NAME DFSDDLEO(R) 
INCLUDE LOAD(DFSDXMTO)* 
NAME DFSDXMTO(R) 
INCLUDE LOAD(DFSDDBHO)* 
INCLUDE LOADIDFSDCSPO)* 
INCLUDE LOAOIDFSGNSRO)' 
INCLUDE LOAD(DFSFNDSO)' 
INCLUDE LOADIDFSRCHOO)' 
INCLUDE LOAD(DFSBFWRO)" 
INCLUDE LOADIDFSDCVTOJ* 
INCLUDE LOAD(DFSDBHRO)' 
NAME DFSDBHOOIRJ 
INCLUDE LOAD(DFSGGSPO) 
INCLUDE LOADIOFSLLCLO) 
INCLUDE LOADIDFSMMLCO) 
INCLUDE LOAD(DFSMMUDO) 
INCLUDE LOAD(DFSRRHMO) 
INCLUDE LOADIDFSRRHPO) 
INCLUDE LOAD(DFSOHDOO)' 
INCLUDE LOADIDFSRCHBOJ' 
INCLUDE LOAD(DFSFRSPO) 1 
ENTRY DFSDHDSO • 
NAME DFSOHDSO(R) 
INCLUDE LOADIOFSRRCOO)" 
NAME DFSRRCOO(R) 
INCLUOE L0AD(DFSPCC30)' 
ENTRY PCSTART* 
NAME OFSPCC30JR) 
INCLUDE LOADIDFSPROOOJ 1 
ALIAS DFSIPRXX' 
NAME OFSPROOO(R) 
INCLUDE LOADIDFSRRAOOJ < 
NAME DFSRRAOO(R) 
INCLUDE L0ADIDFSRRA10) ' 
NAME DFSRRAIO(R)* 
INCLUDE L0AD(DFSRRA20J' 
NAME DFSRRA20IR)* 
INCLUDE L0AD(DFSRRA50)' 
NAME DFSRRA50(R)' 
INCLUDE LOADCDFSRDBLO)' 
NAME DFSRDBLO(R) 
INCLUDE LOAD(OFSILNKO)' 



F010CT71 10/10/72 
DL/I ISAM SIMULATOR* 

DL/I ANALYZER" 

OL/I DELETE/REPLACE" 

OL/I OPEN/CLOSE' 

DL/I RETRIEVE' 

DL/I INSERT' 

DL/I INDEX MAINTENANCE* 



DL/I BUFFER HANDLER* 



DL/I SPACE MANAGEMENT* 
REGION CONTROLLOR' 

BATCH PROGRAM CONTROLLER* 

PROG. REQUEST HANDLER* 
REGION PARM ANALYZER* 



OATABASE LOGGER* 
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528 + 


PUNCH • 


529* 


PUNCH ■ 


530 + 


PUNCH ' 


531* 


PUNCH • 


532 + 


PUNCH • 


533 + 


PUNCH • 


534 + 


PUNCH ■ 


53b* 

+ 
536* 


PUNCH • 


PUNCH ■ 


537 + 


PUNCH • 


538 + 


PUNCH ■ 


539 + 


PUNCH • 


540 + 


PUNCH • 


541 + 
♦ 

542 + 


PUNCH • 


PUNCH • 


543 + 
+ 

544 + 


PUNCH • 


PUNCH • 


545 + 


PUNCH • 


546 + 


PUNCH • 


547 + 


PUNCH ■ 


548 + 


PUNCH • 


549 + 


PUNCH • 


550 + 


PUNCH ■ 


551 + 


PUNCH • 


552 + 


PUNCH • 


553 + 


PUNCH • 


554 + 


PUNCH • 


555 + 


PUNCH • 


556 + 


PUNCH • 


557 + 


PUNCH ■ 


558 + 


PUNCH • 


559 + 


PUNCH • 


560 + 


PUNCH • 


561 + 


PUNCH • 


562 + 


PUNCH • 


563 + 


PUNCH • 


564 + 


PUNCH • 


565 + 


PUNCH • 


566+ 


PUNCH ■ 


567 + 


PUNCH ■ 


568 + 


PUNCH • 


569 + 


PUNCH • 


570 + 


PUNCH • 


571 + 


PUNCH • 


572 + 


PUNCH • 


573+ 


PUNCH • 


574+ 


PUNCH • 


575 + 


PUNCH • 


576+ 


PUNCH • 


577 + 


PUNCH • 


578* 


PUNCH ■ 


579 + 


PUNCH ' 



NAME DFSILNKOIRJ 

INCLUDE SYSOBJ(DFSVCOOO)* 

NAME OFSVCOOO(R) 



LINKAGE EDITOR INTERFACE* 
SECONDARY SCD MODULE' 



/*• 

//STEP2 EXEC PGM-IEWL,' 
// REGION=130K,* 
// PARM***NCAL, LET, REUS,,"* 

//SYSPRINT DD SYSOUT»A,DCB= <RECFM»FBA,LRECL»121,BLKS IZEX 
605), • 

// SPACE=I605,(10,10),RLSE, .ROUND) 1 
//SYSOBJ DD DSN=IMS2.0BJDSET,D1SP=SHR* 
//LOAD DD DSN=IMS2.L0AD,DISP=SHR* 
//USERLIB DD DSN=IMS2.RESLIB,DI SP=SHR* 
//SYSLMOD DD DSN-I MS2.RESL I B, DISP'OLD' 

//SYSUT1 DO UNlT=(SYSDA,SEP»(SYSLHOD, SYSOBJ)), SPACE-ICYX 
L.UO.l))* 
//SYSLIN DD *• 

INCLUDE SYSOBJ(DFSBBLKO) BATCH CONTROL BLOCKS. X 



INCLUOE LOAD(DFSBINTO)* 
INCLUDE LOAD(DFSBLOIO) 
INCLUDE LOAD(DFSFLOGO) 
ENTRY DFSBNUC* 
NAME DFSBNUCQ(R) 
INCLUDE LOADIDFSISTOO)* 
INCLUDE LOADIDFS1STU0)* 
ENTRY DFSISTOO* 
NAME DFSISTOO(R) 
INCLUDE LOAD(DFSLIOOO)* 
ALIAS PLITDLI* 
ALIAS DFSPLI* 
ALIAS CBLTDL1* 
ALIAS DFSCOBOL* 
ALIAS ASMTDLl* 
ALIAS DFSASM* 
ALIAS FORTDLl* 
ALIAS DFSFOR' 
NAME DFSLIOOO(R) 
INCLUDE LOAD(DFSDLBLO)* 
INCLUDE LOAD(DFSLIOOO)' 
NAME DFSOLBLO(R) 
INCLUDE LOADIOFSPRRCO)' 
NAME DFSPRRCO(R)' 
INCLUDE LOADIDFSPRPXOI* 
NAME DFSPRPXO(R)* 
INCLUDE LOAD(DFSPRPLO) 1 
NAME DFSPRPLOIR)* 
INCLUDE LOAD(DFSPRRGO)' 
NAME DFSPRRGO(R) 1 
INCLUDE LOAD(DFSFLOSO)' 
NAME DFSFLOSOIR) 
INCLUDE LOADIDFSDSEHO)' 
NAME DFSDSEHO(R) 



BATCH INTERFACE SIMULATOR* 
BATCH LOG RECORDER* 
LOG WRITER* 

BATCH NUCLEUS' 



STATISTICS 0* 



DL/1 LANGUAGE INTERFACE* 



DL/I BLOCK BUILDER* 



STAE EXIT ROUTINE* 



PREFIX RESOLUTION ROUTINE* 



//IMSGEN3 JOB MSGLEVEL=»1,MSGCLASS»A,CLASS=A* 
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IMS SYSTEM DEFINITION. 



V2 R3 CLOO 



LOC OBJECT CODE 



AODR1 AODR2 STMT SOURCE STATEMENT 



F010CT71 10/10/72 



580 + 


PUNCH « 


581 + 


PUNCH • 


582 + 


PUNCH • 


583 + 
♦ 

584 + 


PUNCH • 


PUNCH • 


585 + 


PUNCH ' 


586 + 


PUNCH • 


587 + 


PUNCH • 


588+ . 


PUNCH • 


589+ 

♦ 

590* 


PUNCH • 


PUNCH • 


591 + 


PUNCH • 


592 + 


PUNCH • 


593 + 


PUNCH • 


594 + 


PUNCH • 


595+ 


PUNCH • 


596+ 


PUNCH • 


597+ 


PUNCH • 


598 + 


PUNCH • 


599+ 


PUNCH ■ 


600 + 


PUNCH « 


601 + 


PUNCH • 


602 + 

♦ 

603 + 


PUNCH • 


PUNCH • 


604 + 


PUNCH • 


605+ 


PUNCH • 


606 + 


PUNCH • 


607 + 


PUNCH • 


608 + 


PUNCH • 


609 + 


PUNCH • 


610 + 


PUNCH • 


611 + 


PUNCH • 


612 + 


PUNCH • 


613 + 


PUNCH • 


614 + 


PUNCH • 


615 + 


PUNCH • 


616 + 


PUNCH • 


617 + 


PUNCH • 


618 + 


PUNCH • 


619 + 


PUNCH • 


620 + 


PUNCH • 


621 + 


PUNCH • 


622 + 


PUNCH • 


623+ 


PUNCH • 


624 + 


PUNCH • 


62 5+ 


PUNCH • 


626 + 


PUNCH • 


62 7+ 


PUNCH • 


628 + 


PUNCH • 


629 + 


PUNCH ' 


630 + 


PUNCH • 



2589 

STAE WKAREA MODULE' 



DL/I INITIALIZATION 1 



OL/I UTILITY INTERFACEt PX 



DL/I UTILITY INTERFACEt AX 



//STEP1 EXEC PGM=IEWL.' 
// REGI0N=130K,' 
// PARM="OVLY,NCAL,LET t ," ■ 

//SYSPRINT DO SYS0UT=A,DCB=IRECFM=FBA,LRECL=121,BLKSIZEX 
=605),' 
// SPACE=(605,(10tlO) t RLSE, ,RUUND)' 
//SYSOBJ DD 0SN=IMS2.OBJDSET,DISP=SHR' 
//LOAD UD 0SN=IMS2.LOAD t DISP=SHR' 
//USERLIB DO DSN=IMS2.RESLIB,DISP=SHR' 
//SYSLMOO DD DSN=IMS2.RESL1 B,DISP=0LD' 

//SYSUT1 DD UNIT=(SYSDA,SEP=!SYSLMOD,SYSOBJI)tSPACE=(CYX 
t(10,l)t< 
//SYSLIN DD *• 

INCLUOt LOAD(OFSFSWAO)' 

NAME DFSFSWAOCR) 

INCLUDE LOADIOFSDLNOO)' 

INCLUDE LOAD(DFSIINLO)' 

INCLUDE LOAD(DFSIINIO)' 

INCLUOE LOADI0FSIIN20)" 

INCLUDE LOAD(DFSDBPIO)' 

NAME DFSDLBNO(R) 

INCLUDE LOADIDFSDPSBOJ" 

NAME DFSDPSBOIRJ 
SB GENERATOR' 

INCLUDE LOAD(DFSDAPLO)' 

NAME DFSDAPLO(R) 
UTH PGM LIST' 

INCLUOE LOAD(DFSUCMNO)' 

INCLUDE LOADIOFSUCCTO)' 

INCLUDE LOADIDFSUC150J" 

INCLUOE L0ADIDFSUC350)' 

INCLUDE LOAD(DFSUCERO)' 

INCLUDE LOADIDFSCUMMO)' 

INCLUDE SYSOBJIDFSVCOOO)' 

NAME DFSUCUMO(R)' 

INCLUOE LOADIDFSUDMPO)' 

INCLUOE LOAD(DFSDMPMO)' 

INCLUDE SYSOBJIDFSVCOOO)' 

NAME OFSUOMPO(R) 

INCLUDE LOADIOFSUACBOt' 

INCLUOE LOAD(DFSUSCHO)' 

INCLUDE LOAD(DFSUMGTO)' 

INCLUDE L0A01DFSUMSG0)' 

INCLUDE LOADIDFSUSRCO)' 

INCLUDE LOAD(DFSUAMBO)' 

ENTRY DFSUACBO' 

NAME DFSUACBO(R) 

INCLUDE LOAD(OFSLBLMO) • 

NAME DFSLBLMOIR) BLOCK BUILDER MSG ROUTER 

INCLUOE LOAOIDFSURULO)' 

INCLUDE L0AD1DFSA0S10)' 

INCLUDE LOAD(OFSRULMO)' 

INCLUDE SYSOBJIDFSVCOOO) 1 

NAME DFSURULO(R) HISAM REORG UNLOAD' 

INCLUOE LOAD(DFSURRLO)' 



IMAGE DUMP' 



ACBLIB UTILITY 
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LOC OBJECT COOb 



ADDR1 ADDR2 STHT SOURCE STATEMENT 
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631 + 


PUNCH ■ 


632* 


PUNCH • 


633* 


PUNCH • 


634+ 


PUNCH • 


635 + 


PUNCH • 


636+ 


PUNCH • 


637 + 


PUNCH • 


038* 


PUNCH • 


639 + 


PUNCH • 


640* 


PUNCH • 


641 + 


PUNCH • 


642* 


PUNCH • 


643 + 


PUNCH • 


644* 


PUNCH • 


645 + 


PUNCH • 


646+ 


PUNCH • 


647* 


PUNCH • 


648* 


PUNCH • 


649* 


PUNCH • 


650* 


PUNCH ■ 


651 + 


PUNCH • 


652* 


PUNCH • 


653 + 


PUNCH • 


654+ 


PUNCH ■ 


655 + 


PUNCH • 


656+ 


PUNCH • 


657 + 


PUNCH • 


658+ 


PUNCH • 


659 + 


PUNCH • 


660 + 


PUNCH • 


661 + 


PUNCH • 


662 + 


PUNCH » 


663 + 


PUNCH • 


664 + 


PUNCH ■ 


665 + 


PUNCH • 


666 + 


PUNCH • 


667 + 


PUNCH • 


668 + 


PUNCH • 


669 + 


PUNCH ' 


670 + 


PUNCH • 


671 + 


PUNCH • 


672 + 


PUNCH ■ 


673 + 


PUNCH • 


674 + 


PUNCH • 


675 + 


PUNCH • 


676+ 


PUNCH • 


677 + 


PUNCH • 


678+ 


PUNCH • 


679 + 


PUNCH • 


680+ 

♦ 

681 + 


PUNCH • 


PUNCH • 


682 + 


PUNCH • 


683 + 


PUNCH • 


684 + 


PUNCH • 



INCLUDE LOAOIDFSRRLMO)' 
INCLUDE SYSOBJIDFSVCOOO 
NAME DFSURRLO(R) 
INCLUDE LOAD(DFSURDBO)' 
INCLUDE L0ADIDFSRD8M0)* 
INCLUDE SYSOBJIDFSVCOOO 
NAME DFSURDBO(R) 
INCLUDE LOAD1DFSBIND0)' 
INCLUDE LOADIDFSDBLMO)* 
INCLUDE LOADIOFSDBLDOJ' 
INCLUDE LOADIDFSDBLPO)* 
INCLUDE LOAD(DFSDBLRO)' 
ENTRY DFSBINDO* 
NAME DFSBBLOO(R) 
INCLUDE LOAD(DFSURGUO) 1 
INCLUDE LOAD! DFSL 1000 )• 
INCLUDE LOADIDFSRGUMO)* 
INCLUDE SYSOBJIDFSVCOOO 
NAME DFSURGUOIR) 
INCLUDE LOADIDFSURGLO)* 
INCLUOE L0ADIDFSUEX10) 1 
INCLUOE LOADIDFSLIOOOI* 
INCLUDE LOAOIDFSRGLMO)* 
INCLUDE SYSOBJIDFSVCOOO 
NAME DFSURGLOIR) 
INCLUOE LOADIDFSURGPO)* 
INCLUDE LOADIDFSLIOOOI* 
INCLUOE SYSOBJIDFSVCOOO 
INCLUDE LOADIDFSURGMO)* 
NAME DFSURGPOIR) 
INCLUOE L0ADIDFSURG10)* 
INCLUDE LOADIDFSLIOOOI* 
INCLUOE SYSOBJIDFSVCOOO 
INCLUOE LOADIDFSURGMO)* 
NAME DFSURG10IR) 
INCLUDE LOAOIDFSURGSO)* 
INCLUOE LOADIDFSDSEHOI* 
INCLUDE LOADIOFSLIOOO)" 
INCLUOE SYSOBJIDFSVCOOO 
INCLUOE LOADIDFSURGMOJ' 
NAME DFSURGSOIR) 
INCLUDE LOADIDFSURPRO)* 
INCLUDE SYSOBJIDFSVCOOO 
INCLUDE LOADIDFSURGMO I* 
NAME DFSURPROIR) 
INCLUDE L0A0IOFSERA101' 
NAME DFSEKA10IR) 
INCLUDE LOADIDFSFLBDO)' 
ENTRY DFSFLB01* 
NAME DFSFLBDOIR) 

INCLUDE LOADIOFSFLOTOI* 
INCLUOE LOADIDFSFLMTO)* 
INCLUOE SYSOBJIDFSVCOOO)' 
ENTRY DFSFLOTO* 



HISAM REORG RE-LOAD* 



DATABASE RECOVERY* 



BATCH ACB BLOCKS LOADER* 



HDAH REORG UNLOAD* 



HDAM REORG RE-LOAD* 



REORG PREFIX UPDATE* 



REORG SORT 1* 



REORG SCAN* 



PRE-REORG/LOAD* 



LOG PRINT SERVICE AID. 
V954 



STAND-ALONE LOG TERMINATORX 



1.1b SYSTEM DEFINITION. 



V2 RJ CLOO 14N0V72 



PAGE 



17 



LUC UUJECT uU!JE 



ADJR1 ADDK2 STMT SUUKCE STATEMENT 



ob5 + 


PUNCH * 


6d6 + 


PUNCH • 


6(17 + 


PUNCH • 


u au+ 


PUNCH ' 


ob</ + 


PUNCH ' 


o90 + 


PUNCH ' 


691 + 


PUNCH • 


6 92 + 


PUNCH • 


69j + 


PUNCH ' 


694 + 


PUNCH • 


o9i + 


PUNCH • 


o96 + 


PUNCH ■ 


697 + 


PUNCH ' 


o9« + 


PUNCH • 


699 + 


PUNCH ' 


70J + 


PUNCH ' 


7J1 + 


PUNCH ' 


702 + 


PUNCH • 


701 + 


PUNCH • 


704 + 


PUNCH * 



NAME DFSFLUTO(R) 
INCLUDE LOADIDFSI 
NAME OFSISTIO(K) 
INCLUUfc LOADIDFSI 
NAME DFSISI20IK) 
INCLUDE LOADIDFSI 
NAME 0FSIST30IR) 
INCLUDE LUADIDFSI 
NAME DFSIST4UIR) 
INCLUDE LUADIUFSD 
INCLUDE LUADIOFSL 
ENTRY CLITCBL' 
NAME DFSDOLTOIR) 
INCLUOE LUADIDFSB 
INCLUDE LOAOIDFSR 
INCLUDE LOADIDFSL 
INCLUDE LOADIDFSB 
ENTRY ULITCBL* 
NAME OFSBBOOO(K) 



ST10)' 

ST20)' 

ST30)' 

ST40)' 

OLSO)' 
1000)' 



ACKO)' 
UBCO)' 
1000)' 
ACMO) ' 
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SYSTEM LOG TERMINATOR • 
STATISTICS 1* 
STATISTICS 2* 
STATISTICS 3* 
STATISTICS 4' 

DL/I TEST PROGRAM* 



BATCH DATABASE BACKOUT" 
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•LUC QbJtCT COuE 



ADDK1 AUDR2 STMT SOURCE STATEMENT 
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706 
707 

7oa 

709 
710 
711 
712 
713 
71* 
71b 
716 
717 
710 
719 
720 
721 
722 
72 3 
72* 
72 5 
726 

72 7 
726 
729 
730 
731 

73 2 
733 
73* 
735 
736 
737 
73 b 
'739 
7*0 
7*1 
7*2 
7*3 
7** 
7*3 
7*6 
7*7 
7*H 
7*9 
750 
751 
752 
753 
75* 
755 



,****************************************************** 

,***************** ************************************* 

t ** 

► SUCCESSFUL IMS SVSTEM DEFINITION ** 

* FOR BATCH FUNCTION. ** 

BEFORE STAGE II EXECUTION 

THE FOLLOWING IMS DATA SETS MUST BE ALLO- 
CATED AND CATALOGED BEFORE ATTEMPTING TO EXECUTE 
THE GENERATED STAGE II JOB STREAM: 

IMS2.L0AD IMS2.GENLIB IMS2.RESLIB 

IMS2.MACLIB IMS2.PR0CLIB 

IMS2.0BJDSET IMS2.RESLIB 

OTHER REUUIREU DATA SETS MUST BE ALLOCATED 
AND CATALOGED PRIOR TU EXECUTION OF THE IMS 
CONTRCL PROGRAM. 



BEFORE SVSTEM EXECUTION 

THE FOLLOWING FUNCTIONS MUST BE COMPLETED 
BEFORE SUCCESSFUL EXECUTION OF THE IMS CONTROL 
PKCjGRAM CAN BE ACHIEVED: 

THE REQUIRED TYPE * SVC AND APPENDAGE MODULES 
MUST Bt PLACED IN SYS1.SVCLIB. 

THE LOAD MEMBER OFSRRCUO MUST BE ADDED TO THE 
•PR1VILIGED PROGRAM NAME LIST' MEMBER IlEEVLNKT) 
IN SYS1.LINKLIB. 

THE IMS2.RESLIB DATASET MUST BE CONCATENATED WITH 
SYS1.LINKLIB BY ADDING THE NAME • IMS2. RESL I B> TO 
THE LNKLSTOO MEMBER OF SYS 1. PARMLIB. 

THE CATALOGED PROCEDURE 'IMSROR' MUST BE PLACED 
IN SYS1.PR0CLIB BEFORE ANY OTHER IMS GENERATED 
PROCEDURE CAN BE SUCCESSFULLY EXECUTED. 

REFER TO THE IMS SYSTEM PROGRAMMING 
REFERENCE MANUAL FOR INSTRUCTIONS AND ASSIST- 
ANCE IN PERFORMING THESE AND OTHER REQUIRED 
FUNCTIONS BEFORE SYSTEM EXECUTION. 



,************•************************************«**** 
,*«**************************************************** 



NO STATEMENTS FLAGGLO IN THIS ASSfcMJLY 

♦STATISTICS* SOURCt kECORDS (SYSIN) = 3 SUURCE RECORDS (SYSLIBJ = 5679 

♦OPTIONS IN cFFtCT* LIST. NUDECK, NGLOAU, NORENT, XRfcF, NUTEST, ALGN, OS, NOTERM, LINECNT = 55 
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CHAPTER 4. IMS/360 SECURITY MAINTENANCE PROGRAM 



SECORITY MAINTENANCE 

Although IMS/360 system definition creates the majority of resident 
control blocks for the IMS/360 control program, it supplies only a 
minimum set of terminal security to protect basic master terminal 
commands against unauthorized entry. Full security capabilities are 
supplied through a security maintenance program which allows the IMS/360 
user the flexibility of changing security information without redefining 
his entire system. Security is provided by terminal and by password. 

The reader should be familiar with IMS/360 System Definition to 
obtain the best use of the following information. 

The function of the security maintenance program (SMP) is to create 
or alter password or terminal protection of an online IMS/360 system. 
The generated IMS/360 system has only a minimum subset of terminal 
security to protect DISPLAY, NRESTART, RSTART, CHECKPOINT, ERESTART, 
START, CHANGE, STOP, PURGE, DBRECOVERY, IDLE, DBDUMP, ASSIGN, DELETE, 
and PSTOP commands. The security maintenance program creates password 
and terminal security for transactions and additional commands entered 
from terminals. It also creates password security on data bases and 
programs. The control of the security maintenance program is such 
that the user may view his system in terms of resources to which 
passwords may have access, or he may view the system as a security 
profile system, that is, by defining a password which has access to 
a set of resources. The detailed explanation covers the use of the 
various control cards to describe either a "profile-oriented" system 
or a "resource-oriented" system of security maintenance. There is 
no restriction on the use of both types of description within the same 
security maintenance program execution. 

PASSWORD MAINTENANCE 

If password maintenance control cards are presented in the input 
stream for the SMP, the password maintenance function is performed. 
Using the SMP password control cards, the following functions are 
available: 

• Add passwords to or delete passwords from the IMS/360 communication 
password table (CPT) 

• Change the password security requirements for transaction codes, 
terminal command verbs, program status changes, data base status 
changes, logical or physical terminal status changes 

IMS/360 password table and password matrix changes may become 
effective the next time IMS/360 is restarted. If the next restart 
is a "cold start", the master terminal operator may specify that no 
password security be used or that the new password table and matrix 
be used. If the next restart is a "warm start", the master terminal 
operator may specify that the current status of the password table 
and matrix is to be restored using the system checkpoint records, or 
that the new password table and matrix are to be used. 



4.1 



TERMINAL SECURITY MAINTENANCE 

If terminal security maintenance control cards are presented in 
the input stream for the SMP, maintenance functions are performed upon 
the IMS/360 communications terminal matrix. Using the SMP terminal 
security control cards, the following function is available: 

• Add to or delete from terminal security requirements for command 
verbs and application program transaction codes 

Terminal security changes become effective the next time IMS/360 
is restarted. If the next restart is a "cold start", the master 
terminal operator may specify that no terminal security be used or 
that the new terminal matrix is to be used. If the next start is a 
"warm start", the master terminal operator may specify that the current 
status of terminal security be restored using system checkpoint records, 
or that the new terminal security matrix is to be used. 

The security maintenance program can not be executed until an IMS/360 
system definition has been performed. Input requirements for the SMP 
include an IMS/360 system description block (SDB) which is created 
at system definition time and which must reside in the IMS2.RESLIB 
library with the IMS/360 control program nucleus. If multiple IMS/360 
systems exist, the SMP maintains as many as nine sets of security 
control blocks in the same library. If errors are encountered in 
processing SMP control cards, no security block update functions are 
performed. Diagnostic error messages are produced for the entire input 
stream. 

At user option, the SMP performs a no-update run, producing a printed 
analysis of IMS/360 security requirements. In addition, each execution 
of the SMP produces a printed analysis of the IMS/360 configuration 
being maintained. 

CONTROL AND DATA STATEMENTS 

The security maintenance program control and data statements 
available are; PASSWORD, TERMINAL, TRANSACT, COMMAND, DATABASE, 
PROGRAM, and PTERM. In general, each of these cards may be used as 
required. The specifications which one considers in designing a 
password security system must be tailored to the particular environment 
in which IMS/360 is to run. The control cards above are used to 
describe the security environment which the IMS/360 system is to use 
in processing messages and commands. 

Control statements are identified by ) ( characters (close and open 
parentheses in combination) in card columns 1 and 2, followed by a 
blank in column 3. Data statements are identified by a blank in column 
1. A control statement remains in effect until another control 
statement or end of input data is encountered. Each statement, control 
or data, has only one allowable operand. Valid combinations of control 
and data statements are shown in Figure 9. 



NAME | OPERATION | OPERAND 


) ( 1 PASSWORD | password 

| TERMINAL | logical terminal name 
| TRANSACT | transaction code 
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COMMAND | 


command language 


verb 




DATABASE 


name 






i PROGRAM 


name 






| PTERM 


number 




1 ) ( 


TERMINAL 


logical terminal 


name 




[ PASSWORD 


password 






| TRANSACT 


transaction code 






COMMAND 


command language 


verb 


1 ) ( 


TRANSACT 


transaction code 






PASSWORD 


password 






TERMINAL 


logical terminal 


name 


1 ) ( 


COMMAND 


command language 


verb 




PASSWORD 


password 






TERMINAL 


logical terminal 


name 


1 ) ( 


DATABASE 
or 


name 




1 ) ( 


PROGRAM 
or 


name 




\ ) ( 


PTERM 


name 






PASSWORD 


password 





where: 

password 

A password must contain only alphameric characters and may be 
one through eight characters in length. The longest password 
statement encountered in the input stream governs the maximum 
length of input passwords which will be accepted by the user's 
IMS/360 system. Data statements: TERMINAL, TRANSACT, COMMAND, 
DATABASE, PROGRAM, and PTERM. 

logical terminal name 

A valid logical terminal name may be one through eight characters 
in length. Terminal names which are not defined in the IMS/360 
system being maintained are invalid and will be rejected by 
the security maintenance program. 



4.3 



transaction code 



name 



A valid transaction code may be one through eight characters 
in length and must be defined in the IMS/360 system being 
maintained. If it is not defined, it is treated as invalid 
by the security maintenance program. 



A valid data base name, program name, or physical terminal 
number is available from Stage 2 output of IMS/360 system 
definition. 

command language verb 

Valid command language verbs may be obtained from the Stage 
2 output of IMS/360 system definition. The command verb, less 
leading slash, may be abbreviated to the first three characters. 



General Notes: 



Only the first three characters of the operation 
code are reguired to identify control or data 
statements. Physical terminal numbers may be found 
in the terminal map printed in the assembly of 
DFSISDBO in Stage 2 of IMS/360 system definition. 

To define additional passwords, a PASSWORD control 
statement may be used with no following data 
statements: 



) ( PASSWORD ABCD 
) ( PASSWORD EFGH 



DATA 
CARD 
TYPE 


CONTROL CARD TYPE 


PASSWORD 


TERMINAL 


TRANSACT 


COMMAND 


DATABASE 


PROGRAM 


PTERM 


PASSWORD 


NO 


YES 


YES 


YES 


YES 


YES 


YES 


TERMINAL 


YES 


NO 


YES 


YES 


NO 


NO 


NO 


TRANSACT 


YES 


YES 


NO 


NO 


NO 


NO 


NO 


COMMAND 


YES 


YES 


NO 


NO . 


NO 


NO 


NO 


DATABASE 


YES 


NO 


NO 


NO 


NO 


NO 


NO 


PROGRAM 


YES 


NO 


NO 


NO 


NO 


NO 


NO 


PTERM 


YES 


NO 


NO 


NO 


NO 


NO 


NO 



Figure 9. Security maintenance control and data card types 



CONTROL AND DATA STATEMENT COMBINATIONS 

The following outlines the use of various control and data statement 
combinations: 



Control 
Statement 

1. PASSWORD 
TERMINAL 



2. PASSWORD 
TRANSACT 



Data 
Statemen t 

TERMINAL 
PASSWORD 



TRANSACT 
PASSWORD 



Explanation 

To reguire a password to be used with 
the logical terminal name when 
modifying the status of a logical 
terminal through a /LOCK, 
/UNLOCK, or /IAM command 

To reguire a password to be 
entered from the input 
terminal following the 
transaction code for each message 



a. a 



Control 
Statement 

3. PASSWORD 
COMMAND 



4. PASSWORD 
DATABASE 



5. PASSWORD 
PROGRAM 



6. PASSWORD 
PTERM 



7. TERMINAL 
TRANSACT 



8. COMMAND 
TERMINAL 



Data 

State m en t E xpla n atio n 

COMMAND To require a password to be entered 
PASSWORD following the command verb when 

using the terminal command language 

DATABASE To require a password to be entered 
PASSWORD following the data base name when 
modifying the status of a 
data base through a /LOCK or 
/UNLOCK command 

PROGRAM To require a password to be entered 
PASSWORD following the program name when 

modifying the status of a program 
(PSB) through a /LOCK or /UNLOCK 
command 

PTERM To require a password to be entered 
PASSWORD following the key word PTERM 

when modifying the status of a 
physical terminal through a /LOCK, 
/UNLOCK, or /IAM command 

TRANSACT To restrict use of a transaction 
TERMINAL code to a specific logical terminal, 
name. Note: Entry of the 
named transaction codes will 
onl y be permitted from the 
terminals specified. 

TERMINAL To restrict use of a command 
COMMAND verb to specific logical terminals 



Input statements may be used as control cards or data cards. Using 
the input statements, security requirements may be expressed as either 
profile oriented or resource oriented. A profile security system would 
describe the resources to be secured in terms of the securing element. 
For example, the following describes a profile for password SAMSMITH. 



) ( PASSWORD SAMSMITH 



TRANSACT 

TRANSACT 

COMMAND 

COMMAND 

DATABASE 

PROGRAM 



PAYROLL 

PERS 

LOCK 

UNLOCK 

PAYREC 

PAYPROG 



To describe these same security requirements by resource, the 
following statements would be required. 



TRANSACT 

PASSWORD 

TRANSACT 

PASSWORD 

COMMAND 

PASSWORD 

COMMAND 

PASSWORD 

DATABASE 

PASSWORD 

PROGRAM 

PASSWORD 



PAYROLL 

SAMSMITH 

PERS 

SAMSMITH 

LOCK 

SAMSMITH 

UNLOCK 

SAMSMITH 

PAYREC 

SAMSMITH 

PAYPROG 

SAMSMITH 
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As the preceding example illustrates, passwords may be more easily 
described by using the securing elements as data. Terminal security, 
however, is more easily described by using the secured element, the 
transaction, as a control statement, followed by the security elements, 
the terminals, as data. 

) ( TRANSACT PAYROLL 

TERMINAL DEPT40 

TERMINAL DEPT65 

TERMINAL VPPERS 
) ( TRANSACT PERS 

TERMINAL DEPT40 

The reverse or profile example would be: 

) ( TERMINAL DEPT40 

TRANSACT PAYROLL 

TRANSACT PERS 

) ( TERMINAL DEPT65 

TRANSACT PAYROLL 

) ( TERMINAL VPPERS 

TRANSACT PAYROLL 

The basic online system only provides terminal security for a subset 
of the command language. The following example would secure a more 
typical set of commands against entry from any terminal except the 
Master Terminal: 



) ( TERMINAL 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 



master terminal name 
START 
STOP 

NRESTART 
CHECKPOINT 
PSTOP 
ERESTART 
DBRECOVERY 
ASSIGN 
BROADCAST 
CHANGE 
DBDUMP 
PURGE 
LOG 

DISPLAY 
DELETE 



DESCRIPTION OF SMP OUTPUT 

The security maintenance program produces three printed reports. 
The first report is the logical configuration of IMS/360 system being 
maintained, the second is the password table generated, and the third 
is the matrix for the security of a particular IMS/360 nucleus. 

SECURITY MAINTENANCE PROGRAM EXECUTION 

The security maintenance run is a three-step job. The first step 
accepts the input control and data cards for the security maintenance 
program and edits them for correct format and validity against the 
IMS/360 system being maintained. If there are no errors in the first 
step, the second step, an operating system assembly, is performed. 
Step three is a link edit which takes the assembly output from step 
two and creates the communication password table, communications 
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password matrix, and communication terminal matrix load modules used 
by the IMS/360 control program. Depending upon the input presented, 
there will be a variable number of output load modules created. 

The maximum bounds of the generated matrices, terminal or password, 
are expressed as: 

I * R = M = < 32767 

8 

where: 

I 

is number of securing resources (passwords or logical 
terminals) 



is number of unique combinations of secured resources 



is the total main storage requirement in bytes 

The maximum number of entries in the password table is 
expressed as: 

I = < 32767 

where: 



is the total number of passwords 

To perform a security maintenance run, the user must have previously 
defined an IMS/360 control program using the value ALL, ON-LINE, 
NUCLEUS, or CTLBLKS as the second sublist entry of the SYSTEM operand 
of the IMSCTRL macro-instruction. One of the modules created during 
Stage 2 of IMS/360 system definition is a directory of resources of 
the defined system which is placed in the IMS2.RESLIB data set. This 
directory and the security maintenance control cards comprise the input 
requirements for the security maintenance program (SMP) . Output from 
the SMP consists of four sequential members which are placed in 
IMS2.RESLIB. These members may not be reprocessed using the linkage 
editor. The four members contain: 

1) Communication Password Table (CPT) 

2) Communication Terminal Matrix (CTM) 

3) Terminal Offset List (CTL) 
ft) Password Offset List (CPL) 

In addition, the SMP provides a listing of the created maintenance 
tables. Each run of the SMP replaces previously created members. 
Of course, ten different sets of security maintenance tables can be 
concurrently maintained. Each set is associated with one IMS/360 
online control program nucleus and gains identity by the last character 
of the IMS/360 nucleus name. Figure 10 depicts the security maintenance 
flow. 
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SECURITY 
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SECURITY 

MAINTENANCE 

PROGRAM 
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SYSTEM 

DESCRIPTION 

BLOCK 



COMMUNICATION 

PASSWORD 

TABLE 

etc. 



Figure 10. Security maintenance flow 



The table following shows the job control statements by step 
necessary to execute the security maintenance utility. 



| STATEMENT | USAGE 


( JOB I Initiates security maintenance job 
1 statement \ . 


| JOBLIB | Defines the partitioned data set named 

| statement | IMS2.RESLIB. Contains the members DFSCNDCn 

| | and DFSISMPO. 


| step S | 


1 EXEC | Specifies the program name (PGM=DFSISMP0) 
j statement j and must contain a PARM keyword value of 
I | the form 
I 1 PARM = •option, number* 

I | option 

| | LIST - validity check and list new 

| 1 security tables 

| { UPDATE - validity check, list, and 

j 1 update security tables in RESLIB 

| | number 

I j a value ranging from 0-9 which is 
| | the last character of the IMS/360 
| | nucleus member name to be maintained 
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j j where default values for PARM= , UPDATE r 0* | 


1 SYSPRINT | Defines a sequential message data set. The I 
I DD | data set can be written to system output | 
| statement | devices, magnetic tape, or direct access | 
I | volumes. The following DCB parameters must | 
I | be specified. | 

| | RECFM=VBA | 
| | LRECL=125 | 
I | BLKSIZE = 129 or greater | 


| SYSPUNCH | Defines a sequential output data set which \ 
I DD | contains assembler statements produced by | 
| statement \ step S. The data set may be passed to step | 
j | C. The following DCB parameters must be | 
I | specified. | 

| | RECFM=F or FB | 
I | LRECL=80 | 
I | BLKSIZE=80 or multiple of 80 | 


| SYSLIN | Defines a sequential output data set which \ 
1 DD | contains linkage editor control statements | 
| statement | produced by step S. The data set may be | 
| | passed to step L. The following DCB | 
I | parameters must be specified. | 
| | RECFM=F or FB I 
I \ LRECL=80 | 
] | BLKSIZE=80 or multiple of 80 | 


| SYSUT1 | Defines a sequential work data set used only | 
I DD | during step S. The following DCB parameters | 
| statement | must be specified. | 

I 1 RECFH=F or FB | 
I | BLKSIZE=100 or multiple of 100 | 


| SYS0T2 | Defines a sequential work data set used only | 
I DD | during step S. The following DCB parameters ( 
| statement | must be specified. | 

| | RECFM=F or FB | 
| j BLDSIZE=100 or multiple of 100 | 


j SYSIN | Defines a sequential data set or a member of | 
| DD | a partitioned data set which contains \ 
| statement \ security maintenance input statements. The | 
| | following DCB parameters must be specified. | 

| | RECFH=F or FB | 
1 1 BLKSIZE=80 or multiple of 80 | 
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I step C | j 


I EXEC | Specifies the program name (PGM=IEUASM) | 
| statement | of the assembler. Following parameters | 
| | must be present. | 

| | PARM=«LOAD,NODECK« I 
1 | COND= (12,LT,S) t 


| SYSPRINT | Defines a sequential message data set. j 
f DD j The data set can be written to system \ 
| statement [ output devices, magnetic tape, or direct | 
| | access volumes. The following DCB | 
j j parameters must be specified. I 

| | RECFM=FM or FBM | 
{ | LRECL =121 | 
I | BLKSIZE=121 or multiple of 121 | 


I SYSGO | Defines a sequential temporary data set j 
I DD j for object output from the assembler. j 
| statement J The data set may be passed to step L. I 


I SYSDT1 | Defines sequential data sets used for work | 
1 SYSUT2 J space by the assembler only during step C. | 
| SYS0T3 1 1 
1 DD | | 
I statements | j 


1 SYSIN | Defines passed sequential input data set | 
I DD J created in step S using DD name SYSPUNCH. j 
| statement J j 


| step L 1 I 

j EXEC j Specifies the program name (PGM=IEWL) | 
\ statement | of the linkage editor. Following I 
| | parameters must be present. j 

| | PABM= f LIST,NE,OL v I 
I | C0ND=(4,LT,S) | 


j SYSPRINT | Defines a sequential message data set j 
I DD | for the linkage editor. The data set can | 
j statement | be written to system output devices, j 
| | magnetic tape, or direct access volumes. j 
I | The following DCB parameters must be I 
J j specified: I 
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I 1 RECFM=FA or FBA | 
I | LRECL=121 f 
I | BLKSIZE=121 or multiple of 121 | 


I SYSLMOD 1 Defines output partitioned data set, | 
| DD j IMS2.RESLIB, for the linkage editor. Normally! 
| statement | the same data set specified for DD name | 
I \ JOBLIB. | 


j INPOT j Defines passed sequential temporary data | 
| DD | set created using DD name SYSGO in step C. j 
| statement | | 


j SYSDT1 ( Defines sequential temporary data set | 
I DD | used in step L by the linkage editor. | 
\ statement | \ 


I SYSLIN j Defines passed sequential temporary data | 
I DD | set created using DD name SYSLIN in [ 
| statement | step S. j 



Once created, these new matrices and the password table are not 
made available to the IMS/360 online system until a restart is 
performed. At normal restart time, the operator has the option of 
incorporating or not incorporating the newly created security tables. 
At either cold start, that is, NRESTART CHECKPOINT 0, or warm restart, 
NRESTART any checkpoint number, the new security tables are not included 
unless specifically requested by the system operator. The two keyword 
operands of the NRESTART command which are used to request new security 
are PASSWORD, for password security, and TERMINAL, for terminal 
security. Once these two keywords are used in a normal restart, the 
system checkpoint facility causes the new security maintenance to 
continue through subsequent warm starts. If the user desires, once 
a normal successful restart using the normal keywords has- been 
accomplished, he may change his system security configuration. Again, 
these changes will not become effective until the user specifically 
requests them at normal restart time. 

S ECURITY M AINTENANCE EXAMPLE 

The following is an example of the input cards for the security 
maintenance program that reflects the system definition example in 
this chapter. This example assumes: 

• a password for each program 

• a password for each data base 

• a password for each transaction code, except INQUIRY 

• a list of terminals that can use each transaction code, along with 
the required password limiting some IMS/360 terminal commands to 
the master terminal 
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• the master terminal can enter all IMS/360 terminal commands and 
transaction codes defined by the system definition example in this 
manual 

Ex am ple 



) ( 


PROGRAM 


ACCT 




PASSWORD 


DOLLAR 


) ( 


PROGRAM 


ENG560 




PASSWORD 


PARTNO 


) ( 


PROGRAM 


LOGREC 




PASSWORD 


NONE 


) ( 


PROGRAM 


AGC0568 




PASSWORD 


MONEY 


) ( 


DATABASE 


ACCTLOG 




PASSWORD 


LOG 


) ( 


DATABASE 


ACCTREC 




PASSWORD 


REC 


) ( 


DATABASE 


ACTIVITY 




PASSWORD 


ACTIVE 


) ( 


DATABASE 


ENGREC 




PASSWORD 


PIERSQ 


) ( 


DATABASE 


PARTSREC 




PASSWORD 


PIERSQ 


) ( 


DATABASE 


PARTSREC 




PASSWORD 


ASSY 


) ( 


TRANSACT 


ACCTCHG 




PASSWORD 


CHARGE 




TERMINAL 


A87511 1 




TERMINAL . 


C8751112 




TERMINAL 


D87511 13 




TERMINAL 


A8751114 




TERMINAL 


A8751115 


) ( 


TRANSACT 


ACTY 




PASSWORD 


GO 




TERMINAL 


A87511 11 




TERMINAL 


C8751112 




TERMINAL 


D87511 13 




TERMINAL 


A8751114 




TERMINAL 


A87511 15 


) ( 


TRANSACT 


TNL 




PASSWORD 


QTY 




TERMINAL 


DEPT 6 50 




TERMINAL 


DEPT 610 




TERMINAL 


DEPT 620 




TERMINAL 


DEPT 631 




TERMINAL 


DEPT 632 




TERMINAL 


DEPT 630 




TERMINAL 


DEPT 640 




TERMINAL 


DEPT 641 




TERMINAL 


DEPT 642 
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) ( TRANSACT 
PASSWORD 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 



ING 

QUESTION 

DEPT310 

DEPT31 1 

DEPT312 

DEPT410 

DEPT41 1 

DEPT412 

DEPT510 

DEPT511 

DEPT512 

DEPT100 

DEPT200 

DEPT686 

MASTER 

ALTMAST 

MAINT 

DEPT710 

DEPT720 

DEPT8U8 

DEPT850 

DEPT900 

TEST1 

TEST2 



) ( TRANSACT 
PASSWORD 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 



INVNTR? 

SUBASSY 

DEPT310 

DEPT31 1 

DEPT312 

DEPT410 

DEPTU1 1 

DEPT412 

DEPT510 

DEPT51 1 

DEPT512 

DEPT100 

DEPT200 

DEPT686 

MASTER 

ALTMAST 

MAINT 

DEPT710 

DEPT720 

DEPT848 

DEPT850 

DEPT900 

TEST1 

TEST2 



) ( TRANSACT 
PASSWORD 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 



ACCT 

LEDGER 

DEPT310 

DEPT311 

DEPT312 

DEPT410 

DEPTU1 1 

DEPT412 

DEPT510 

DEPT511 

DEPT512 

DEPT100 

DEPT200 

DEPT686 

MASTER 
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TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 
TERMINAL 



ALTMAST 

MAINT 

DEPT710 

DEPT720 

DEPT8U8 

DEPT850 

DEPT900 

TEST1 

TEST2 



) ( TERMINAL 
TRANSACT 
TRANSACT 
TRANSACT 
TRANSACT 
TRANSACT 
TRANSACT 
TRANSACT 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 
COMMAND 



MASTER 

ACCTCHG 

ACTY 

TNL 

INQUIRY 

INQ 

ENG 

ACCT 

BROADCAST 

START 

STOP 

PSTOP 

PURGE 

CHANGE 

DELETE 

ASSIGN 

CHECKPOINT 

CHECKPOINT PURGE 

CHECKPOINT FREEZE 

DBDUMP 

NRESTART 

ERESTART 

DBRECOVERY 

IDLE 

RSTART 

DISPLAY 

CHECKPOINT DUMPQ 



4. 14 



CHAPTER 5. USER MODIFICATIONS AND EXTENSIONS TO THE CONTROL PROGRAM 



This chapter describes the message editing capabilities available 
to the user of IMS/360. Transaction code edits, message switching, 
physical terminal (output) , and user-defined edit routines are described 
and examples given. Also included are sections on how the user can 
obtain data base buffer pool statistics, on user generation of 
randomizing modules for use with HDAM file organizations, and on the 
IMS/360 data base log tape record format, 

MESSAGE E DIT ING CAPABIL ITIES 

IMS/360 provides edit functions for both message input and output. 
In addition, IMS/360 permits the inclusion of user-written routines 
to perform edit functions for both message input and output. User- 
supplied edit routines can be defined for input transaction code edit, 
input message switching edit, and physical terminal output edit. An 
edit routine for operation with input from a 1030 communication system 
is also reguired if the 1030 terminal has been specified in IMS/360 
system definition. User Edit routine exits are provided for the 2980 
and 2770 users also, however IMS/360 provides functional •default 1 
routines for these exits which may be replaced by the user if these 
defaults are not adeguate for his operation. Except for an edit routine 
required for 1030 input terminal operation, all user-written edit 
routines are optional. All user-written edit routines are incorporated 
into the IMS/360 control program nucleus during Stage 2 of IMS/360 
system definition. 

BASIC IMS/360 EDIT FUNCTIONS 

The IMS/360-supplied edit function performs the following for input 
messages: 

• On the first segment of each message, whether the message type 

is a transaction, a command, or a message switch, removes leading 
control characters and blanks 

• On all subsequent message segments, whether the message type is 
a transaction or a command (except /BROADCAST) , removes leading 
control characters 

• On all segments, removes all line-control characters. 

• On all segments, if the message type is a transaction, removes 
trailing carriage-return characters. 

• On all segments, when the entering or transmission of backspaces 
is a normal correction procedure on the entering terminal, 
eliminates backspaces on a one-for-one basis 

• Removes password and replaces it with a blank when necessary to 
provide separation between the transaction code, logical terminal, 
or command verb and following data. 

• On the first segment of a message, inserts transaction code or 
logical terminal name as defined by prior SET command, ahead of 
entered data. A blank is inserted, following the transaction code 
if necessary to obtain separation between the inserted transaction 
code and the entered data. 
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The IMS/360-supplied edit function for output messages inserts any 
necessary idle characters after new line, line feed, and tab characters. 
For the 1033, these characters are inserted after all characters, to 
facilitate proper terminal operation. Line control characters are 
also added for operation of the communication line. 

MESSAGE FORMAT SERVICE EDITING 

If the input has been processed by the IMS/360 message format 
service, the editing performed is dependent on the descriptions provided 
through the format language utility. Since input segments from the 
device may have no relationship to input message segments after message 
format service editing, the input segment from the device is not 
available to user-written edit routines. 

TRANSAC TION CODE (INPUT) EDITS 

IMS/360 gives the user the ability to specify during system 
definition the inclusion in the IMS/360 control program nucleus of 
one or more user-supplied input edit routines. This provides the user 
with the capability of editing input messages before they are engueued 
for scheduling. When IMS/360 is executed, this user edit function 
is performed in addition to the basic IMS/360 edit function or Message 
Format Service editing and subseguent to this function. The user may 
specify to system definition up to 255 editing routines and also which 
edit routine is to be used, by transaction type. 

The user should know the contents and meaning of the various fields 
in the IMS/360 control blocks (defined in the IMS/360 System Manual) , 
and may test them in an edit routine. However, under no circumstances 
may an edit routine modify any of these blocks. (Details of the system 
definition procedure are found in Chapter 3 of this manual.) 

If specified, a user-supplied input edit routine gains control after 
each message data segment is processed by the IMS/360 basic input edit 
or Message Format Service. Transaction code validity and security 
will have already been checked. 

Not e:, The user edit routine would not be entered if the transaction 
code were the only data in the message segment, and the 
transaction is a conversational transaction. 

Upon entry to a user-supplied transaction code edit routine, the 
following interface applies: 

Registe r Number Content 

1 The buffer location of the input message 

segment after translation to EBCDIC but 
prior to the IMS/360 basic editing. The 
first two bytes of the buffer contain a 
binary count of the message length. The 
third and fourth bytes of the buffer are 
binary zeros. The fifth byte contains the 
first byte of message text. The binary 
count includes the four-byte "prefix". 
As the input buffer has no relationship 
to the segment after it has been processed 
by the Message Format Service, this register 
will point to the resultant segment (same 
as DECAREA) if the message was processed 
by this service instead of the BASIC INPUT 
EDIT service. The fourth byte of the message 
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segment (Z2) will be X^O' if the Basic 
edit service was used. It will contain 
a X f 01«, X»02«, or X«03« if the Message 
Format Service was used, signifying that 
option 1, 2, or 3 respectively was selected 
for the message by the format designer. 

7 The IMS/360 Communication Terminal Block 

(CTB) address for the physical terminal 
from which the message segment was entered. 

9 The IMS/360 Communication Line Block (CLB) 

address for the communication line from 
which the message was entered. This control 
block starts with a BTAM DECB. The DECAREA 
field in the DECB contains the address of 
a buffer. This buffer contains the input 
message segment after IMS/360 editing. 
The first four bytes are two bytes of binary 
count (length of this message segment) and 
two bytes of binary zeros as above. The 
length of this buffer is eguivalent to the 
binary count pointed to by Register 1 plus 
10 if basic editing was performed. 

If the input was processed using the IMS/360 
message format service, the length of this 
buffer is given by the first two bytes of 
the buffer (length of this message segment) . 
No extra space is provided in this buffer 
for user-written edit routines. 

13 Save area address for use by an edit routine. 

14 Return address to IMS/360 control program 

15 Entry point address to the invoked edit 

routine. The entry point name and load 
module name for an edit routine must be 
the same and eguivalent to the name used 
for the edit routine in system definition. 

Upon entry to a transaction code edit routine, all registers should 
be saved. Upon exit, all registers should be restored. The reader 
may wish to refer to the IMS/360 System Manual - Volume I (LY20-0629) 
for definition of IMS/360 control blocks. 

If the input was processed by the IMS/360 basic edit, the user may 
use either the message segment in the buffer addressed by Register 
1 or that addressed by the DECAREA field as input to edit. If the 
input was processed by the IMS/360 message format service, the user 
may use only the message segment addressed by the DECAREA field as 
input to edit. 

The user-supplied edit routine must place the text of the user- 
edited message segment to be returned to IMS/360 in the buffer addressed 
by the DECAREA field. If the input was processed by the IMS/360 basic 
edit, this buffer is always 10 bytes greater than the two-byte binary 
count at the beginning of the message segment, and the user can expand 
the length of the message segment. Alternatively, the user can reduce 
the length of the message segment to any desired size. The format 
of the user-edited message segment in the buffer upon return to IMS/360 
must be two bytes of binary count, two bytes of binary zeros (except 
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when input was processed by the IMS/360 message format service - the 
second two bytes should not be changed) , and edited text. 

Upon return to the IMS/360 control program. Register 15 is used 
to define subseguent IMS/360 functions. If Register 15 is zero, IMS/360 
will process the message segment normally. If Register 15 eguals 4, 
this message segment is cancelled by IMS/360. If Register 15 is greater 
than 4, the entire message of which this segment is a part is cancelled. 

EXAMPLE OF TRANSACTION CODE (INPUT) EDIT 

Assume a multisegment transaction named 'ICS'. Normally, the first 
segment of this message will contain 'ICS GN', meaning to get the next 
segment of a given message, or 'ICS CAN', meaning to cancel this 
message. A user-supplied edit routine allows further input flexibility, 
as shown in the following decision table. 



| MSG AS REC'D AND | MSG AS REEDITED BY 
| EDITED BY IMS/360 | USER EDIT ROUTINE 


First | 'ICS GN' | As received 
Segments | 'ICS' I 'ICS GN' 

| 'ICS CAN' | msg canceled 
| Any other j msg canceled 


Other | 'GN* | As received 
Segment | 'CAN' I msg canceled 

I Any other I segment canceled 



The transaction code edit routine allows the input of a shortened 
format for the 'ICS GN' message segment. 
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The following is an example of the transaction code (input) edit. 



STMT SOURCE STATEMENT 



F01FEB69 



1 


ICSEDIT 


CSECT 






2 


********************************************************************* 


3 


********************************************************************* 


4 


* 




USER MESSAGE EDIT ROUTINE 


* 


5 


********************************************************************* 


6 


* 


* 


* 




* 


7 
8 
9 


* 

* 


* 


MESSAGE RECEIVED * 


RETURN CODE 


RETURNED MESSAGE * 

_* 


* 


* 


'ICS GN ' * 


RC=0 


'ICS GN ' * 


10 


* FIRST 


* 


'ICS CAN 1 * 


RC=8 


*ICS CAN 1 * 


11 


* SEGMENT 


* 


'ICS ' * 


RC=0 


'ICS GN ' * 


12 
t -5 


* 

*_ 


* 


ANY OTHER * 


RC=4 


AS RECEIVED * 

* 



]_4 * * * * 

15 * OTHER * 'GN ' * RC=0 ' GN ' * 

16 * SEGMENTS * 'CAN' * RC=8 'CAN' * 

17 * * ANY OTHER * RC=4 AS RECEIVED * 

1 Q ********************************************************************* 

19 * RETURN CODE MEANING * 

* * 



20 

21 * RC=0 

22 * RC=4 

23 * RC=8 

24 *************** 

25 *************** 

26 * 



PROCESS THIS MESSAGE SEGMENT * 

CANCEL THIS SEGMENT * 

CANCEL THIS MESSAGE * 

****************************************************** 

****************************************************** 



27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 FIRSEG 

43 

44 

45 * 

46 

47 

48 CANSEG 

49 

50 GUDICS1 

51 

52 

53 * 

54 

55 



STM 

LR 

USING 

SR 

USING 

USING 

*** IS THIS the 

* 

L 

SR 

IC 

BCTR 

EX 

TM 

BZ 

EQU 

CLC 

BE 
* 

*** SET RETURN 
* 

LA 

B 

EQU 

CLC 

BNE 



SAVE REGS 
ESTABLISH BASE REG 



14,12,12(13) 
R12,R15 
ICSEDIT,R12 

R15,R15 CLEAR INDICATOR RETURN REG 

CTB,R7 SET CTB BASE 

IECTDECB,R9 SETUP CLB POINTERS 

FIRST SEGMENT OF THE MESSAGE? *********************** 



R8,DECAREA 

R2,R2 

R2,1(R8) 

R2,0 

R2,MAKUPER 

CTBFLAG3 ,CTB3SEG1 

MULTSEG 
* 

4(3,R8) ,ICS 
GUDICS1 



POINT TO PRE-EDITED MESSAGE 

CLEAR WORK REG 

LOAD LENGTH OF MESSAGE 

DECREMENT BY ONE 

TRANSLATE MSG TO UPPER CASE 

IS THIS FIRST SEG OF MSG? 

NO, BRANCH 

YES, THIS IS FIRST SEG 

IS THIS A LEGIT ICS MESSAGE? 

YES, BRANCH 



CODE TO INDICATE 'CANCEL THIS SEGMENT' *************** 



R15,4 

RETURN 
* 

7(4, R8) ,CAN 
NOTCAN1 



LOAD INDIC TO CANCEL THIS SEGM 
GO RETURN 

CHECK FOR CANCEL MSG 

IF NOT CAN MSG, GO PROCESS 



*** SET RETURN 
* 



CODE TO INDICATE 'CANCEL THIS MESSAGE' *************** 
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STMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



1 ICLI CLBBASE=0,CNTBASE=0,CTB3ASE=0,COBBASE=0,CTTBASE=0 

2 +***************************** ******** ********************************** 

3 + * 

4 + * CLB - COMMUNICATION LINE BLOCKS DSECT. DSECT NAME IS I ECTDECB. 

5 + * 

6 +***************************************************************** ****** 

7+IECTDECB DSECT DECB DUMMY SECTION 

8 + * -- 

9 + * + + 
10+* + STANOARC EVENT CONTROL BLOCK + 
U + * + + 
12 + * + -- + 

13*-* + + + ■ 

14 + * 4 + OPERATION TYPE + AREA LENGTH + 

15+* + + + 

16 + * + + 

17+* + ON-LINE + + 

18+* 8 +TERMINAL + ADDRESS OF DCS + 

19+* + TEST + + 

20 + * + + 

21+* + + + 

22+* 12 +RESERVED + ADDRESS OF AREA + 

23+* + + + 

24 + * + ■ + 

2 5 + * + + + 

26 + * 16 + SENSE BYTES + RESIDUAL COUNT + 

27+* + 1 & 2 + + 

28 + * + — ■ ■' + 

29 + *++ + 
30+* " 20 + COMMAND | ADDRESS OF TERMINAL LIST + 
31+* + CODE + + 

32 + * +- + 

33+* + + RELATIVE+ + + 

34+* 24 + STATUS + LINE + ADDRESS + VRC/LRC + 

35+* + FLAGS + NUMBER + RESPONSE+ RESPONSE + 

36 + * + + 

37+* + + + + 

38+* 28 + TP-OP + ERROR + CSW STATUS + 

39 + * + .CODE + STATUS + + 

40 + * + + 

41+* + + + 

42+* 32 +RESERVED + ADDRESS OF CURRENT + 

43+* + + ADDRESSING ENTRY + 

44 + * +- + 

45+* + + + 

46+* 36 +RESERVEO + ADDRESS OF CURRENT + 

47+* + + PGLLING ENTRY + 

48 + * + + 

49 + * + + + + 
50+* 40 +RESERVED +RESERVED + WRITE AREA LENGTH + 
51+*'+ + + + 

52 + * + + 

53+* + + + 

54+* 44 +RESERVED + ADDRESS OF WRITE AREA + 

55+* + + 



STMT SOURCE STATEMENT 
56 + * 



F15OCT70 



3/27/72 



5.6 



STMT 



SOURCE STATEMENT 



F150CT70 



3/27/7 2 



58+LECSDECB US 

60+CECTYPE DS 

62+DECLNGTH DS 

64+DECONLTT DS 
65+DECDCBAD DS 

67+CECAREA DS 

69+CECSENSO DS 

71+CECSENS1 DS 

73+OECCOUNT DS 

75+DECCMCOO DS 
76+CECENTRY DS 



IF STATUS FLAG + ADDRESS OF THE TCB 

LH OPERATION TYPE 

1H AREA LENGTH 

OCL1 RESERVED FOR ON-LINE TERMINAL TEST 
IF ADDRESS OF DCB 

IF ADDRESS OF AREA 

1C 1ST SENSE BYTE 

LC 2ND SENSE BYTE 

LH RESIDUAL COUNT 

OCLL COMMAND CODE 

IF ADDRESS OF TERMINAL LIST 



79+DECFLAGS DS 

81+DECRLN DS 

83+CECRESPN DS 

85+DECTPCOD DS 

87+CECERRST DS 

89+CECCSWST DS 

9L+CECA0RPT DS 

93+DECPOLPT DS 

95+ DS 

97+CECWLNG DS 

99+CECWAREA DS 

101-KLBDECB EQU 

102+CLBRCNTR DS 

104+CLBFLAG1 DS 

105 + CL131COB EQU 

106+CLB1TEST EQU 

107 + CLBHBUF EQU 

108+CLB10BUF EQU 

109+* EQU 

11Q+CLB1QCRI EQU 

111+CL31RESP EQU 

112+CLB1QCRO EQU 



1C STATUS FLAGS 

1C RELATIVE LINE NUMBER 

1H RESPONSE FIELDS 

1C TP-OP CODE 

1C ERROR STATUS 

1H CSK STATUS 

LF 4DDRESS OF CURRENT ADDRESSING ENTRY 

IF ADDRESS OF CURRENT POLLING ENTRY 

2C RESERVED 

1H WRITE AREA LENGTH 

IF ADDRESS OF WRITE AREA 

DECSDfcCB 

1C RETRY COUNTER 



BIT USAGE 

- COB REQUIRED FOR CT3»S ON THIS LINE 

1 - TEST RECYCLE REQUEST 

2 - INPUT BUFFER ALLOCATED 

3 - OUTPUT BUFFER ALLOCATED 

4 - RESERVED FOR FUTURE USE 

5 - QCR ALLOCATED (INPUT) 

6 - RESPONSE WAITING 

7 - QCR ALLOCATED (OUTPUT) 



c 


* 


x» 


80 • . 


X* 


40* . 


X' 


20* . 


x« 


L0« . 


x» 


08' . 


x« 


04* . 


x« 


02' . 


X 1 


Oi 1 . 



5.7 



STMT 



SOURCE STATEMENT 



F15GCT70 



3/27/72 



114+CL 
115+CL 
116+CL 
U7 + CL 
1 18 + * 
119+CL 
120+CL 
1 2 . 1 + CL 
122+CL 



BFLAG2 

B2NOIN 
B2NOOU 
B2NOQU 

B2IDLE 
B2IMP 
B20UTP 
B2AUTO 



124 + 

125 + 

126 + 

127 + 
12B + 
129 + 
130+ 

131 + 

132 + 



CLBFLAG3 

CLB31NP 

CLB3CSUB 

CLB3DGPN 

CL83STGP 

CLB3CBUF 

CLB3ICMD 

* 



DS 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

DS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



C 

X« 

X* 

X« 

X« 

X» 

X» 

X' 



80 
40 
20 
10 
03 
04 
02 



X'Ol 

C . 
X»80 
X»40 
X'20 
X« 10 

x'oa 

X'04 
X»02 
X'Ol 



- NO INPUT ALLOWED 

1 - NO OUTPUT ALLOWED 

2 - DO NOT QUEUE ON THIS LINE 

3 - RESERVED FOR FUTURE USE 

4 - IDLE LINE 

5 - INPUT IN CONTROL 

6 - OUTPUT IN CONTROL 

7 - AUTOPOLL 



- 0=OUTPUT NEXT, 1=INPUT NEXT ON THIS LINE 

1 - COMMAND ENTERED AS NON-FIRST SEGMENT 

2 - LINE IS OPENED DYNAMICALLY 

3 - LINE HAS BEEN IDLED FOR SHUTDOWN 
CONDENSED BUFFER ALLOCATED 
INTERNAL COMMAND IN PROGRESS 

6 - RESERVED FOR FUTURE USE 

7 - RESERVED FOR FUTURE USE 



134+CLBCNTPT DS F 

135+CL6TEMP1 DS F 

136+CLBTEMP4 DS F 

137+CL8TEMP5 DS F 



POINTER TO 



NT FOR RESPONSE 




USED 


FOR 


TEMPORARY 


STORAGE 


USED 


FOR 


TEMPORARY 


STORAGE 



139+CLBCSID 

140 + * 

14 l + * 

142+CLBCSCVB 

143 + * 

144+CLBCSFN0 

145+CLBCSSMB 

146 + * 

147+CL8CSDST 

148+CLBCSACT 



DS 



EQU 

EQU 
EQU 

EQU 
EQU 



OC . FIND DEST FIELD 



X«2Q' 

X»04» 

X«02» 
X'Ol ' 



DL/1 USE 

RESTART IN PROGRESS 

CVB FOUND AS DESTINATION 
ALWAYS FOR CLB 
CNT/SMB NOT FOUND 

CNT FOUND 
SMB FOUND 

FNDDST ENTERED (CLBCNTP POINTS TO DEST) 
ACTIVE POLLING LIST 



POLLING LIST 
FIRST CTB ON 
CURRENT CTB 
QCB FOR CNTS FOR 
POINTER TO BLOCK 



OUTPUT 

FOR QUEUEING 



CNT/SMB/CVB 



150+CLBPOLAD DS F . POLLING LIST ADDRESS 

151+CLBCTBPT DS H . FIRST CTB ON LINE 

152+CLBCRCTB 

153+CLBCNTQB 

154+CLBSM8PT 

155+CLBCTBPS 

156+CLBDPOLC 

157+CLBDCTL 

153+CLBINBUF 

159+CLB0UT8F 

160 + * 

161+* IF {$) FALLS IN COLUMN 71 THIS FIELD WILL BE SAVED IN A COB IF REQ 



DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
OS 



F 

H 

H 

2F 

F 

H 

C 

C 

F 

F 



CLB DEVICE CONTROL BYTE (USED BY DDM) 
INPUT BUFFER POINTER 
OUTPUT BUFFER POINTER 



5.8 



TKT 



SOURCE STATEMENT 



F150CT70 



3/27/7 2 



1 99 + >',• ^ ♦ $ »!< * fc ♦ & # * # &♦♦ ♦ # *!<* *>!' >!'-'.« =>£ * && ##£:*# jjc^&jjc sjc={cs;e^;5jt^ci^5»£^i3*c^e^<: ^e #:$: ^t i;«# ;^^c ^c #*;£#:$; :#){< s{c & ate * # # 

2 0C + * 

2Q1+* CTB - COMMUNICATION TERMINAL BLOCKS DSECT. 

2 2 + * 

20'++ CTB DSECT 

205+CTBTYPE DS C . CTT NUMBER 

206+CTBLINE OS C . LINE NUMBER 

207+CTBTERM OS 3C . TERMINAL ADDRESS 



209+CrBFLAGL 


DS 


C 


ft 






21C*-CTB1C0NV 


EQU 


X' 


83 • . 





THIS CTB IN CONVERSATION 


2L1+CTB1MAST 


EQU 


X" 


40' , 


. 1 


MASTER TERMINAL 


212+CTB1SUBP 


EQU 


X« 


20' , 


2 


SUBPOOL CTB 


213+CTB1DIAL 


EQU 


X' 


10 « . 


3 


DIAL CTB IS PHYSICALLY CONNECTED 


214+CTB1SIGN 


EQU 


X' 


08* . 


4 


DIAL CTB IS LOGICALLY CONNECTED 


215+CTBlHELli 


EQU 


X» 


04 • , 


5 


CONVERSATION IN PROGRESS WAS HELD 


2L6+CT61PCN1 


EQU 


X' 


02* < 


6 


PRESET CNT 


2L7+CTB1PSMB 


EQU 


X' 


01 • 


. 7 


PRESET SMB 


2 19+CTBFLAG2 


DS 


c 


• 






220+CTB2NOIN 


EQU 


x« 


SO 1 


, C 


NO INPUT 


221+CTB2NGOU 


EQU 


X" 


40' 


. 1 


NO OUTPUT 


222+CT82N0QU 


EQU 


x« 


20' 


. 2 


NO QUEUE I NG 


223+CTB2L0CK 


EQU 


X' 


13* 


3 


LOCKED 


224+CTB2TEST 


EQU 


X' 


08 « 


. 4 


TEST MODE 


225+CTB2EXCL 


EQU 


x« 


04 • . 


. 5 


EXCLUSIVE MODE 


226+CTB2INUP 


EQU 


x« 


02' 


. 6 


INOPERABLE 


227+CTB2EDIT 


EQU 


X' 


01 • 


. 7 


USER OUTPUT EDIT REQUESTED 


229+CTBFLAG3 


DS 


c 


• 






230+CTB3READ 


EQU 


x« 


80 » 


. 


INPUT ONLY DEVICE 


231+CT83QSYS 


EQU 


X' 


40' 


. 1 


QUEUE ALL SYSTEM MESSAGES 


232+CTB3LGOP 


EQU 


X 1 


20 • 


. 2 


LOOP TEST PENDING 


233+CTB3CHE 


EQU 


X' 


10' 


. 3 


LINE DISCONNECT REQUESTED 


234+CTB3QERR 


EQU 


X' 


08' 


. 4 


ERROR ON GET NEXT FOR OUTPUT 


235+CTB3QMSG 


EQU 


X' 


04 * 


. 5 


QUEUE CAUSE OF ERROR WITH SYSMSG 


236+CTB3LAST 


EQU 


X' 


02* 


. 6 


LAST CTB ON THIS LINE 


237+CTB3SEG1 


EQU 


X' 


01 « 


. 7 


FIRST SEGMENT 


239+CTBFLAG4 


DS 


c 


• 






240+CTB4CNCL 


EQU 


X« 


80* , 


. 


DEQUEUE MESSAGE IN PROCESS REQUESTED 


241+CTB40UTP 


EQU 


X 1 


40 * 


OUTPUT ONLY TERMINAL 


242 + * 


EQU 


x« 


20* 


, 2 


NOT USED 


243 + * 


EQU 


X 1 


10' 


. 3 


NOT USED 


244 + * 


EQU 


x« 


08' 


. 4 


NOT USED 


245 + * 


EQU 


X" 


04 • 


. 5 


NOT USED 


246 + * 


EQU 


x« 


02' 


. 6 


NOT USED 


247 + * 


EQU 


X' 


0L« 


. 7 


NOT USED 


249+CTBACTL 


DS 


c 


• 


FLAGS TO BE USED BY ANALYZER 


250+CTBAINP 


EQU 


x< 


80 • , 


. 


0=OUTPUT NEXT, 1= INPUT NEXT 


251+CTBAEOM 


EQU 


X' 


40* 


. 1 


1=END OF OUTPUT MSG 


252+CTBASHUT 


EQU 


X' 


20 • 


. 2 


1=SYSTEM SHUTDOWN 


253+CTBAINC 


EQU 


X' 


10 • 


. 3 


1=INC0RE SYSTEM MESSAGE 



5.9 



STMT 



SOURCE STATEMENT 



F150CT70 3/27/72 



254+CTBAMULT EQU X»08« . 4 
255+CTBAERR EQU X«04' . 5 



REJECT IF NOT MULTIPLE SEGMENT MESSAGE 
ERROR FOUND ON LAST SEGMENT PASSED 



257+CT8DCTL DS C 
258+CT8DCTL2 DS C 



FLAGS 
FLAGS 



USED BY 
USED BY 



DD ROUTINES 
DO ROUTINES 



260+CTBFEAT DS C . 

261+CTBFSYN1 EQU X»08' 

262+CTBFSYN2 EQU X»04' 

263+CTBFPAGE EQU X'02« 

264+CTBFNAPD EQU X'Ol' 



FEATURES FLAGS 
ASYNCHRONOUS DEVICE, 
ASYNCHRONOUS DEVICE, 
PAGING IN PROCESS 
AUTOMATIC PAGE DELETION 



SYNC 
SYNC 



FLAG 
FLAG 



NOT REQUESTED 



266+CT 
267+CT 
268+CT 
269+CT 
270+CT 
271+CT 
272+CT 
273+ CT 
274+CT 



8COMP 
BC1NA 
BC1IP 
BC2NA 
BC2IP 
BC3NA 
BC3IP 
3C4NA 
8C4IP 



DS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



C . COMPONENTS TWO BITS FOR EACH 

X'SO' COMPONENT 1 IS NOT ATTACHED 3088 

X»40' COMPONENT 1 IS INOPERABLE 3088 

X»20« COMPONENT 2 IS NOT ATTACHED 3088 

X*10' COMPONENT 2 IS INOPERABLE 3088 

X»08» CONPONENT 3 IS NOT ATTACHED 3088 

X»04» COMPONENT 3 IS INOPERABLE 3088 

X»02« COMPONENT 4 IS NOT ATTACHED 3088 

X'Ol" COMPONENT 4 IS INOPERABLE 3088 



276+CTBINCT DS H 

277+CTBOUTCT DS H 

278+CTBCPMP DS H 

279+CTSCNTP OS H 

280+CT8PREST DS H 

281+CT3C0B DS H 

282+CTBCCB DS H 

283+CTBCXB DS H 

284+CTBPGNO DS H 



INPUT MSG COUNT 

OUTPUT MSG COUNT 

PASSWORD MATRIX POINTER 

LOGICAL TERMINAL POINTER 

PRESET DESTINATION OFFSET 

OFFSET TO COMMUNICATION OVERFLOW BLOCK 

OFFSET TO CONVERSATIONAL CONTROL BLOCK 

COMMUNICATION EXTENT BLOCK POINTER 

CURRENT PAGE BEING VIEWED 



5.10 



MESSAGE SWITCHING (INPUT) EDIT 

A facility similar to the transaction code (input) edit is provided 
for message switching. The optionally supplied, user-written routine, 
whose CSECT and load module name must be DFSCNTEO, is included in the 
user's system at IMS/360 system definition time. Only one message 
switching edit routine may be specified for an IMS/360 online control 
program. This routine is specified for inclusion with the online 
control program during system definition. The interface between the 
IMS/360 control program and the user-supplied message switching edit 
routine is the same as previously defined for the transaction code 
edit routine. 



EXAMPLE OF MESSAGE SWITCHING EDIT 

The user-supplied edit routine might be used to identify, in the 
text of the output message to the output terminal, the logical terminal 
name and message number from which the message was entered. 

Assume the following message being entered from a logical terminal 
named 'XSYSI 1 and is input message number one. 

ABC SEND ALL XYZ MSGS TO THIS TERMINAL 

The message as received at the output terminal associated with 
logical terminal name ABC has the input logical terminal name and input 
message number appended to it by the user's edit routine. 

ABC SEND ALL XYZ MSGS TO THIS TERMINAL XSYSI 1 

In this example, the logical terminal input name is used. This 
name exists within the IMS/360 control block for the input logical 
terminal, the Communication Name Table (CNT) . The CNT is addressed 
by a field in the Communication Line Block called CLBCNTPT. The field 
in the CNT containing the logical terminal name is called CNTNAME. 
The reader is referred to the IMS/360 control blocks in Volume I of 
the IMS/360 System Manual (LY20-0629) . 

Upon entry to the message switching edit routine, the register 
interface is identical to that for transaction code input edit routines. 

The following is an example of the message switching edit. 
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STMT SOURCE STATEMENT 



F01MAY72 2/13/73 



1 *********************************************************************** 

2 * USER EDIT ROUTINE FOR MESSAGE SWITCHING * 

4 * * 

5 * THE LOGICAL TERMINAL NAME OF THE INPUTTING TERMINAL AND * 

6 * THE MESSAGE NUMBER ARE AODED TO THE END OF THE MESSAGE * 



9 DFSCNTEO CSECT 



10 

11 + 

12 + 
13 
14 
15 
16 
17 
18 
19 * 
20 



SAVE (14,12) 
DS OH 

STM 14,12*12(13) 
LR R12,R15 
USING DFSCNTEO, R12 
USING CNT,R6 
USING CT8,R7 
USING IECTDECB,R9 
US IMG SCD,R11 



SR 



R15,R15 



SAVE REGISTERS 

* ESTABLISH 

* ADDRESSABILITY 



CLB POINTER 



CLEAR RETURN CODE 



22 ************ 

23 * 

24 L 

25 SR 

26 IC 

27 SLL 

28 IC 

29 AR 



FINO THE END OF THE PRE-EOITED MESSAGE *************** 



R5, DEC ARE A 

R4,R4 

R4,0(,R5) 

R4,8 

R4,1(,R5) 

R5,R4 



POINT TO MESSAGE 

CLEAR WORK REG 

LOAD D OF »DL» 

SHIFT TO MAKE ROOM FOR 

INSERT »L» 

R5= END OF MESSAGE 



•L» 



31 ************ 

32 * 

33 LH 

34 A 

35 MVC 



GET LOGICAL TERMINAL NAME, AND ADO IT TO MSG 



R6,CTBCNTP 

R6,SCDCNT 

1(5,R5),CNTNAME 



OFFSET TO CNT 

R6= ADDR OF INPUTTING CNT 

INSERT 5 CHARS OF HAME 



********* 
* 



37 ************ 

38 * 

39 LH 

40 CVD 

41 UNPK 

42 01 

43 MVC 

44 MVI 



NOW FIND AND INSERT MESSAGE NUMBER 



******************* 

* 
R3,CTBINCT LOAD MSG NUMBER 

R3,MSG»MUMP 

MSGNUM(4),MSGNUMP+4(4) * CONVERT TO 
MSGNUM+3,240 * CHARACTERS 

7(3,R5),MSGNUM+1 SLIDE NUMBER NEXT TO NAME 

6{R5),C» • BLANK SEPARATOR 



46 ************ 

47 * 

48 SR 

49 LA 

50 STC 

51 SRL 

52 STC 



CHANGE »DL« TO REFLECT NEW MSG LENGTH 



R5,R4 

R4,9(,R4) 

R4,1(,R5) 

R4,8 

R4,0(,R5) 



* 
R5= START OF MSG (DL) 
NEW LENGTH IS 9 MORE 
REPLACE «L» 

REPLACE »D» 
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STMT SOURCE STATEMENT 

RETURN ROUTINE 



54 ************ 

55 * 

56 L R14,12(,R13) 

57 * 

58 RETURN (0,12) 

59+ LM 0,12,20(13) RESTORE THE REGISTERS 

60+ BR 14 RETURN 



F01MAY72 

*************************************** 

* 
FETCH RETURN ADDRESS 
R13 STILL GOOD, R15=RC 



2/13/73 



62 ************ 


CONSTANTS 


63 * 




64 MSGNUMP DS 


D 


65 MSGNUM DS 


F 


66 * 




67 LTORG 





******************************************** 

* 



69 REQUATE 

70+*********************************************************************** 

71+* * 

72+* REGISTER EQUATES * 

73+* * 

74^.*********************************************************************** 



76+RO 


EQU 





77+R1 


EQU 


1 


78+R2 


EQU 


2 


79+R3 


EQU 


3 


80+R4 


EQU 


4 


81+R5 


EQU 


5 


B2+R6 


EQU 


6 


83+R7 


EQU 


7 


84+R8 


EQU 


8 


85+R9 


EQU 


9 


86+R10 


EQU 


10 


87+R11 


EQU 


11 


88+R12 


EQU 


12 


89+R13 


EQU 


13 


90+R14 


EQU 


14 


91+R15 


EQU 


15 
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STMT SOURCE STATEMENT 



F01MAY72 2/13/73 



93 ICLI CLBBASE=0,CNTBASE=0,CTBBASE=0 

94+*:^ ***♦****$**** *****^*****^ 

93+* 

96+* CLB - COMMUNICATION LINE BLOCKS DSECT. DSECT NAME IS IECTDECB. 

97+* 

98+*********************************************************************** 

99+IECTOECB DSECT DECB DUMMY SECTION 



100+* 
101+* 




+ 








+ 


102+* 





+ 


STANDARD EVENT 


CONTROL BLOCK 


+ 


103+* 
104+* 
105+* 




+ 








+ 
— + 

+ 




+ 




•*• 




106+* 


4 


+ 


OPERATION 


TYPE + 


AREA LENGTH 


+ 


107+* 
108+* 
109+* 




+ 




+ 




+ 
-+ 

+ 




+ 


ON-LINE + 






110+* 


8 


+TERMINAL + 


ADDRESS OF DCB 


+ 


111+* 
112+* 
113+* 




+ 


TEST + 






+ 




+ 


+ 






■■■'+ 

+ 


114+* 


12 


+RESERVED + 


ADDRESS OF AREA 


+ 


115+* 




+ 


+ 






+ 


116+* 
117+* 




+""* 








. 




+ 




+ 




■ t 

+ 


118+* 


16 


+ 


SENSE BYTES + 


RESIDUAL COUNT 


+ 


119+* 
120+* 
121+* 




+ 


1 £ 


2 + 




+ 
— + 

+ 




+ 


+ 






122+* 


20 


+ 


COMMAND I 


ADDRESS 


OF TERMINAL LIST 


+ 


123+* 
124+* 
125+* 




+ 


CODE + 






+ 




+ 


+ 


RELATIVE + 


+ 


— + 

+ 


126+* 


24 


+ 


STATUS + 


LINE + 


ADDRESS + VRC/LRC 


+ 


127+* 
12 8+ * 
129+* 




+ 


FLAGS + 


NUMBER + 


RESPONSE* RESPONSE 


+ 




+ 


+ 


+ 




— + 

+ 


130+* 


28 


+ 


TP-OP + 


ERROR + 


CSW STATUS 


+ 


131+* 




+ 


CODE + 


STATUS + 




+ 


132+* 




+- 











— + 


133+* 




+ 


+ 






+ 


134+* 


32 


♦RESERVED + 


ADDRESS OF CURRENT 


+ 


135+* 




+ 


+ 


ADDRESSING ENTRY 


+ 


136+* 
13 7+* 




+- 

+ 








. 




+ 






+ 


138+* 


36 


+RESERVED + 


ADDRESS OF CURRENT 


+ 


139+* 
140+* 
141 +* 




+ 


+ 


POLLING ENTRY 


+ 




+ 


+ 


+ 




"' '"fr 

+ 


142+* 


40 


+RESERVED +RESERVED + 


WRITE AREA LENGTH 


+ 


143+* 
144+* 
145+* 




+ 


+ 


+ 




+ 




+ 


+ 






+ 


146 +* 


44 


+RESERVED + 


ADDRESS 


OF WRITE AREA 


+ 


147+* 




+ 


+ 






+ 


STMT 


SOURC E 


r STATEMENT 








148 +* 






—_——___ 


__________ 








F01MAY72 2/13/73 
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STMT SOURCE STATEMENT 



F01MAY72 2/13/73 



150+DECSDECB DS 

152+DECTYPE DS 

154+DECLNGTH DS 

136+DECONLTT DS 
157+DECDCBAD DS 

159+DECAREA DS 

161+DECSENSO DS 

163+DECSENS1 DS 

165+DECCOUNT DS 

167+DECCMCOD DS 
168+DECENTRY DS 



IF STATUS FLAG ♦ ADDRESS OF THE TCB 
1H OPERATION TYPE 
1H AREA LENGTH 

OCL1 RESERVED FOR ON-LINE TERMINAL TEST 

IF ADDRESS OF DCB 

IF ADDRESS OF AREA 

1C 1ST SENSE BYTE 

1C 2ND SENSE BYTE 

1H RESIDUAL COUNT 

OCL1 COMMAND CODE 

IF ADDRESS OF TERMINAL LIST 



171+DECFLAGS DS 

173+DECRLN DS 

175+DECRESPN DS 

177+DECTPCOD DS 

179+DECERRST DS 

181+DECCSWST DS 

183+DECADRPT DS 

185+DECPQLPT DS 

187+ DS 

189+DECWLNG DS 

191+DECWAREA DS 

193+CLBDECB EQU 
194+CLBRCNTR DS 

196 +CLB FLAG 1 DS 

197+CLB1COB EQU 

198+CLB1TEST EQU 

199+CLB1IBUF EQU 

200+CLB10BUF EQU 

201+CLB1TEMQ EQU 

202+* EQU 

203+CLB1RESP EQU 

204+* EQU 



1C STATUS FLAGS 

1C RELATIVE LINE NUMBER 

1H RESPONSE FIELDS 

1C TP-QP CODE 

1C ERROR STATUS 

1H CSW STATUS 

IF ADDRESS OF CURRENT ADDRESSING ENTRY 

IF ADDRESS OF CURRENT POLLING ENTRY 

2C RESERVED 

1H WRITE AREA LENGTH 

IF ADDRESS OF WRITE AREA 

DECSDECB 

1C RETRY COUNTER 



C . 

X«SO» 

X»40» 

X»20» 

X«10» 

X«08« 

X»04» 

X«02» 

X«01« 



BIT USAGE 

- COB REQUIRED FOR CTB'S ON THIS LINE 

1 - TEST RECYCLE REQUEST 

2 - INPUT BUFFER ALLOCATED 

3 - OUTPUT BUFFER ALLOCATED 

4 - USE TEMPORARY QUEUE 

5 - RESERVED FOR FUTURE USE 

6 - RESPONSE WAITING 
7 - RESERVED FOR FUTURE USE 
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206+CLBFLAG2 


DS 


C 




207+CLB2N0IN 


FQU 


X»80* 


• 


208+CLB2N00U 


EQU 


X»40» 


• 


209+CLB2NOQU 


EQU 


X»20» 


• 


210+CLB2RSS 


EQU 


X«10» 


• 


211+CLB2IDLE 


EQU 


X^OS 1 


• 


212+CLB2INP 


ECU 


X»04» 


• 


213+CLB20UTP 


EQU 


X»02» 


• 


214+CL62AUTQ 


EQU 


X»01« 


m 


216+CLBFLAG3 


DS 


C - 




217+CLB3INP 


EQU 


X»80« 


m 


218+CLB3CSUB 


EQU 


X»40» 


• 


219+CLB3DOPN 


EQU 


X«20» 


• 


220+CLB3STOP 


EQU 


X»10« 


• 


221+CLB3CBUF 


EQU 


X«08» 


4 


222.+CLB3ICMD 


EQU 


X»04» 


5 


223+CLB3CL40 


EQU 


X«02» 


• 


224+* 


EQU 


X»01» 


• 


226+CLBCI8 


DS 


F . 




227+C LB TEMPI 


DS 


F . 




228+CLBTEMP4 


DS 


F . 




229+CLBTEMP5 


DS 


F . 





- NO INPUT ALLOWED 

1 - NO OUTPUT ALLOWED 

2 - DO NOT QUEUE ON THIS LINE 
4 - CONCENTRATOR LINE 

4 - IDLE LINE 

5 - INPUT IN CONTROL 

6 - OUTPUT IN CONTROL 

7 - AUTOPOLL 



- 0=OUTPUT NEXT, 1=INPUT NEXT ON THIS LINE 

1 - COMMAND ENTERED AS NON-FIRST SEGMENT 

2 - LINE IS OPENED DYNAMICALLY 

3 - LINE HAS BEEN IDLED FOR SHUTDOWN 
CONDENSED BUFFER ALLOCATED 
INTERNAL COMMAND IN PROGRESS 

6 - STATUS CHANGED BY CL40 
7 - RESERVED FOR FUTURE USE 

POINTER TO CURRENT CIB 

USED FOR TEMPORARY STORAGE 
USED FOR TEMPORARY STORAGE 



231+CLBCSID 

232+* 

233+* 

234+CLBCSCVB 

235+=* 

236+CLBCSFND 

237+CLBCSSMB 

238+* 

239+CLBCSDST 

240+CLBCSACT 



DS 



EQU 

EQU 
EQU 

EQU 
EQU 



OC . FIND DEST FIELD 



X»20» . 

X»08» . 
X • 04 » . 

X«02» . 
X»01» . 



DL/1 USE 

RESTART IN PROGRESS 

CVB FOUND AS DESTINATION 
ALWAYS FOR CL8 
CNT/SMB NOT FOUND 

CNT FOUND 
SMB FOUND 

FNDDST ENTERED (CLBCNTP POINTS TO DEST) 
ACTIVE POLLING LIST 



242+CLBPOLAD DS F • 

243+CLBCTBPT DS H . 

244+CLBCRCTB DS H . 

245+CLBCNTQB DS 2F , 

246+CLBCTBPS DS H . 

247+CLBDPOLC DS C 

248+CLBDCTL DS C . 

249+CLBINBUF DS F . 

250+CL800TBF DS F . 
25 1+* 



POLLING LIST ADDRESS 
FIRST CTB ON LINE 
CURRENT CTB 
QCB FOR CNTS FOR OUTPUT 



CLB DEVICE CONTROL BYTE (USED BY DDM) 
INPUT BUFFER POINTER 
OUTPUT BUFFER POINTER 
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233+********************************************** 

254+* 

255+* CTB - COMMUNICATION TERMINAL BLOCKS DSECT. 

256+* 

257+*****«***^**** 3 « c ****^***^****** 3 » : **************************************** 

258+CTB DSECT 

259 +CTB TYPE DS C . CTT NUMBER 

260+CTBLINE OS C . LINE NUMBER 

261+CTBTERM DS 3C . TERMINAL ADDRESS 



263+CTBFLAG1 


DS 


C 


• 








264+CTB1C0NV 


EQU 


X' 


80 • 


• 





THIS CTB IN CONVERSATION 


265+CTB1MAST 


EQU 


X' 


'40« 


• 


1 


MASTER TERMINAL 


266+CTB1SUBP 


EQU 


x« 


20» 


• 


2 


SUBPOOL CTB 


267+CTB1DIAL 


ECU 


X' 


10 • 


• 


3 


DIAL CTB IS PHYSICALLY CONNECTED 


268+CTB1SIGN 


EQU 


X' 


»08» 


• 


4 


DIAL CTB IS LOGICALLY CONNECTED 


269+CTB1HELD 


EQU 


X" 


»04» 


• 


5 


CONVERSATION IN PROGRESS WAS HELD 


270+CTBlPCNT 


EQU 


X' 


'02« 


• 


6 


PRESET CNT 


271+CTB1PSMB 


EQU 


x« 


, 01« 


• 


7 


PRESET SMB 


273+CTBFLAG2 


DS 


c 


• 








274+CTB2NQIN 


EQU 


x< 


80* 


. 





NO INPUT 


275+CTB2NOOU 


EQU 


X' 


'40« 


* 


1 


NO OUTPUT 


276+CTB2NOQU 


EQU 


X 


»20« 


» 


2 


NO QUEUEING 


277+CTB2LOCK 


EQU 


X" 


'lO* 


• 


3 


LOCKED 


278+CTB2TEST 


EQU 


X« 


'08* 


• 


4 


TEST MODE 


279+CTB2EXCL 


EQU 


X 


»04» 


• 


5 


EXCLUSIVE MODE 


280+CTB2INOP 


EQU 


X 


'02 • 


• 


6 


INOPERABLE 


281+CTB2EDIT 


ECU 


x« 


'01» 


- 


7 


USER OUTPUT EDIT REQUESTED 


283+CTBFLAG3 


DS 


c 










284+CTB3READ 


EQU 


X' 


'80« 


. 





INPUT ONLY DEVICE 


285+CT63QSYS 


EQU 


x 


»40« 


• 


1 


QUEUE ALL SYSTEM MESSAGES 


286+CTB3L00P 


ECU 


X 


►20« 


• 


? 


LOOP TEST PENDING 


287+CTB3CHE 


EQU 


X 


»10» 


• 


3 


LINE DISCONNECT REQUESTED 


288+CTB3QERR 


EQU 


X 


•08« 


.. 


4 


ERROR ON GET NEXT FOR OUTPUT 


289+CTB3QMSG 


EQU 


X 


»04» 


• 


5 


QUEUE CAUSE OF ERROR WITH SYSMSG 


290+CTB3LAST 


EQU 


X' 


»02« 


„ 


6 


LAST CTB ON THIS LINE 


291+CTB3SEG1 


EQU 


X 


»01» 


m 


7 


FIRST SEGMENT 


293+CTBFLAG4 


DS 


c 










294+CTB4CNCL 


EQU 


X 


»80» 


■ m 





DEQUEUE MESSAGE IN PROCESS REQUESTED 


295+CTB40UTP 


EQU 


X 


'40' 


• 


OUTPUT ONLY TERMINAL 


296+CTB4TRAC 


EQU 


X 


»20» 


• 


2 


TRACE REQUESTED 


297+* 


EQU 


X 


»10» 


m. 


3 


NOT USED 


298+* 


EQU 


X 


'08 • 


• 


4 


NOT USED 


299+* 


EQU 


X' 


►04» 


* 


5 


NOT USED 


300 +* 


EQU 


X 


»02« 


• 


6 


NOT USED 


301+* 


EQU 


X 


'01» 


- 


7 


NOT USED 


303+CTBACTL 


DS 


c 






FLAGS TO BE USED BY ANALYZER 


304+CTBAINP 


EQU 


X 


»80» 


• 





0=OUTPUT NEXT, 1= INPUT NEXT 


305+CTBAEOM 


EQU 


X 


•40« 


• 


1 


1=END OF OUTPUT MSG 


306+CTBASHUT 


EQU 


X 


•20* 


• 


2 


1=SYSTEM SHUTDOWN 


307+CTBAINC 


EQU 


X 


»10» 


• 


3 


1=INC0RE SYSTEM MESSAGE 
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308+CTBAMULT EQU 
309+CTBAERR EQU 
310+CTBASAVL EQU 



X»08» - 4 REJECT IF NOT MULTIPLE SEGMENT MESSAGE 
X , Q4» . 5 ERROR FOUND ON LAST SEGMENT PASSED 
X»02» . 6 STATION AVAILABLE 



312+CTBDCTL OS C 
313+CTBDCTL2 DS C 



FLAGS USED BY DD ROUTINES 
FLAGS USED BY DD ROUTINES 



315+CTBFEAT DS 
316+CTBFSYN1 EQU 
3I7+CTBFSYN2 EQU 
318+CTBFPAGE EQU 
319+CTBFNAPD EQU 



C . 

X'08 1 

X«04« 

X«02» 

X»01» 



FEATURES FLAGS 

4 ASYNCHRONOUS DEVICE, SYNC FLAG 1 

5 ASYNCHRONOUS DEVICE, SYNC FLAG 2 

6 PAGING IN PROCESS 

7 AUTOMATIC PAGE DELETION NOT REQUESTED 



321+CTBCOMP 
322+CTBC1NA 
323+CTBC1IP 
324+CTBC2NA 
325+CTBC2IP 
326+CTBC3NA 
327+CTBC3IP 
328+CTBC4NA 
329+CTBC4IP 



DS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



C . COMPONENTS TWO 

X»80« . COMPONENT I 

X«40» . 1 COMPONENT 1 

X«20» - 2 COMPONENT 2 

X»10» . 3 COMPONENT 2 

X*0&* ^ 4 COMPONENT 3 

X»04» . 5 COMPONENT 3 

X»02» - 6 COMPONENT 4 

X»01» . 7 COMPONENT 4 



BITS FOR EACH 
IS NOT ATTACHED 
IS INOPERABLE 
IS NOT ATTACHED 
IS INOPERABLE 
IS NOT ATTACHED 
IS INOPERABLE 
IS NOT ATTACHED 
IS INOPERABLE 



331+CTBINCT DS H . 

332+CTBOUTCT DS H . 

333+CTBCPMP OS H . 

334+CTBCNTP DS H . 

335+CTBPRT DS OH , 

336+CTBPREST DS H - 

337+CTBCOB DS H . 

338+CTBCC8 DS H . 

339+CTBCRB OS OH . 

340+CTBCHAIN DS OH , 

341+CTBCXB DS H . 

342+CTBCIB DS OH . 

343+CTBPGNO DS H - 



INPUT MSG COUNT 

OUTPUT MSG COUNT 

PASSWORD MATRIX POINTER 

LOGICAL TERMINAL POINTER 

CURRENT PRINT POINTER 

PRESET DESTINATION OFFSET 

OFFSET TO COMMUNICATION OVERFLOW BLOCK 

OFFSET TO CONVERSATIONAL CONTROL BLOCK 

COMMUNICATION RESTART BLOCK POINTER 

COMMUNICATION EXTENT BLOCK POINTER 
COMMUNICATION INTERFACE BLOCK POINTER 
CURRENT PAGE BEING VIEWED 
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346+* 

347+* CNT - COMMUNICATION NAME TABLES DSECT. 

348+* 

349 +**#******************************************************************** 

350+C?4T DSECT 

351+CNTQE DS 2F . QE FOR CNT OFF CLB 

352+CNTQCBOQ DS A DRRN OF NEXT MESSAGE TO READ 

353+CNTQCBEQ DS A DRRN OF LAST MESSAGE WRITTEN 



355+CNTQFLG1 DS 

356+* EQU 

357+* EQU 

358+* EQU 

359+* EQU 

360+* EQU 

36 1+* EQU 

362+* EQU 



C CNT QUEUE FLAG 1 



X»80» 
X«40» 
X»20« 
X»10« 
X«08» 
X»04 l 
X»02» 



QUEUE READ IN PROCESS 
QUEUE 1 HAS MESSAGE ENQUEUED 
QUEUE 2 HAS MESSAGE ENQUEUED 
QUEUE 3 HAS MESSAGE ENQUEUED 
QUEUE 4 HAS MESSAGE ENQUEUED 
MESSAGE EXISTS IN BACKUP QUEUE 
QCBDQ POINTS TO QUEUE BLOCK RECORD 



364+CNTQFLG2 DS 

365+* EQU 

366+* ECU 

367+* EQU 

368+* EQU 

369+* EQU 



C CNT QUEUE FLAG 2 

X»80« THIS DESTINATION IS PERMANENT 

X»40» AVERAGE LENGTH IS AVAILABLE 

X»20» ENQ/DEQ COUNT IS AVAILABLE 

X»10« NAME FIELD EXISTS 

X'OF* DESTINATION TYPE THRU 15 



371+CNTQAVGL DS 
372+CNTDQCT DS 
373+CNTNQCT DS 
374+CNTNAME DC 



H AVERAGE MESSAGE LENGTH FOR DESTINATION 
H NUMBER OF MESSAGES DEQUEUED 
H NUMBER OF MESSAGES ENQUEUED 
D«0» LOGICAL TERMINAL NAME 



376+CNTFLAG1 DS 

377+CNT1EDIT EQU 

378+CNT1MAST EQU 

379+CNT1N0QU EQU 

380+CNT1NOSE EQU 

381+CNT1L0CK EQU 

382+CNT1SIGN EQU 

383+CNT1QERR EQU 

384+CNT1CNT EQU 



C CNT FLAG 1 

X«80» USER EDIT ROUTINE 

X»40» MASTER TERMINAL CNT 

X»20« DO NOT QUEUE ON THIS CNT 

X'lO' DO NOT SEND TO THIS CNT 

X«08» CNT IS LOCKED 

X I 04» SIGN ON SPECIFIED LTERM ONLY 

X«02» I/O ERROR OCCURED ON QUEUE 

X«01» ALWAYS ZERO, INDICATES CNT 



386+CNTFLAG2 DS 
387+CNT2UPP EQU 
388+CNT2PAGE EQU 
389+CNT2AERR EQU 
390+* EQU 
39 1+* EQU 
392+* ECU 
393+CNT2SUB EQU 
394+CNT2INQ EQU 



C CNT FLAG 2 

X»80» UPPER CASE TRANSLATION REQUESTED 

X»40« PAGED MESSAGE IN PROCESS 

X»20« SYSTEM ERROR MSG PLACED IN Q BY DFSCLMRO 

X»10« RESERVED FOR FUTURE USE 

X»08« RESERVED FOR FUTURE USE 

X«04» RESERVED FOR FUTURE USE 

X»02» SUB POOL CNT 

X«01» INQUIRY ONLY CNT 



396+CNTCTBP DS 

397+CNTCNTP DS 

398+CNTCPMP OS 

399+CNTCMPNT DS 



H CTB POINTER 

H POINTER TO NEXT CNT ON SAME CTB 

H PASSWORD MATRIX POINTER 

C COMPONENT POINTER 
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402 ISCD SCDBASE=0 

403+SCD DSECT 

404+*** ******************************** *** 
405+** *********************************** 
406+** ** 

407+** IMS SYSTEM CONTENTS DIRECTORY (SCD) ** 

408+** ** 

409+** *********************************** 
410+*** ******************************** *** 



412+SSCDORG 


DS 


413+SSCDSVC1 


SVC 


414 + 


6R 


415+SSCDSVC2 


SVC 


416+ 


BR 


417+SSCDSVC3 


SR 


418+ 


BR 


419+SSCDSVC4 


SVC 


420 + 


BR 


421+SSCDOCEP 


DC 


422 +SSC DOS PS 


DC 


423+SSCDOSLV 


DC 


424+SSCDIMSR 


DC 


425+SSCDIMSL 


DC 


426+SSCDASPS 


DC 


427+SSCDASLV 


DC 


428+SSCDDESC 


DC 


429 + 


DC 


430+SSCDROUT 


DC 


431 + 


DC 


432+DFSXWAIT 


DC 


433+DFSXIOBA 


DC 


434+DFSXOPEN 


DC 


435+SSCDMCID 


DC 


436+ 


DC 


437+ 


DC 



OD SECONDARY SCD ORIGIN 

USER TYPE 1 SVC NUMBER 

14 RETURN ON REGISTER 14 

USER TYPE 2 SVC NUMBER 

14 RETURN ON REGISTER 14 

15rl5 CLEAR REGISTER 

14 RETURN ON REGISTER 14 

255 USER TYPE 4 SVC NUMBER 

14 RETURN ON REGISTER 14 

CL2»Z9« OSAM CHANNEL END APPENDAGE SUFFIX 

X»10» OS/360 SYSTEM CONFIGURATION 

ALU 18) OS/360 RELEASE LEVEL SPECIFIED 

ALKO) IMS RELEASE NUMBER. 

ALKO) IMS MOD LEVEL NUMBER. 

X«00« SYSTEM CONFIGURATION - ACTUAL 

ALKO) OS/360 RELEASE LEVEL - ACTUAL 

ALKO) MCS DESCRIPTOR CODE 

AL3{0) RESERVED FOR OS/360 EXPANSION 

AL2(0) MCS ROUTING CODES 

AL2(0) RESERVED FOR OS/360 EXPANSION 

V(OFSIWAIT) IWAIT EP ADDRESS 

VIDFSI0S40) OSAM IOB QCB 

A(DFSXOPEN) OSAM OPEN EP 

ALKO) CONSOLE ID - START IMS COMMAND. 

AL3(0) RESERVED 

F»0» RESERVED 
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440+* * * 
44 1+* 
442+* 
443+* 



******************************** 



RECORDER 



LOG 



SECTION: 



444+* :4c************:**********:************ 



446+SCDREENT DC 
447+SCDREDCB DC 
448+SCDREWRK DC 
449+SCDREPLN DC 



V(DFSFLOIO) RECORDER ENTRY POINT 
A(O) DCB AND WKAREA LIST ADDRESS 
V(DFSILOGW) WORK AREA FOR THE LOGGER 
^28* LENGTH OF LOG PREFIX IN BYTES 



4 51+ *** |_oG CONTROL BYTE *** 
452+SCDRECTL DC X«0000» 
453+SCDLGOPN EQU X'80* LOG IS OPEN 
454+SCDLGTRM EQU X»40» LOG SMBTASK DETACHED 



456+SCDRELCT DC 
457+SCDRECCT DC 
458+SCDRPENT DC 
459+SCDRTECB DC 
460+SCDRTCB DC 
461+SCDRETXR DC 
462+SCDRPFX DC 
463+SCDDBLNT DC 
464+SCDCWRK DC 
465+SCDCWRKL DC 
466+SCDCPNO DC 
467+SCDDATE DC 
468+SCDTIME DC 
469+SCDSEQ DC 
470+SCDRGTYP DC 
471+SCDDBDCB DC 
472+SCDDBLBA DC 
473+SCDDBWRP DC 
474+SCDDBLBN DC 
475+SCDLLOGL DC 
476+SCDLLREA DC 



H»500» CHECKPOINT LOG FREQUENCY CONTROL REFERENCE 

H«500« CURRENT LOG FREQUENCY COUNTER, CPT AT ZERO 

A10) ENTRY TO LOG WRITER 

F»0» LOG TASK TERMINATE ECB 

A(O) LOG TASK CONTROL BLOCK ADDRESS 

A(O) RESERVED 

V(DFSIPREF) ENTRY TO LOG PREFIX BUILDER 

A(SCDDBLNT) ENTRY TO DATABASE CHANGE LOGGING ROUTINE 

F»0» CHECKPOINT/DB LOG WORK AREA ADDRESS 

H»512« LENGTH OF CHECKPOINT/DB LOG WORK AREA 

H»0» CHECKPOINT NUMBER 

F»0» DATE FOR RESTART/DATABASE LOG 

F»0« TIME FOR RESTART/DATABASE LOG 

H«0" DATABASE LOG SEQUENCE NUMBER 

AL1(0,0) REGION TYPE {0=CTL,3=DLI ) 

ACO) ADDRESS OF DATABASE LOG DCB 

F»0« ADDRESS OF BUFFER AREA 

F»0« ADDRESS OF DATA SET WRAPAROUND POINTER 

H«0» NUMBER OF BUFFERS 

H«0« LENGTH OF LOG AREA 

F«0» REAL ADDRESS OF LOG WKAREA 
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478+* *********************************** 
479+* * 

480+* DATA LANGUAGE/I £ OSAM SECTION: * 

481+* * 

482+* *********************************** 



484+SCDDLICT DC 

485+SCDDLIMQ DC 

486+SCDISAM DC 

487+SCDDLARE EQU 

488+SCDDLIRE DC 

489+SCDDLIIN DC 

490+SCDDLIDR DC 

491+SCDDLDAE EQU 

492+SCDDLIHS DC 

493+SCDDLIPS DC 

494+SCDPSBFR DC 

495+SCODLILN DC 

496+SCDDLINO DC 

497+SCDPSBSW DS 

498+SCDDLIDM DC 

499+SCDDLIDL DC 

500+SCDDLIDN DC 

301+SCDDLIPA DC 

502+SCDDLIPL DC 

503+SCDDLIPN DC 

504+SCDDLIBD DC 

505+SCDDHBSW DS 

506+SCDDMBFR DC 

507+SCDPSBMU DC 

50B+SCDDPDM DC 

509+SCDACBDC DC 

510+SCDPSBPL DC 

511+SCDDMBPL DC 

512+SCDLLQGD DC 

513+SCDDLIMV DC 

314+SCDDSST DC 

515+SCDDLICL DC 

516+SCDDLI07 DC 

517+SCDWQCB DC 

S18+SCDBPARM DC 

519+SCDASE DC 

520+SCDDBFPL DS 

521+SCDDDBHO DC 

522+SCDDHDSO DC 

523+SCDDXMTO DC 

524+SCDDBCVT DC 

525+SCDOIOBS EQU 

526+SCDQOPEN EQU 

527+SCDIWAIT EQU 

528+SCDSAVE DC 

529+SCDFLOS DC 

530+SCDFLOSR DC 

531+SCDNAVID DS 

532+SCDRLDTE DC 



A(SCDDHCT) DL/I ANALYZER ENTRY POINT (DFSDLAOO) 

A(O) RESERVED 

A(SCDISAM) ISAM SIMULATOR ENTRY POINT 

22 RETURN POINT FROM ANALYZER ENTRY POINT 

A(SCDDLIRE) RETRIEVE MODULE ENTRY POINT 

A(SCDDLIIN) INSERT MODULE ENTRY POINT 

A(SCDDLIDR) DELETE/REPLACE MODULE ENTRY POINT 

18 ALTERNATE ENTRY TO DELETE/REPLACE 

A(SCDDLIHS) HSAM ENTRY POINT 

V(DFSIDIRO) BEGINNING OF PSB DIRECTORY ENTRIES 

A(O) EP TP PSB FREE POOL SPACE ROUTINE 

H«40» LENGTH OF PSB DIRECTORY ENTRY 

H»0« NUMBER OF PSB DIRECTORY ENTRIES 

OXL1 - FREE PSB POOL SPACE 

A(O) BEGINNING OF DMB DIRECTORY ENTRIES 

H»36» LENGTH OF EACH DMB DIRECTORY ENTRY 

H»0« NUMBER OF DMB DIRECTORY ENTRIES 

VCDFSIPST) START OF PST BLOCKS 

H'448» LENGTH OF EACH PST 

H»0» NUMBER OF PST ENTRIES 

ACO) 

OXLl - RELEASE DMB SPACE, 1 - RESERVED 

A(O) ENTRY TO DMB FREE POOL SPACE ROUTINE 

VfDFSIPSBQ) PSB MOST USED QCB ADDRESS 

V(DFSDPDMO) PSB/DMB POOL MANAGER 

V(ACBDCB) ACBLIB DCB POINTER 

F'O 1 

F«0» 

7F»0» 

V(DFSDBLMO) BLOCK MOVER ENTRY POINT 

V(DFSDSSTO) SEGMENT INTENT RESERVATION CSECT 

A(SCDDLICL) DATA MANAGEMENT OPEN/CLOSE ENTRY POINT 

A(SCDDLI07) ENTRY TO DL/I LOAD PROGRAM 

V(DFSPWQCB) DL/I MOVER QCB ADDRESS 

A(O) DL/I REGION PARMS (PXPARMS) 

V(DFSIASEO) APPLICATION SCHEDULER TERMINATOR EP 

A LOCATION OF DL/I BUFFER POOL 

ACO) ENTRY POINT OF DL/I BUFFER HANDLER 

A(O) ENTRY POINT OF GET/FREE SPACE 

A(O) ENTRY POINT OF INDEX MAINTENANCE 

A(O) ENTRY POINT OF BYTE BLOCK CONVERSION 

DFSXIOBA OSAM IOB QCB 

DFSXOPEN OSAH OPEN EP 

DFSXWAIT IWAIT ENTRY POINT ADDRESS 

V(DFSISAVO) ORIGIN OF SAVE AREA SET 

A(O) STAE EXIT ROUTINE ENTRY POINT 

A(O) STAE RETRY ROUTINE ENTRY POINT 

OF 

X«00» 
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533 + S CD SYNC N DC 

534+SCDLQWID DC 

535+SCDFIX DC 

536+ DC 



AL3(0) 

F»0« 

F»0» PGFIX LIST CHAIN POINTER 

5F»0» RESERVED FOR SYSTEM EXPANSION 



8966 
8966 



PAGE 



15 



STMT 



SOURCE STATEMENT 



F01MAY72 2/13/73 



538+* *********************************** 
539+* * 

540+* STORAGE MANAGEMENT SECTION: * 

541+* * 

542+* *********************************** 



544+SCDSMMLO DC 

545+SCDSMML DC 

546+SCDSMMHI DC 

547+SCDSMMGC DC 

548+SCDSMMFC DC 

549+SCDSMMCP DC 

550+SCDSMMDP DC 

551+SCDSMMFB DC 

552+SCDSMMGB DC 

553+SCDMFBPA OC 

554+SCDMFBPS DC 

555+SCDFRENR DC 

556+SCDILMSK DC 

557+SCDBFPTR DC 



ADDRESS OF START OF SMM CORE AREA 
LENGTH OF STORAGE MANAGEMENT CORE AREA 
ADDRESS OF END OF SMM CORE AREA 



A(O) 

F»0» 

A(O) 

ACO) 

A(O) 

V(DFSICRET) ICREAT ENTRY POINT 

V(DFSIDEST) IDESTROY ENTRY POINT 

V(DFSIFBUF) IFREEBUF ENTRY POINT 

V(DFSIGBUF) IGETBUF ENTRY POINT 

ACO) ADDRESS OF FORMAT BUFFER 

A(O) SIZE OF FORMAT BUFFER POOL 

AL2(0) NUMBER OF FORMAT REQUEST ELEMENTS 

X»0001» PROGRAM LOAD MASK 

VCDFSFXC20) USED BY DFSXXXXO 



8977 



559+* *********************************** 
560+* * 

561+* ENQUEUE/DEQUEUE SECTION: * 

562+* * 

563+* *********************************** 



565+SCDIDEQ DC 
566+SCDIENQ DC 
567+ DS 



V(DFSIIDEO) IDEQ ENTRY POINT 
VCDFSIIENO) IENQ ENTRY POINT 
2F 
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STMT 



SOURCE STATEMENT 



F01MAY72 



2/13/73 



569+* *********************************** 
570 +* * 

$71+* QUEUE MANAGEMENT SECTION: 

572+* * 

573+* *********************************** 



575+SCDIRWQE OC 
576+SCDIQDCB DC 
577+SCDSMDCB DC 
578+SCDLMDCB DC 
579+SCDSPDCB DC 
580+SCDQPOOL DC 
581+SCDPRLN1 DC 
582+SCDPRLN2 DC 
583+SCDQCRSZ DC 
584+SCDMSGSZ DC 
585+SCDQMREB OC 
586+SCDCKCL DC 
587+SCDQMSRB DC 
588+SCDPRDEF DC 
589+SCDPDBS EQU 
590+SCDPDFNM EQU 
S91+* EQU 
592+SCDPRADL DC 
593+ DC 



V(DFSQMGRO) IREAD/IWRITE QUEUE ENTRY POINT 

V(DFSIQDCB) ADDRESS OF INPUT QCR DCB 

V(DFSSMDCB) ADDRESS OF IMS2.SHMSG DCB 

V(DFSLMDCB) ADDRESS OF IMS2.LGMSG DCB 

V(DFSICDCB) ADDRESS OF SCRATCH PAD AREA (SPA) DCB 

A(0) POINTER TO QUEUE BLOCK POOL 

H»40» LENGTH OF FULL MESSAGE PREFIX 

H»16» LENGTH OF CONDENSED MESSAGE PREFIX 

H»0» SIZE OF QCR BUFFER 

H»0» SIZE OF MSG BUFFER 

F»0» SAVE AREA PTR TO BUFFER ALLOC FOR REUSE 

F»0» COMM FOR INTERNAL CHECKPOINTS 

H»0« RECORDS RESERVED FOR SHUTDOWN/REUSE 

ALK128) PREFIX DEFINITION BYTE 

X«80« BASIC PREFIX INFORMATION INCLUDED 

X» 40 "FORMAT NAME INCLUDED 

X»3F» RESERVED 

AL1(24,0,0,0, 0,0,0,0) PREFIX OPTIONS LENGTHS 

ALKO) RESERVED 
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STMT 



SOURCE STATEMENT 



F01MAY72 2/13/73 



595+* *********************************** 
596+* * 

597+* COMMUNICATION SECTION: * 

598+* * 

599+* *********************************** 



601+SCDCTT DC 

602+SCDCTTL DC 

603+SCDCTTN DC 

6G4+SCDCLB DC 

605+SCDCLBL DC 

606+SCOCLBN DC 

607+SCDCTB DC 

608+SCDCTBL DC 

609+SCDCTBN DC 

610+SCDCIB DC 

611+SCDCIBL DC 

612+SCDCIBN DC 

613+SCDCRB DC 

614+SCDCRBL DC 

615+SCDCRBN DC 

616+SCDCXB DC 

617+SCDCXBL DC 

618+SCDCXBN DC 

619+SCDCNT DC 

620+SCDCNTL DC 

621+SCDCNTN DC 

622+SCDCDB DC 

623+SCDCDBL DC 

624+SCDCDBN DC 

625+SCDCVB DC 

626+SCDCVBL DC 

627+SCDCVBN DC 

628+SCDCPT DC 

629+SCDCPTL DC 

630+SCDCPTN DC 

631+SCOCPM DC 

632+SCDCPML DC 

633+SCDCPMN DC 

634+SCDCTM DC 

635+SCDCTML DC 

636+SCDCTMN DC 

637+SCDCCB DC 

638+SCDCCBL DC 

639+SCDCCBN DC 

640+SCDCCBND DC 

641+SCDCCBNC DC 

642+SCDCCBDL DC 

643+SCDCCBCL DC 

644+SCDCANOl DC 

645+SCDCAN02 DC 

646+SCDCAN03 DC 

647+SCDCAN04 DC 

648+SCDCAN05 DC 

649+SCDCAN06 DC 



DFSICTT) COMMUNICATION TRANSLATION TABLE BASE ADDR 

28 • LENGTH OF EACH CTT 

0« NUMBER OF CTTS 

DFSICLB) COMMUNICATION LINE BLOCK BASE ADDRESS 

96* LENGTH OF EACH CLB 

0« NUMBER OF CLBS 

DFSICTB) COMMUNICATION TERMINAL BLOCK BASE ADDRESS 

32 • LENGTH OF EACH CTB 

0« NUMBER OF CIBS 

0) COMMUNICATION INTERFACE BLOCK BASE ADDR 

48 • LENGTH OF EACH CIB 

0» NUMBER OF CIBS 

0) COMMUNICATION RESTART BLOCK BASE ADDRESS 

20* LENGTH OF EACH CRB 

0» NUMBER OF CRBS 

0) COMMUNICATION EXTENT BLOCK BASE ADDRESS 

20 • LENGTH OF EACH CXB 

0" NUMBER OF CXBS 

DFSICNT) COMMUNICATION NAME TABLE BASE ADDRESS 

44 • LENGTH OF EACH CNT 

0* NUMBER OF CNTS 

DFSICDB) COMMUNICATION DIRECTORY BLOCK BASE ADDR 

4« LENGTH OF A CDB 

0« NUMBER OF CDBS 

DFSICVB) COMMUNICATION VERB BLOCK BASE ADDRESS 

12 • LENGTH OF EACH CVB 

0« NUMBER OF CVBS 

COMMUNICATION PRIORITY TABLE BASE ADDRESS 

LENGTH OF EACH CPT 

NUMBER OF CPTS 

COMMUNICATION PRIORITY MATRIX BASE ADDR 

LENGTH OF EACH CPM 

NUMBER OF CPMS 

DFSICTM) COMMUNICATION TERMINAL MATRIX BASE ADDR 

0« LENGTH OF EACH CTM 

0« NUMBER OF CTMS 

0) CONVERSATIONAL CONTROL BLOCK BASE ADDRESS 

32* CCB LENGTH 
H«0« NUMBER OF CCBS 
AL2(0) OFFSET TO FIRST DISK CCB 
AL2(0) OFFSET TO FIRST INCORE CCB 
H«0» MAXIMUM LENGTH OF DISK SPA 
H»0» MAXIMUM LENGTH OF INCORE SPA 
V(DFSCIOOl) COMMUNICATION ANALYZER ENTRY # 
VCDFSCIQ02) COMMUNICATION ANALYZER ENTRY # 
V(DFSCI003) COMMUNICATION ANALYZER ENTRY # 
V(DFSCI004) COMMUNICATION ANALYZER ENTRY # 
VCDFSCI0G5) COMMUNICATION ANALYZER ENTRY # 
VCDFSCIQ06) COMMUNICATION ANALYZER ENTRY # 



0) 
0» 
0« 
0) 
0« 
0« 
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STMT SOURCE STATEMENT 



F01MAY72 



2/13/73 



650+SCDCAN07 DC 
651+SCDCAN08 DC 
652+SCDCAN09 DC 
653+SCDCAN10 DC 
654+SCDCAN11 DC 
&55+SCDCAN0C DC 
656+SCDCANOD DC 
657+SCDCPCUR DC 
658+SCDCPHWM DC 
659+SCDFNDST DC 
660+SCDMSGRT DC 
661+SCDMTRM DC 
662+SCDCLISO DC 
663+SCDTRANS DC 
664+SCDCONV DC 
665+SCDCOB DC 
666+SCDCCBL DC 
667+SCDCOBN DC 
668+SCDCTCLB DC 
669+SCDREPOL DC 
670+SCDNTB DC 
671+SCDEDITC DC 
672+SCDEDITS DC 
673+SCDINCT DC 
674+SCDOUTCT DC 
675+SCDCPCTL DC 
676+SCDPCP01 EQU 
677+SCDPCP02 EQU 
678+SCDPCP03 EQU 
679+SCDCTR01 DC 
680+SCDCTRL1 EQU 
681+SCDCTRL2 EQU 
682+SCDCTRL3 EQU 
683+SCDCTRL4 EQU 
684+SCDCTR02 DC 
685+SCDCTRA EQU 
686+SCDCTRF EQU 
687+ DC 

688+ DC 



V(DFSCI007J COMMUNICATION ANALYZER ENTRY # 7 

VCDFSCI008) COMMUNICATION ANALYZER ENTRY #8 

VCDFSCI009) COMMUNICATION ANALYZER ENTRY # 9 

V(DFSCIOIO) COMMUNICATION ANALYZER ENTRY #. 10 

V(DFSCIQil) COMMUNICATION ANALYZER ENTRY # 11 

V(DFSCICCO) COMMUNICATION ANALYZER SERVICE ROUTINE 

VCDFSCIQDO) COMMUNICATION ANALYZER SERVICE ROUTINE 

A(0) FORMAT EDITIOR I /OP CURRENT 

A(0) FORMAT EDITIOR I /OP HI WATER MARK 

V(DFSICLFO) FIND DESTINATION ROUTINE ENTRY POINT 

V(DFSICLRO) MESSAGE ROUTER ROUTINE ENTRY POINT 

V(DFSCTBMT) MASTER TERMINAL CTB ADDRESS 

V(DFSICLSO) SECURITY ROUTINE ENTRY POINT 

V(DFSICLTO) TRANSLATE ROUTINE ENTRY POINT 

A(0) CONVERSATION PROCESSOR ENTRY POINT 

A(0) COMMUNICATION OVERFLOW BLOCK BASE ADDRESS 

H*32« LENGTH OF EACH COB 

H«0» NUMBER OF COBS 

V(DFSICLB) CONSOLE TYPEWRITER CLB 

V(DFSICLXO) RESET POLL MOOULE ENTRY POINT 

V(DFSINTBO) 

A(0) USER EDIT ROUTINE FOR CNT DESTINATIONS 

V(DFSLISTO) USER EDIT ROUTINES FOR SMB DESTINATIONS 

H»0» 

H»0« 

X»00« CHECKPOINT POST SYNC BITS 

X«80» 

X"40» 

X«20« 

ALl(O) 

X»80» . TRACE BLOCKS LEVEL 1 

X»40» . TRACE BLOCKS LEVEL 2 

X*20« • 

X«10« . 

ALKO) 

X«80« . TRACE ALL POINTS 

X»40« . TRACE DEVICE INFO 

ALKO) RESERVED FOR SYSTEM EXPANSION 

F»0» RESERVED FOR SYSTEM EXPANSION 



TRACE BLOCKS LEVEL 
TRACE BLOCKS LEVEL 
TRACE WORK AREAS 
TRACE SAVE SETS 
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STMT SOURCE STATEMENT 



F01MAY72 



2/13/73 



690+* ****##*#*#*#***#*********#********* 
691+* * 

692+* DISPATCHER SECTION: * 

693+* * 

694+* ******$**************#************* 



696+SCOEXTWQ DC 

697+SCDINTWQ DC 

69S+SCDINTSQ DC 

699+SCDTECBR DC 

700+SCDPARM DC 

701+SCDTECB DC 

702+SCDSAVEL DC 

703+SCDSLEV EQU 

704+SCDSAVEN DC 

705+SCDSRQE OC 

706+SCDSRQEL DC 

707+SCDSRQEN DC 

708+SCDWAITQ DC 

709+SCDEXTWL DC 

710+SCDEXTWN DC 

711+SCDSUBSV DC 

712+SCDCFAC DC 

713+SCDCMOD DC 

71A+SCDTEST DC 

715+SCDTLEV DC 

716+SCDRES2 DC 

717+ OC 



V(DFSEXTWQ) EXTERNAL WAIT QUEUE ADDRESS 

V(DFSINTWQ) INTERNAL WAIT QUEUE ADDRESS 

V(DFSINTSQ) INTERNAL SAVE QUEUE ENTRY POINT ADDRESS 

V(DFSITERM) TERMINATION ROUTINE ENTERED IF TECB POST 

A(O) ADDRESS OF PARM LIST FROM SYSTEM 

F»0» IMS TERMINATION ECB POSTED BY CHECKPOINT 

H»508« LENGTH OF SAVE AREA SETS INCLUDING QE 

7 NUMBER OF SAVE AREAS IN A SET 

H»0« NUMBER OF SAVE AREA SETS 

V(DFSIRQEO) ORIGIN OF RQE LIST 

H»8» LENGTH OF EACH RQE 

H»0« NUMBER OF RQES 

V(DFSIWATQ) ORIGIN OF WAIT QUEUE 

H»4» LENGTH OF EACH ENTRY IN EXT WAIT QUEUE 

H»0« NUMBER OF EXTERNAL EVENTS 

ACO) ADDRESS OF LAST SUBTASK 1ST LEV SAVE AREA 

X»00» CURRENT FIRST LEVEL FACILITY 

X'OO* CURRENT MODULE WITHIN FACILITY 

X»80« TEST MODE CONTROL INDICATOR 

X»00» TEST MODE LEVEL INDICATOR 

F»0» PADDING 

4F»0» RESERVED FOR SYSTEM EXPANSION 
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STMT SOURCE STATEMENT 



F01MAY72 2/13/73 



719+* *********************************** 
720+* * 

721+* APPLICATION SCHEDULER SECTION: * 

722+* * 

723+* *********************************** 



725+SCDASINT DC 

726+SCDASTER DC 

727+SCDSMBEP DC 

728+SCDSMBL DC 

729+SCDSMBN DC 

730+SCDSMBDQ DC 

731+SCDSMBNQ DC 

732+SCDCHKXB DC 

733+SCDTCTEP DC 

734+SCDTCTL DC 

735+SCDTCTN DC 

736+SCDMRQEP DC 

737+SCDPRQEP DC 

738+SCDBPRQE DC 

739+SCDEXTSQ DC 

740+SCDPCBSZ DC 

741+ DC 



V(DFSASINT) APPLICATION SCHEDULER INITIATOR ENTRY 
V(DFSASTRM) APPLICATION SCHEDULER TERMINATOR ENTRY 
V(DFSISMB) SYSTEM MESSAGE BLOCKS BASE ADDRESS 
H«56» LENGTH OF EACH SMB 
H»0» NUMBER OF SMBS 

V(DFSSMBDQ) SMB DEQUEUE ENTRY POINT ADDRESS 
V(DFSSMBEQ) SMS ENQUEUE ENTRY POINT ADDRESS 
A(SCDCHKES) ADDRESS OF ECB TO BE POSTED BY DFSIASOO 
V(DFSirCT) TRANSACTION CLASS TABLES BASE ADDRESS 
H»80« LENGTH OF EACH TCT 
H«0« NUMBER OF TCTS 

V(OFSIMRQ) ADDRESS OF MESSAGE REQUEST QUEUE 
V(DFSIPRQ) ADDRESS OF PARTITION REQUEST QUEUE 
V(OFSIBPRQ) ADDRESS OF BATCH PARTITION REQUEST QUEUE 
V(DFSEXTSQ) EXTERNAL SAVE QUEUE ENTRY POINT ADDRESS 
A(0) MAX SIZE OF PCB AREA IN MSG REGION 
3F»0« RESERVED 
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STMT SOURCE STATEMENT 



F01MAY72 2/13/73 



74-3+* *********************************** 

744+* * 

745+* CHECKPOINT/RESTART SECTION: * 

746+* * 

747+* *********************************** 



749+*** CHECKPOINT STATUS BYTE *** 

750+SCDCKCTL DC X«00« 

751+* DESCRIPTION OF BIT SETTINGS 

752+* NOT USED 

753+* 1 

754+* 2 

755+* 3 

756+* 4 

757+* 5 

758+* 6 

759+* 7 



DATABASE RECOVERY 
PURGE REQUEST 
SYSTEM SHUTDOWN REQUEST 
OUMP QUEUE REQUEST 

MASTER TERMINAL CHECKPOINT REQUEST 
DATABASE DUMP REQUEST 
SYSTEM SCHEDULED CHECKPOINT I LOG) 



7 61+ *** RESTART STATUS BYTE *** 

762+SCDRSCTL DC X«00» 

763+* DESCRIPTION OF BIT SETTINGS 



764+* 
765+* 
766+* 
767+* 
768+* 
769+* 
770 +* 
771 +* 



PASSWORD SECURITY REQUESTED 

1 QUEUE ONLY RESTART 

2 PSB/DMB CHANGED - REBUILD BLOCKS 

3 ALLOW COMMANDS EXCEPT RESTART 

4 TERMINAL SECURITY REQUESTED 

5 EMERGENCY RESTART 

6 BUILD QUEUES 

7 NORMAL RESTART 



773+*** COMMON 

774+SCDST0P1 DC 

775+* 

776+* 

777+* 

778+* 

779+* 

780+* 

78 1+* 

782+* 

783+* 

784+* 

785+* 

786+* 

787+* 

788+* 

789+* 

790+* 

791 +* 

792+* 

793+* 



SYSTEM SHUTDOWN STATUS BYTE *** 
X«0000« 
BYTE 1 DESCRIPTION OF BIT SETTINGS 

STOP INPUT 

1 STOP OUTPUT 

2 SEND ALL OUTPUT 

3 PROCESS ALL MESSAGES 

4 QUEUE'S AVAILABLE 

5 FREE MESSAGE REGIONS 

6 TERMINATE ALL REGIONS 

7 STOP SMB INPUT 



BYTE 2 DESCRIPTION OF BIT SETTINGS 

PROCESS AT SYSTEM PRIOR 

1 DATABASE STOP 

2 FORCE EOV ON LOG FILE 

3 ABEND AT TERMINATION 

4 DISCONNECT ALL LINES 

5 ALL OUTPUT SENT 

6 SYSTEM CLOSE DOWN 

7 FINAL ENTRY CONTROL 



USER 

COMMUNICATIONS 

COMMUNICATIONS 

COMMUNICATIONS 

SCHEDULER 

READ/WRITE Q 

SCHEDULER 

SCHEDULER 

COMMUNICATIONS 

- USER 
ITY SCHEDULER 
CHECKPOINT 
CHECKPOINT 
COMMUNICATIONS 
COMMUNICATIONS 
COMMUNICATIONS 
CHECKPOINT 
CHECKPOINT 



795+SCDCKDBN OS 
796+SCDCKDB DC 
797+SCDLOGN OS 



0CL1 # OF ENTERED DATABASE NAMES FOR RECOVERY 
A(0) POINTER TO POOL CONTAINING DATABASE NAMES 
0CL1 COUNT OF RESTART SERIAL NUMBERS 



5.29 



PAGE 






;tmt 



SOURCE STATEMENT 



F01MAY72 



2/13/73 



798+SCDLOG DC 
799+SCOCLIPN DC 
800+SCDCLOPN DC 
801+SCDCPCQ1 DC 
802+SCDCHKEP DS 
803+SCDRSTEP DC 
8G4+SCDCHKEB DS 
805+SCDRSTE6 DC 
806+SCDD8T8L DC 
807+ DC 



A(0) POINTER TO POOL CONTAINING SERIAL NUMBERS 

H'OOOO* INPUT TERMINAL ACTIVE COUNT 

H»0000» OUTPUT TERMINAL ACTIVE COUNT 

A(0) SCRATCH PAD AREA LOG ROUTINE ENTRY POINI 

OF 

V(DFSRSTOO) RESTART ROUTINE ENTRY POINT ADDRESS 

OP 

V(DFSRTECB) RESTART ECB ADDRESS 

AfO) RESTART DATABASE NAME TABLE 

^•0* 
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STMT 



SOURCE STATEMENT 



F01MAY72 



2/13/73 



809+* *********************************** 

8 10+* * 

B11+* START/STOP REGION SECTION: * 

812+* * 

813+* ********#*******■***#****:***■***#♦*■*# 



8 15 +S CD RE GOP 


DC 


816+SCDREGCL 


DC 


817+SCDCMDCT 


DC 


818+SCDREGST 


DC 


819+SCDREGCT 


DC 


820+SCDSROR 


DC 


821+SCDSRMBR 


DC 


822+SCDSMMBR 


DC 


823+SCDSINIT 


DC 


824+SCDPINIT 


DC 


825+ 


DC 


826+SCDPSYS 


EQU 


827+SCDPSMVT 


EQU 


828+SCDPSMFT 


EQU 


829+SCDPSPCP 


EQU 


830+SCDPSREL 


EQU 


831+SCDIMSR 


EGU 


832+SCDIMSL 


ECU 


833 + 


DC 



A(0) ECB TO OPEN REGION 

A(0) ECB TO CLOSE REGION 

X»00» # OF START/STOP REGION COMMANDS ISSUED 

X»00» it OF PENDING STOP COMMANDS 

H»0000« COUNT OF OPEN REGIONS 

A(SCDPROCl) ADDRESS OF START READER COMMAND 

A(SCDPR0C2) ADDRESS OF MEMBER FIELD IN START READER 

A(SCDPR0C3) ADDRESS OF MSG REG PROC MEMBER NAME 

ACSCDPRGC4) ADDRESS OF START INITIATOR COMMAND 

ACSCDPRQCiJ) ADDRESS OF STOP INITIATOR COMMAND 

2F«0« 

SSCDOSPS PROGRAMMING SYSTEM OPTION BYTE FROM CVT 

X»10» VALUE IF MVT 

X»20» VALUE IF MFT-II 

X»40» VALUE IF PCP 

X»02» VALUE IF AOS 

SSCDIMSR IMS RELEASE NUMBER 

SSCDIMSL IMS MOD LEVEL 

2F»0» RESERVED FOR SYSTEM EXPANSION 
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STMT SOURCE STATEMENT 



F01MAY72 2/13/73 



835+* *********************************** 



636+* 
837+* 
838+* 
839+* 
840 +* 
841+* 
842+* 
843+* 
844 + * 
845+* 
£46+* 



COMMAND 



S fc C T I N 



*** NOTE *** 

THE COMMAND SECTION MUST RESIDE LAST 
IN THE SYSTEM CONTENTS DIRECTORY SINCE 
THE COMMANDS ARE VARIABLE IN LENGTH. 

ANY ADDITION TO THE SCD 
MUST PRECEDE THIS SECTION. 



847+* *********************************** 



849+SCDPR0C1 OS 



850 + 


DC 


851 + 


DC 


852 + 


DC 


853+SCDPR0C2 


DS 


854+SCDPR0C3 


DC 


855 + 


DC 


856+SCDPR0C4 


DS 


857 + 


DC 


858 + 


DC 


859 + 


DC 


860+SCDPROC5 


DS 


861 + 


DC 


862 + 


DC 


863+ 


DC 


864+ 


DS 


866 




867 




868 




869 





OF 

AL2U7) TEXT LENGTH 

B •0000000000000000' MCS FLAGS 

C»S IMSRDR,MBR=« 

CL9 MEMBER NAME FIELD OF START READER COMMAND 

ALK6) LENGTH IN BYTES OF PROC MEMBER NAME 

C»IMSMSG» MSG PROC MEMBER NAME 

OF 

AL2(26) TEXT LENGTH 

B'OOOOOOOOOOOOOOOO* MCS FLAGS 

C»S INIT.CLASSB,,t(B,A) • 

OF 

AL2(12) TEXT LENGTH 

B»0000000000000000« MCS FLAGS 

C»P CLASSB* 

4F 



* t ^*4c*^«*4t««***^«*4:*4:***#**4;*4t*^*^***#**************** 

*,* IMS SYSTEM 

*,* VERSION 2 RELEASE 3 MOO LEVEL * 

^y**^*^^*^^^*^^^**^**^**^^^**^********* *************** 



872 



END 
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PHYSICAL TERMINAL lOHTPUT], EDITS 

The user can also specify at system definition time a physical 
terminal output edit routine to edit output messages just before they 
are sent to a terminal. One physical terminal output routine may be 
specified for each BTAM telecommunication line group. During system 
definition, the user specifies which physical terminals, within each 
line group, use the defined edit routine for output editing. These 
edit routines may be used to provide special user editing needs by 
communciation terminal types. An output message may be processed by 
a physical terminal output edit routine and the basic IMS/360 edit 
routine on the Message Format Service. Output editing is performed 
in this seguence. Therefore if the Message Format Service is used the 
output provided by the edit routine must be the format defined to the 
Message Format Service instead of the format created by the application 
program. 

Upon entry to a user-supplied physical terminal output edit routine, 
the following interface applies: 

lf~gister Number Content 

1 The address of a buffer containing the 

output message segment to be edited. The 
first two bytes are a binary count of message 
segment length. The second two bytes are 
control information provided by the 
application program which constructed the 
message. The text of the output message 
starts in byte five. The count includes 
the first four bytes in length. 

7 The address of the output physical terminal 

block (CTB) for the destination terminal. 

9 The address of the IMS/360 control block 

describing the output communication line 
(CLB) . This block starts with a BTAM DECB. 
The content of DECAREA field in the DECB 
is eguivalent to Register 1 content. 

11 IMS/360 System Contents Directory (SCD) 

address. 

13 The address of a save area for use by the 

edit routine. All registers must be saved 
upon entry and restored upon exit. The 
first three words in the save area may not 
be changed. 

14 The address by which the edit routine should 

return to IMS/360. 

15 The entry point address to the invoked edit 

routine. 

The resultant output message segment returned to IMS/360 from the 
user's edit routine must be pointed to by the content of the BTAM DECB, 
DECAREA field. The first four bytes must be in a format as received 
at input with the binary count updated to the edited message segment 
length inclusive of the four bytes of prefix. Upon return to IMS/360, 
all registers must be restored. If the message is to be edited in 
place, the length may not be increased by more than 10 bytes. 
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When the last segment of a message has been edited, IHS/360 returns 
control to the user's edit routine once more. The edit routine may 
wish to perform some housekeeping activities at this time. Upon entry 
to the user's edit routine, Registers 7, 9, 11, 12, 13, 14, and 15 are 
as described above. 

Whenever a physical terminal output edit is invoked, the 
Communication Terminal Block is addressed by Register 7. A field in 
the block, CTBACTL, which is one byte in length, will contain a one 
in the second bit position if this entry to the user's edit routine 
is for end of message. The reader is referred to the IHS/360 System 
Manual for definition of IHS/360 control blocks. 

EXAMPLE OF PHYSICAL TERMINAL EDIT 

The following example illustrates how any output message can be 
extended in length and a prefix attached. Two capabilities within 
IMS/360 are used. One allows the edit routine to obtain a buffer area. 
This is called ICREATE. When ICREATE is used, an identifier of four 
bytes is provided in Register 2. The length of the reguested area is 
placed in Register 3. The address of the buffer area is returned to 
the edit routine in Register 3. This area is used to build the output 
message. The prefix '*IMS*' is added to the message. The edited 
output message is addressed by DECAREA. When the end of message entry 
to the edit routine is made (CTBACTL=40) , the buffer area obtained by 
the edit routine is returned to IHS/360. This is performed by the 
second IHS/360 facility called IDESTROY. Register 2 is used to 
symbolically identify the area to IMS/360. This example applies to 
single-line messages only and to only one terminal at a time. As the 
addition of , *IMS* 1 did not seguence the extension of the message by 
more than 10 bytes, it could have been performed in place without the 
creation of an additional buffer area. The following is an example 
of how this could be accomplished. 



5.33 



STMT SOURCE STATEMENT 



1 DFSEDCTO 


CSECT 








2 * 


* * 


* * 


* * * * * 


* 


************ 


3 * 


NOTE 


THIS MODULE IS NOT RE ENTRANT AND MAY NOT BE USED BY MORE 


4 * 


THAN ONE TERMINAL AT , 


A TIME. TU MODIFY IT TO ALLOW USE BY 


5 * 


MULTIPLE " 


TERMINALS THE 


TABLE MUST BE EXPANDED TO THE NUMBER OF 


6 * 


USING TERMINALS AND A UNIQUE ID FOR EACH MUST BE USED FOR THE 


7 * 


ICREATE OF THE BUFFER. 






8 * 


* * 


* * 


***** 


* 


************ 


9 




SAVE 


(14,12) ,,DCT1111 


SAVE ENTRY REGISTERS 


10 + 




B 


12(0,15) BRANCH AROUND ID 


11 + 




DC 


AL.H7) LENGTH 


OF : 


IDENTIFIER 


12+ 




DC 


CL7»DCTllll» 


IDENTIFIER 


13 + 




STM 


14,12,12(13) 


SAVE 


REGISTERS 


14 




L 


R13,8(R13) 




POINT TO NEXT SAVAREA 


15 




LR 


R12,R15 




LOAD AND 


16 




USING 


DFSEDCTO, R12 




• ESTABLISH. MODULE BASE 


17 




USING 


IECTDECB,R9 




CLB POINTERS 


18 




USING 


CTB,R7 




CTB POINTERS 


19 




USING 


SCCR11 




SCD POINTERS 


21 * 




GET AREA FOR EDIT IF FIRST SEGMENT * 


23 




BAL 


R5, DESTROY 


DELETE THE USED BUFFER 


24 




TM 


CTEACTL,CTBAEON 


END OF MSG 


25 




BO 


RETURN 


YES 




26 




CLI 


DECTYPE,X«02» 




1ST SEGMENT? 


27 




BE 


RETURN 


NO 




28 CREATE 


EQU 


* 






29 




L 


R5,DECAREA 




YES, POINT TO MESSAGE 


30 




SR 


R3,R3 






31 




IC 


R3,0(R5) 




LOAD MSG DL (LENGTH) 


32 




SLL 


R3,3 




• 


33 




IC 


R3,l (R5) 




• 


34 




LR 


R6,R3 




SAVE MSG LENGTH 


35 




LA 


R3,9{R3) 




ALLOW FDR INCR MSG LENGTH 


36 




LR 


R5,R3 




SAVE NEW DL 


37 *ICREATE 








SETUP FOR ICREATE 


38 




LR 


R0,R11 




POINT TO SCD 


39 




LR 


R1,R9 




POINT TO CLB 


40 




L 


R2, ID 




LOAD ID 


41 




SR 


R4 , R4 




ZERH R4 


4 2 




L 


R15,SCDSMMCP 




POINT TC ICREATE 


43 




BALR 


R14,P15 






44 * 










STORE ID IN TABLE: 


45 * 










ID WCULD INCL. CTB # AND WOULD 


46 ■* 










BE STORED IN THE TABLE POSITION 


47 * 










CORRESPONDING TO THAT #„ 


48 




ST 


R 2, TABLE 




STORE ID 


50 * 




EDTT 1 


MESSAGE INTO AREA 


* 


52 




STH 


R5,0(R3) 




SETUP NEW OLOO 


53 




XC 


2(2,R3) ,2(R3) 




a 


5 4 




MVC 


4(^,P3),EDMSG 




N.OVE IN EDITING 


55 




SH 


R6,=H»5» 




CALC LENGTH OF MOVE 



5.34 



STMT 



SOURCE STATEMENT 



56 
57 

5 8 

59 MOVE 

60 AROUND 
61 

6 2 

63 * 

64 * 

65 * 

66 DESTROY 

67 * 
68 
69 

70 * 
71 
72 
73 
74 
75 

76 * 
77 
78 

79 * 

80 * 

81 * 

8 2 RETURN 

8 3 
84 
6 5 

a 6 

87 * 



L 

EX 

B 

MVC 

EQU 

ST 

B 



R5,DECAREA 

R 6, MOVE 

ARCUMD 

13(0, R3) ,4(R5> 

R3,DECAREA 
RETURN 



PT TO OLD MSG 
MOVE MSG LESS DLOO 



SETUP PTR TO NEW MSG AREA 



RELEASE EOIT AREA IF NECESSARY 
EQU * 



CLC TABLE, =F«0» 

BCR 8.R5 YES- BRANCH 

LR RCfP.ll 

LR R1,R9 

L, R2, TABLE 

L RISrSCDSMMDP 

BALR R14,R15 

XC TABLF(4),TABLE 

BR R5 



CHECK APPROPRIATE TABLE ENTRY 
HAS AREA BEEN RELEASED? 
i 

SETUP IDESTROY 
POINT TG SCO 
POINT TO CLB 
LOAD ID 



ZERO TABLE ENTRY 



RETURN ROUTINE 



88 
89 
90 
91 
92 
93 

95 

96 

97 

9 8 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 



TABLE 

ID 

ECMSG 

Rl 

RC 

R2 

R3 

R4 

R5 

R6 

R7 

P3 

R9 

RIO 

Rll 

ft 12 

R13 

R14 

R15 



EQU * 

L R13,4(R13) 

LM 0,12,20(R13J 

L P14,12(R13) 

BCR 15,R14 



CC 

DC 

DC 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

FQU 

EQU 

EQU 

EQU 

LTORG 



F*0« 
C*ED!T» 



C* 

1 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

= F 
-H 



IMS 



ID TABLE 
AREA ID 
EDIT MESSAGE 



0' 
5« 



5.35 



STMT SOURCE STATEMENT 



110 

111+** 

112+4 

113 + * 

114+* 

115+** 

1.16 + IE 

117+* 

118+4 

119+* 

120+4 

121+* 

122+* 

12 3+4 

124+4 

125 + 4 

126+4 

127 + 4 

12 8+4 

12<3+4 

130 + 4 

131+4 

132+* 

133+4 

134+4 

135+4 

136 + 4 

137+4 

138+4 

139+4 

14G+4 

141 + 4 

142+4 

143+4 

144 + 4 

145+4 

146+4 

147+4 

14 8+ * 

149 + 4 

150 + 4 
151+4 
152+4 
153+* 
154+4 

155 + 4 
156+* 
157+4 
158 + 4 
159+4 
160+4 
161+4 
162+4 
163+4 
164+4 
165+4 



ICLI CLBBASE=0,CTBBASE=0 

CLB - COMMUNICATION LINE BLOCKS DSECT, DSECT NAME IS IECTDECB. 

CTDECB DSECT DECS DUMMY SECTION 

+ + 

+ STANDARD EVENT CONTROL BLOCK + 

+. +'■■"'■ 

+-' + 

+ + + 

4 + OPERATION TYPE + AREA LENGTH + 

+ + + 

+ : — + 

+ ON-LINE + + 

8 +TERMINAL + ADDRESS OF DCB + 

+ TEST + + 

+, . + 

+ 4 4 

12 +RESERVED + ACDRESS OF />REA + 

+ + + 

+ ■ + 

4 + + 

16 + SENSE BYTES + RESIDUAL COUNT + 

+ 18 2-* + 

+ : -+ 

+ + + 

20 + COMMANC 1 ADDRESS OF TERMINAL LIST + 

+ CODE + + 

+ + . 

+ + RELATIVE+ + + 

24 + STATUS + LINE + ADDRESS + VRC/LRC + 

+ FLAGS + NUMBER + RESPONSE+ RESPONSE + 

+ ' + 

+ + + 4 

28 + TP-QP + ERROR 4 CSW STATUS + 

+ CODE + STATUS + + 

+ 4 

+ 4 4 

32 +RESERVEC + ADDRESS OF CURRENT + 

4 + ADDRESSING ENTRY + 

+ + 

+ + + 

36 +RESERVED + ADDRESS OF CURRENT + 

+ + POLLING ENTRY + 

+ + 

+ 44 + 

40 +RESERVED +RESERVEC + WRITE AREA LENGTH + 
+ + + + 

+ -+ 

4 + + 

44 +RESERVED + ADDRESS CF WRITE AREA + 

+ + + 



5.36 



STMT 



SOURCE STATEMENT 



F15OCT70 3/27/72 



STANDARC EVENT CONTROL BLOCK 



OPERATION TYPE 



12 



16 



20 



24 



28 



32 



36 



40 



44 



+ 

+ 
+- 
+ 
+ 

+ ON-LINE + 
♦TERMINAL + 
♦ TEST + 

+ + 

+RESERVED + 
+• + 

+ 

+ 

+ SENSE BYTES 

+ 1 & 2 



AREA LENGTH 



+ 
+ 

+ 

+ 
4- 



ADDRESS OF AREA 



RESIOUAL COUNT 



1 ICLI CLBBASE=G,CNTBASE=0,CTBBASE=OtCOBBASE=0,CTTBASE=0 

2 + ************************* *********#*#********* ****** ******************* 

3+* 

4+* CLB - COMMUNICATION LINE BLOCKS DSECT. DSECT NAME IS IECTDECB. 

5 + * 

6 + *************************************************************** ******** 

7+IECTDECB DSECT DECB DUMMY SECTION 

8 + * 

9+* 
10 + * 
11+* 
12 + * 
13+* 
14 + * 
15+* 
16 + * 
17+* 
1B + * 

19 + * 

20 + * 

21 + * 

22 + * 

23 + * 

24 + * 

25 + * 

26 + * 

27 + * 

28 + * 
29+* 

30 + * 

31 + * 
32+* 
33+* 
34+* 
35 + * 
36+* 
37+* 

38 + * 

39 + * 

40 + * 

41 + * 

42 + * 

43 + * 

44 + * 

45 + * 

46 + * 

47 + * 

48 + * 

49 + * 

50 + * 

51 + * 

52 + * 

53 + * 

54 + * 

55 + * 



COMMAND 
CODE 



ADDRESS OF TERMINAL LIST 



ADDRESS OF DCB + 

+ 

4- 

+ 

- + 

- + 
+ 

RELATIVE+ + + 

LINE + ADDRESS + VRC/LRC + 

NUMBER + RESPONSE* RESPONSE + 

+ + 

ERROR + CSW STATUS + 

STATUS + + 

+ 

ADDRESS OF CURRENT + 

ADDRESSING ENTRY + 

+ 

ADDRESS OF CURRENT + 

POLLING ENTRY + 

+ + + + 

+RESERVED +RESERVED + WRITE AREA LENGTH + 
+ + + + 

+ + + 

+RESERVED + ADDRESS OF WRITE AREA + 

+ + + 



+ 
+ 
+ 

+ 

+ 

+ STATUS 

+ FLAGS 

+ 

+ TP-OP 

♦ CODE 



+ + 

+RESERVED + 

+ + 

♦ + 

+RESERVED + 

+ + 



STMT SOURCE STATEMENT 
56 + * 



F150CT70 



3/27/72 



5.37 



STMT SOURCE STATEMENT 

58+CECSDECB OS IF STATUS FLAG + ADORE SS OF THE TCB 

1H OPERATION TYPE 
1H AREA LENGTH 



F15OCT70 3/27/7 2 



60+CECTYPE OS 
62+DECLNGTH DS 



64+DECONLTT OS 
65+OECOCBAD DS 

67+DECAREA DS 

69+CECSENSO DS 

71+CECSENSl DS 

73+CECCOUNT DS 

75+DECCMCOD DS 
76+OECENTRY DS 



OCL1 RESERVED FOR ON-LINE TERMINAL TEST 
IF ADDRESS OF DCB 

IF ADDRESS OF AREA 

1C 1ST SENSE BYTE 

1C 2ND SENSE BYTE 

1H RESIDUAL COUNT 

OCL1 COMMAND CODE 

IF ADDRESS OF TERMINAL LIST 



79+DECFLAGS DS 

81+DECRLN DS 

83+CECRESPN DS 

85+DECTPCOD DS 

87+DECERRST DS 

89+CECCSWST DS 

91+CECAORPT OS 

93+CECPOLPT DS 

95+ DS 

97+DECWLNG DS 

99+CECWAREA DS 

101+CLBDECB EQU 
102+CLBRCNTR DS 



104+CLBFLAG1 


DS 


C . 


105+CLB1COB 


EQU 


X»80« . 


106+CLB1TEST 


EQU 


X'40 1 . 


107 + CLBHBUF 


EQU 


X'20 1 . 


108+CLB1OBUF 


EQU 


X'lO 1 . 


109 + * 


EQU 


x'os' . 


110+CLB1QCRI 


EQU 


X» 04 » . 


111+CLB1RESP 


EQU 


X'OZ 9 . 


112+CLBigCRO 


EQU 


X*01» . 



1C STATUS FLAGS 

1C RELATIVE LINE NUMBER 

1H RESPONSE FIELDS 

1C TP-OP CODE 

1C ERROR STATUS 

1H CSW STATUS 

IF ADDRESS OF CURRENT ADDRESSING ENTRY 

IF ADDRESS OF CURRENT POLLING ENTRY 

2C RESERVED 

1H WRITE AREA LENGTH 

IF ADDRESS OF WRITE AREA 

DECSDECB 

1C RETRY COUNTER 



BIT USAGE 

- COB REQUIRED FOR CTB'S ON THIS LINE 

1 - TEST RECYCLE REQUEST 

2 - INPUT BUFFER ALLOCATED 

3 - OUTPUT BUFFER ALLOCATED 

4 - RESERVED FOR FUTURE USE 

5 - QCR ALLOCATED (INPUT) 

6 - RESPONSE WAITING 

7 - QCR ALLOCATED (OUTPUT) 



5.38 



STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



114+CL 

115+CL 

116+CL 

117+CL 

118 + * 

119+CL 

120+CL 

121+CL 

122+CL 



BFLAG2 
B2NOIN 
B2NGOU 
B2NOQU 

B2ICLE 

B2INP 

B2QUTP 

B2AUTO 



124+CLBFLAG3 

125+CLB3INP 

126+CLB3CSUB 

127+CLB3DQPN 

128+CLB3STOP 

129+CLB3CBUF 

130+CLB3ICMD 

131 + * 

132 + * 



DS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

DS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



C 

X»80 

X'40 

X«20 

X 1 10 

X«08 

X»04 

X'02 

X«01 

C . 

X«80 

X»40 

X«20 

X» 10 

X»08 

X»04 

X»02 

X'Ol 



- NO INPUT ALLOWED 

1 - NO OUTPUT ALLOWED 

2 - DO NOT QUEUE ON THIS LINE 

3 - RESERVED FOR FUTURE USE 

4 - IDLE LINE 

5 - INPUT IN CONTROL 

6 - OUTPUT IN CONTROL 

7 - AUTOPOLL 



- 0=OUTPUT NEXT, 1=INPUT NEXT ON THIS LINE 

1 - COMMAND ENTERED AS NON-FIRST SEGMENT 
2 . - LINE IS OPENED DYNAMICALLY 

3 - LINE HAS BEEN IDLED FOR SHUTDOWN 
CONDENSED BUFFER ALLOCATED 
INTERNAL COMMAND IN PROGRESS 

6 - RESERVED FOR FUTURE USE 

7 - RESERVE FOR FUTURE USE 



134+CLBCNTPT DS F 

135+CLBTEMP1 DS F 

136+CLBTEMP4 DS F 

137+CLBTEMP5 DS F 



POINTER TO CNT FOR RESPONSE 



USED FOR TEMPORARY STORAGE 
USED FOR TEMPORARY STORAGE 



139+CLBCSID DS 

140 + * 

141 + * 

142+CLBCSCVB EQU 
143 + * 

144+CLBCSFND EQU 
145+CLBCSSMB EQU 
146 + * 

147+CLBCSDST EQU 
148+CLBCSACT EQU 



OC . FIND DEST FIELD 



X«20« 



08 
04 



X«02» 
X»01« 



DL/1 USE 

RESTART IN PROGRESS 

CVB FOUND AS DESTINATION 
ALWAYS FOR CLB 
CNT/SMB NOT FOUND 

CNT FOUND 
SMB FOUND 

FNDDST ENTERED (CLBCNTP POINTS TO DEST) 
ACTIVE POLLING LIST 



150+CLBPOLAD 

151+CLBCTBPT 

152+CLBCRCTB 

153+CLBCNTQB 

154+CLBSMBPT 

155+CLBCTBPS 

156+CLBDPOLC 

157+CLBDCTL 

158+CLBINBUF 

159+CLBOUTBF 

160 + * 

161+* IF ($) 



DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 



F 

H 

H 

2F 

F 

H 

C 

C 

F 

F 



POLLING LIST ADDRESS 

FIRST CTB ON LINE 

CURRENT CTB 

QCB FOR CNTS FOR OUTPUT 

POINTER TO BLOCK FOR QUEUEING CNT/SMB/CVB 



CLB DEVICE CONTROL 
INPUT BUFFER POINTER 
OUTPUT BUFFER POINTER 



BYTE (USED BY DDM) 



FALLS IN COLUMN 71 THIS FIELD WILL BE SAVED IN A COB IF REQ 



5.39 



STMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



I gg 4. ***************** ****** ***** ********* ********************************** 

200 + * 

201 + * CTB - COMMUNICATION TERMINAL BLOCKS DSECT. 

202 + * 

203 +***************************** ******** ********************************** 

204+CTB DSECT 

205+CTBTYPE OS C . CTT NUMBER 

206+CTBLINE DS C . LINE NUMBER 

207+CTBTERM OS 3C . TERMINAL ADDRESS 



209+CTBFLAG1 DS 
210+CT61CONV EQU 
211+CTB1MAST EQU 
212+CTB1SUBP EQU 
213+CTBIDIAL EQU 
214+CTB1SIGN EQU 
215+CTB1HELD EQU 
216+CTB1PCNT EQU 
217+CTB1PSMB EQU 

219+CTBFLAG2 OS 
220+CTB2NOIN EQU 
221+CTB2NOOU EQU 
222+CTB2N0QL EQU 
223+CTB2L0CK EQU 
224+CTB2TEST EQU 
225+CTB2EXCL EQU 
226+CTB2IN0P EQU 
227+CrB2E0IT EQU 

229+CTBFLAG3 DS 
230+CTB3REAC EQU 
231+CTB3QSYS EQU 
232+CTB3L00P EQU 
233+CTB3CHE EQU 
234+CTB3QERR EQU 
235+CT63QMSG EQU 
236+CTB3LAST EQU 
237+CIB3SEG1 EQU 

239+CTBFLAG4 DS 
240+CTB4CNCL EQU 
241+CTB40UTP EQU 
242+* EQU 
243+* EQU 
244+* EQU 
245+* EQU 
246+* EQU 
247+* EQU 

249+CTBACTL DS 
250+CTBAINP EQU 
251+CTBAEOM EQU 
252+CTBASHUT EQU 
253+CTBAINC EQU 



X' 


80 • 


x« 


40* 


x< 


20* 


x« 


10' 


X' 


08* 


X' 


04* 


x« 


02* 


X' 


01* 


c 


• 


x« 


80' 


x< 


40* 


X' 


20' 


x« 


10* 


x« 


08* 


x« 


04* 


x« 


02* 


x« 


01 » 


c 


• 


x« 


80 • 


x« 


40* 


x« 


20* 


X' 


10 » 


X" 


08* 


x« 


04 • 


x« 


02' 


x« 


01 • 


c 


• 


x» 


80 » 


x« 


40 » 


x« 


20* 


X' 


10 • 


X" 


08 » 


x« 


04 • 


x« 


02* 


x« 


01* 


c 


, 


x« 


80* 


x< 


'40* 


X' 


20* 


x« 


10* 



THIS CTB IN CONVERSATION 

1 MASTER TERMINAL 

2 SUBPOOL CTB 

3 DIAL CTB IS PHYSICALLY CONNECTED 

4 DIAL CTB IS LOGICALLY CONNECTED 

5 CONVERSATION IN PROGRESS WAS HELD 

6 PRESET CNT 

7 PRESET SMB 



NO INPUT 

1 NO OUTPUT 

2 NO QUEUEING 

3 LOCKED 

4 TEST MODE 

5 EXCLUSIVE MODE 

6 INOPERABLE 

7 USER OUTPUT EDIT REQUESTED 



INPUT ONLY DEVICE 

1 QUEUE ALL SYSTEM MESSAGES 

2 LOOP TEST PENDING 

3 LINE DISCONNECT REQUESTED 

4 ERROR ON GET NEXT FOR OUTPUT 

5 QUEUE CAUSE OF ERROR WITH SYSMSG 

6 LAST CTB ON THIS LINE 

7 FIRST SEGMENT 



DEQUEUE MESSAGE IN PROCES: 
OUTPUT ONLY TERMINAL 

2 NOT USED 

3 NOT USED 

4 NOT USED 

5 NOT USED 

6 NOT USED 

7 NOT USED 



FLAGS TO BE USED BY ANALYZER 

0=OUTPUT NEXT, 1= INPUT NEXT 

1 1=END OF OUTPUT MSG 

2 1=SYSTEM SHUTDOWN 

3 1=INC0RE SYSTEM MESSAGE 



REQUESTED 



5.40 



SlMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



254+CTBAMUL1 EQU X» 08 • . 4 
255+CTBAERR EQU X«04« . 5 



REJECT IF NOT MULTIPLE SEGMENT MESSAGE 
ERROR FOUND ON LAST SEGMENT PASSED 



257+CTBDCTL DS C 
258+CTBDCTL2 DS C 



FLAGS 
FLAGS 



USED BY 
USED BY 



DD 
DD 



ROUTINES 
ROUTINES 



260+CTBFEAT DS C . 

261+CTBFSYN1 EQU X» 08 • 

262+CTBFSYN2 EQU X»04« 

263+CFBFPAGE EQU X«02« 

264+CTBFNAPO EQU X'Ol' 



FEATURES FLAGS 
ASYNCHRONOUS DEVICE, 
ASYNCHRONOUS DEVICE, 
PAGING IN PROCESS 
AUTOMATIC PAGE DELETION 



SYNC 
SYNC 



FLAG 
FLAG 



NOT REQUESTED 



266+CT 
267+CT 
268+CT 
269+CT 
270+CT 
271+CT 
272+CT 
273+CT 
2 74+CT 



BCOMP 
8C1NA 
BC1IP 
BC2NA 
BC2IP 
BC3NA 
BC3IP 
BC4NA 
8C4IP 



DS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



COMPONENTS 



80 
40 
20 
LO 
08 
04 
02 
OL 



COMPONENT 
COMPONENT 
COMPONENT 
COMPONENT 
COMPONENT 
COMPONENT 
COMPONENT 
COMPONENT 



IS 
IS 
IS 
IS 
IS 
IS 
IS 
IS 



TWO BITS FOR 
NUT ATTACHED 
I NOPtRABLE 
NOT ATTACHED 
INOPERABLE 
NOT ATTACHED 
INOPERABLE 
NOT ATTACHED 
INOPERABLE 



EACH 



3088 
3088 
3088 
3088 
3088 
3088 
3088 
3088 



276+CT 
277+CT 
278+CT 
279+CT 
2 80+CT 
281+CT 
282+CT 
283+CT 
284+CT 



BINCT 

BOUTCT 

BCPMP 

BCNTP 

BPREST 

BC08 

BCCB 

BCXB 

BPGNO 



DS 
DS 
OS 
DS 
DS 
DS 
DS 
DS 
DS 



INPUT MSG COUNT 

OUTPUT MSG COUNT 

PASSWORD MATRIX POINTER 

LOGICAL TERMINAL POINTER 

PRESET DESTINATION OFFSET 

OFFSET TO COMMUNICATION OVERFLOW BLOCK 

OFFSET TO CONVERSATIONAL CONTROL BLOCK 

COMMUNICATION EXTENT BLOCK POINTER 

CURRENT PAGE BEING VIEWED 



5.41 



STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



367 I SCO SCOBASE=C 

368+SCD DSECT 

369 + *** *****************************#** *** 
370+** *********************************** 
371+** ** 

372 + ** IMS SYSTEM CONTENTS 01 RECTORY (SCO) ** 

373+** ** 

374+** ********************************* ** 
375+*** ******************************** *** 



377+SSCDORG DS 
378+SSCDSVC1 SVC 
379+ BR 

380+SSCDSVC2 SVC 
381+ 8R 

382+SSCOSVC3 SR 
383+ BR 

384+SSCDSVC4 SVC 
385+ BR 

386+SSCDOCEP DC 
387+SSCDOSPS DC 
388+SSCDOSLV DC 
389+SSCDIMSR DC 
390+SSCDIMSL DC 
391+SSCDASPS DC 
392+SSCDASLV DC 
393+SSCDDESC DC 
394+ DC 

395+SSCDROUT DC 
396+ DC 

397+OFSXWAIT DC 
398+DFSXIOBA DC 
399+DFSXOPEN DC 
400+SSCDMCID DC 
401+ DC 

402+ DC 



OD SECONDARY SCO ORIGI 
USER TYPE 1 SVC NUMB 
14 RETURN ON REGISTER 
USER TYPE 2 SVC NUMB 
14 RETURN ON REGISTER 
15,15 CLEAR REGISTER 
14 RETURN ON REGISTER 
255 USER TYPE 4 SVC NU 
14 RETURN ON REGISTER 
CL2»Z9« GSAM CHANNEL E 
X«10' OS/360 SYSTEM CO 
ALU 18) CS/360 RELEASE 
ALKO) IKS RELEASE NUM 
ALKO) IMS MOD LEVEL N 
X r 00« SYSTEM CONFIGURA 
ALKO) OS/360 RELEASE 
MCS DESCRIPTOR 
RESERVED FOR OS 
MCS ROUTING COD 
RESERVED FOR OS 
IWAIT EP A 
OSAM IOB Q 



ALKO) 

AL3(0) 

AL2C0) 

AL2(0) 

VC OF SI WAIT) 

VCDFSIOS40) 



A(DFSXOPEN) OSAM OPEN 
ALKO) CONSOLE ID - ST 
AL3(0) RESERVED 
F«0« RESERVED 



N 

ER 

14 

ER 

14 

14 

MBER 

14 

NO APPENDAGE SUFFIX 

NFIGURATION 

LEVEL SPECIFIED 
BER. 
UMBER. 

TION - ACTUAL 
LEVEL - ACTUAL 
CODE 

/360 EXPANSION 
ES 

/360 EXPANSION 
DDRESS 
CB 
EP 
ART IMS COMMAND. 



5.42 



STMT 



SOURCE STATEMENT 



F15QCT70 



3/27/72 



405 + * $#*■#**#*******#******#** sOc sOe.* sje jflc aje.* aQc ### 

406 + * * 

407 + * RECORDER LOG SECTION: * 

408 + * * 
409 + * ***##*#*******#'***###*##********#*# 



411+SCDREENT DC 
412+SC0REDCE DC 
413+SCDREWRK DC 
414+SCOREPLN DC 



V(DFSFLOIO) RECORDER ENTRY POINT 
A(O) DCB AND WKAREA LIST ADDRESS 
V(DFSILOGW) WORK AREA FOR THE LOGGER 
H«28« LENGTH OF LOG PREFIX IN BYTES 



41 6t *** lgg CONTROL BYTE *** 
417 + SCDRECTL DC X«0000« 

418+SCDLGOPN EQU X' 80 • LOG IS OPEN 
419+SCDLGTRM EQU X'40' LOG SM3TASK DETACHED 



42L+SCDRELCT 


DC 


H«500« C 


422+SCDRECCT 


DC 


H'SOO" C 


423+SCDRPENT 


DC 


A{0) ENT 


424+SCDRTECB 


DC 


F«0« LOG 


425+SCDRTCB 


DC 


A(O) LOG 


426+SCDRETXR 


DC 


A(O) RES 


427+SCDRPFX 


DC 


V(DFSIPR 


428+SCDDBLNT 


DC 


ACSCDDBL 


429+SCDCWRK 


DC 


F«0« CHE 


430+SCDCWRKL 


DC 


H«512» L 


431+SCDCPNO 


DC 


H«0» CHE 


432+SCDDATE 


DC 


F«0» DAT 


433+SCDTIME 


DC 


F»0« TIM 


434+SCDSEQ 


DC 


hMO* DAT 


435+SCDRGTYP 


DC 


ALKOtO) 


436+SCDDBDCB 


DC 


A(O) ADD 


437 + 


DC 


4F'0« RE 



HECKPOINT LOG 
URRENT LOG FRE 
RY TO LOG WRIT 
TASK TERMINAT 
TASK CONTROL 
ERVED 

£F) ENTRY TO L 
NT) ENTRY TO D 
CKPOINT/DB LOG 
ENGTH OF CHECK 
CKPOINT NUMBER 
E FOR RESTART/ 
E FOR RESTART/ 
ABASE LOG SEQU 
REGION TYPE ( 
PESS OF DATABA 
SERVED FOR SYS 



FREQUENCY CONTROL REFERENCE 

QUENCY COUNTERt CPT AT ZERO 

ER 

E ECB 

BLOCK ADDRESS 

OG PREFIX BUILDER 

ATABASE CHANGE LOGGING ROUTINE 

WORK AREA ADDRESS 
POINT/DB LOG WORK AREA 

DATABASE LOG 
DATABASE LOG 
ENCE NUMBER 
0=CTL,3=DLI) 
SE LOG DCB 
TEM EXPANSION 



5.43 



STMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



439+* ****************** ****** *********** 

440 + * * 

441 + * DATA LANGUAGE/I S OSAM S EC T I N : * 
442+* * 
443 + * * * * * * * ********* * * ******* *********>«!* 



445+SCDDLICT DC 
446+SCDDLIMQ DC 
447+SCDISAM DC 
448+SCDDLARE EQU 
449+SCDDLIRE DC 
450+SCDDLIIN DC 
451+SCDDLIDR DC 
452+SCDDLDAE EQU 
453+SCDDLIHS DC 
454+SCDDLIPS DC 
455+SCDPSBFR DC 
456+SCDDLILN DC 
457+SCDDLINC DC 
458+SCDPSBSW OS 
459+SCODLIDM DC 
460+SCDOLIDL DC 
461+SCDDLIDN DC 
462+SCDDLIPA DC 
463+SCDDLIPL DC 
464+SCDDLIPN DC 
465+SCDDLIBD DC 
466+SCDDMBSW DS 
467+SCDDMBFR DC 
468+SCDPSBMU DC 
469+SCDDPDM DC 
470+SCDACBDC DC 
471+SCDPSBPL DC 
472+SCDDMBPL DC 
473+SCDLLOGD DC 
4 74+SCDDLIMV DC 
475+SCDDSST OC 
476+SCDDLICL DC 
477+SCDDL107 DC 
478+SCDWQCB DC 
479+SCD8PARM DC 
480+SCDASE OC 
481+SCDDBFPL DS 
482+SCDDD8H0 DC 
483+SCDDHDS0 DC 
484+SCDDXMTC DC 
485+SCDDBCVT DC 
486+SCDOIOBS EQU 
487+SCDOOPEN EQU 
488+SCDIWAIT EQU 
489+SCDSAVE DC 
490+SCDFLOS DC 
491+SCDFLOSR DC 
492+SCDNAVID DS 
493+SCDRLDTE DC 



A(SCDDLI 
ACO) RES 
A(SCDISA 
22 RETUR 
ACSCDDLI 
ACSCDDLI 
ACSCDDLI 
18 ALTER 
ACSCDDLI 
VCOFSIDI 
A(O) EP 



H«40 
H»0» 
OXL1 
A(OJ 
H«36 
H«0» 



LE 

NUM 
- 
BEG 
LE 
NUM 



VCDFSIPS 

H , 424» L 

H*0» NUM 

ACO) 

OXLL - 

ACO) ENT 

V(DFSIPS 

VtDFSDPD 

V(ACBDCB 

F»0« 

F«0« 

7F«0« 

V(DFSDBL 

V(DFSDSS 

ACSCDDLI 

ACSCDDLI 

V(DFSPWQ 

A(O) DL/ 

VCDFSIAS 

A LOCATI 

A(O) ENT 

ACO) ENT 

A(O) ENT 

ACO) ENT 

DFSXIOBA 

DFSXOPEN 

DFSXWAIT 

VCDFSISA 

ACO) STA 

ACO) STA 

OF 

X'OO* 



CT) DL/I 
ERVED 
N.) ISAM S 
N POINT F 
PE) RETRI 
IN) INSER 
CR) DELET 
NATE ENTR 
FS) HSAM 
PO) BEGIN 
TP PSB FR 
NGTH OF P 
BER OF PS 
FREE PSB 
INNING OF 
NGTH OF E 
EER OF DM 
T) START 
ENGTH OF 
6ER OF PS 



ANALYZER ENTRY POINT CDFSDLAOO) 



IMULA 
ROM A 
EVE M 
T MOD 
E/REP 
Y TO 
ENTRY 
NING 
EE PO 
SB DI 
B DIR 
POOL 
DMB 
ACH D 
B DIR 
OF PS 
EACH 
T ENT 



RELEASE DMB S 
RY TO DMB FREE 
8Q) PSB MOST U 
m) PSB/DMB PO 
) ACBLIB DCB P 



HO) BLOCK MOVE 
TO) SEGMENT IN 
CD DATA MAN AG 
C7) ENTRY TO D 
CB) DL/I MOVER 
I REGION PARMS 
EO) A PPL I CAT 10 
CN OF DL/I BUF 
RY POINT OF DL 
RY POINT OF GE 
RY POINT OF IN 
PY POINT OF BY 
OSAM IOB QC8 
OSAM OPEN EP 
I WAIT ENTRY P 
VO) ORIGIN OF 
E EXIT ROUTINE 
E RETRY ROUT IN 



TOR ENTRY POINT 

NALYZER ENTRY POINT 

ODULE ENTRY POINT 

ULE ENTRY POINT 

LACE MODULE ENTRY POINT 

DELETE/REPLACE 

POINT 
OF PSB DIRECTORY ENTRIES 
GL SPACE ROUTINE 
RECTORY ENTRY 
ECTORY ENTRIES 

SPACE 
DIRECTORY ENTRIES 
MB DIRECTORY ENTRY 
ECTORY ENTRIES 
T BLOCKS 
PST 
RIES 

PACE, 1 - RESERVED 

POOL SPACE ROUTINE 
SED QCB ADDRESS 
OL MANAGER 
OINTER 



R ENTRY POINT 
TENT RESERVATION CSECT 
EMENT OPEN/CLOSE ENTRY POINT 
L/I LOAD PROGRAM 

QCB ADDRESS 

CPXPARMS) 
N SCHEDULER TERMINATOR EP 
FER POOL 

/I BUFFER HANDLER 
T/FREE SPACE 
DEX MAINTENANCE 
TE BLOCK CONVERSION 



OINT ADDRESS 
SAVE AREA SET 

ENTRY POINT 
E ENTRY POINT 



STMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



494+SCDSYNCN DC 
495+SCDLOWID DC 
496+ DC 



AL3C0) 

F«0' 

SP'O' RESERVED FOR SYSTEM EXPANSION 



5.44 



STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



49g + $ ************ 

499 + * 

500 + * STORAGE M A N A 
501+* 



****** ****** *********** 

* 
GEMENT SECTION: * 

* 



502 +* ****************** ****** *********** 



504+SCDSMMLC 


DC 


ACO) 


505+SCDSMML 


DC 


F»0» 


506+SCDSMMHI 


DC 


ACO) 


507+SCDSMMGC 


DC 


A(0) 


508+SCDSMMFC 


DC 


ACO) 


509+SCDSMMCP 


DC 


VCDF 


510+SCDSMMDP 


DC 


V(DF 


511+SCDSMMFB 


DC 


VCDF 


512+SCDSMMGB 


DC 


VCDF 


513+SCDILMSK 


DC 


X'OO 


514+ 


OS 


XL 2 


515 + 


DS 


3F P 



ADDRESS OF START OF SMM CORE AREA 
LENGTH OF STORAGE MANAGEMENT CORE AREA 
ADDRESS OF END OF SMM CORE AREA 



SICRET) ICREAT ENTRY POINT 
SIDEST) IDESTROY ENTRY POINT 
SIFBUF) IFREEBUF ENTRY POINT 
SIGBIF) IGETBUF ENTRY POINT 
01 • PROGRAM LOAD MASK 
NOT USED 
ADDING 



517 + * *********************************** 
518+* * 

519 + * ENQUEUE/DEQUEUE SECTION: * 

520+* * 

521 + ****** *** ** * * *** *** * *** ** **** **** *** 



523+SCDIDEQ OC 
524+SCDIENQ DC 
525+ DS 



VCDFS1IDE0) IDEQ ENTRY POINT 
VCDF SI IE NO) IENQ ENTRY POINT 
2F 



STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



527+* ************************ ******** *** 
528+* * 

529+* QUEUE MANAGEMENT SECTION: 

530+* * 

53 i+************************ ************ 



533+SCDIRWQE DC VCDF 

534+SCDIQDCB DC VCDF 

535+SCDSMDCB DC VCDF 

536+SCDLMDCE OC VCDF 

537+SCDSPDCB DC VCDF 

538+SCDQPOOL DC ACO) 

539+SCDPRLN1 DC H«40 

540+SCDPRLN2 DC H» 16 

541+SCDQCRSZ DC H«0« 

542+SCDMSGSZ DC H«0» 

543+SCDQMREB DC F»0* 

544+SCDCKCL DC F'0« 

545+SCDQMSRB DC H» 0» 

546+ DC 5H«0 



SQMGRO) I 
SIQDCB) A 
SSMDCB) A 
SLMDCB) A 
SICDCB) A 
POINTER 
» LENGTH 

• LENGTH 
SIZE OF 
SIZE OF 
SAVE ARE 
COMM FOR 
RECCRDS 

• RESERVE 



READ/IWRITE QUEUE ENTRY POINT 

DDRESS OF INPUT QCR DCB 

DDRESS OF IMS2.SHMSG DCB 

DDRESS OF IMS2.LGMSG DCB 

DDRESS OF SCRATCH PAD AREA CSPA) DCB 

TO QUEUE BLOCK POOL 

OF FULL MESSAGE PREFIX 

OF CONDENSED MESSAGE PREFIX 

QCR BUFFER 

MSG BUFFER 

A PTR TO BUFFER ALLOC FOR REUSE 

INTERNAL CHECKPOINTS 
RESERVED FOR SHUTDOWN/REUSE 
D FOR SYSTEM EXPANSION 



5.45 



STMT SOURCE STATEMENT 



F150CT70 



3/27/72 



548 + * ****************** # £ :{c # # # $##**#*###*: 

549+* * 

550+* COMMUNICATION SECTION: * 

551 + * * 

552+************************************ 



554+SCDCTT 


DC 


V(DFSICT 


555+SCOCTTL 


DC 


H'28» LE 


556+SCDCTTN 


DC 


H»0« NUM 


557+SCDCLB 


DC 


V(DFSICL 


558+SCDCLBL 


DC 


H«100« L 


559+SCDCLBN 


DC 


H'O' NUM 


560+SCDCTB 


DC 


V<DFSICT 


561+SCDCTBL 


DC 


H'32» LE 


562+SCOCTBN 


DC 


H»0« NUM 


563+SCDCXB 


DC 


A<0) COM 


564+SCDCXBL 


DC 


H'20' LE 


565+SCDCXBN 


DC 


H'O' NUM 


566+SCOCNT 


DC 


VtDFSICN 


567+SCDCNTL 


DC 


H*44» LE 


568+SCDCNTN 


DC 


H'O' NUM 


569+SCDCDB 


OC 


V{OFSICO 


570+SCDCOBL 


DC 


H'4» LEN 


571+SCDCOBN 


DC 


H'O' NUM 


572+SCDCVB 


DC 


VCDFSICV 


573+SCDCVBL 


DC 


H»12» LE 


574+SCDCVBN 


DC 


H'O' NUM 


575+SCDCPT 


DC 


ACO) COM 


576+SCDCPTL 


DC 


H'O' LEN 


577+SCOCPTN 


DC 


H'O' NUM 


578+SCDCPM 


OC 


ACQ) COM 


579+SCDCPML 


DC 


H'O' LEN 


580+SCOCPMN 


DC 


H'O' NUM 


581+SCOCTM 


DC 


V(DFSICT 


582+SCDCTML 


DC 


H'O' LEN 


583+SCDCTMN 


DC 


H'O' NUM 


584+SCDCCB 


DC 


A(O) CON 


585+SCDCCBL 


DC 


H»32« CC 


586+SCDCCBN 


DC 


H'O' NUM 


587+SCDCCBND 


DC 


AL2C0) 


588+SCDCCBNC 


DC 


AL2(0) 


589+SCDCCBDL 


DC 


H'O' MAX 


590+SCDCCBCL 


DC 


H'O' MAX 


591+SCDCAN01 


DC 


VCDFSCIO 


592+SCDCAN02 


DC 


VCDFSCIO 


593+SCDCAN03 


DC 


VCDFSCIO 


594+SCDCAN04 


DC 


VCDFSCIO 


595+SCDCAN05 


DC 


VCDFSCIO 


596+SCDCAN06 


DC 


VCDFSCIO 


597+SCDCAN07 


DC 


VCDFSCIO 


598+SCDCAN08 


DC 


VCDFSCIO 


599+SCDCAN09 


DC 


VCDFSCIO 


600+SC0CAN1C 


OC 


VCDFSCIO 


601+SCDCAN11 


DC 


VCDFSCIO 


602+SCDFNOST 


DC 


VCDFSICL 



T) COMMUNICATI 
NGTH OF EACH C 
EER OF CTTS 
E) COMMUNICATI 
ENGTH OF EACH 
EER OF CLBS 
B) COMMUNICATI 
KGTH OF EACH C 
EER OF CTBS 
NUN IC AT I ON EXT 
NGTH OF EACH C 
EER OF CXBS 
7) COMMUNICATI 
NGTH OF EACH C 
EER OF CNTS 
B) COMMUNICATI 
GTH OF A COB 
EER OF CDBS 
B) COMMUNICATI 
NGTH OF EACH C 
EER OF CVBS 
NUNICATION PRI 
GTH OF EACH CP 
EER OF CPTS 
MJNICATION PRI 
GTH OF EACH CP 
EER OF CPMS 
KJ COMMUNICATI 
GTH OF EACH CT 
EER OF CTMS 
VERSATIONAL CO 
B LENGTH 
EER OF CCBS 
FFSET TO FIRST 
FFSET TO FIRST 
IMUM LENGTH OF 
IMUM LENGTH OF 
CD COMMUNICAT 
C2) COMMUNICAT 
03) COMMUNICAT 
C4) COMMUNICAT 
G5) COMMUNICAT 
C6) COMMUNICAT 
C7) COMMUNICAT 
C8) COMMUNICAT 

09) COMMUNICAT 

10) COMMUNICAT 
li) COMMUNICAT 
FO) FIND DESTI 



ON TRANSLATION TABLE BASE ADDR 
TT 

ON LINE BLOCK BASE ADDRESS 
CLB 

ON TERMINAL BLOCK BASE ADDRESS 
TB 

ENT BLOCK BASE ADDRESS 
XB 

ON NAME TABLE BASE ADDRESS 
NT 

ON DIRECTORY BLOCK BASE ADDR 



ON VERB BLOCK BASE ADDRESS 
VB 

ORITY TABLE BASE ADDRESS 
T 

ORITY MATRIX BASE ADDR 
M 

ON TERMINAL MATRIX BASE ADDR 

M 

NTROL BLOCK BASE ADDRESS 



DISK CCB 
INCORE CCB 
DISK SPA 
INCORE SPA 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
NATION ROUT IN 



ENTRY # 1 
ENTRY # 2 
ENTRY # 3 
ENTRY » 4 
ENTRY # 5 
ENTRY # 6 
ENTRY # 7 
ENTRY # 8 
ENTRY # 9 
ENTRY # 10 
ENTRY #11. 
E ENTRY POINT 



5.46 



STMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



603+SCDMSGRT 


oc 


V(DFST 


604+SCDMTRM 


DC 


VCDFSC 


6O5+SCDCLIS0 


CC 


VIDFSI 


606+SCDTRANS 


DC 


VIDFSI 


607+SCDCONV 


DC 


A<0) C 


608+SCDCOB 


DC 


A(O) C 


609+SCDCOBL 


DC 


H»32» 


610+SCDCOBN 


DC 


H«0» N 


611+SCDCTCLE 


DC 


V(DFSI 


612+SCDREPOL 


DC 


V(DFSI 


613+SCDNTB 


DC 


V(DFSI 


614+SCDEDITC 


DC 


A(O) U 


615+SCDEDITS 


DC 


V(DFSL 


616+SCDINCT 


DC 


H«0' 


617+SCDOUTCT 


DC 


H»0» 


618+SCDCPCTL 


DC 


X«00» 


619+SCDPCP01 


EQU 


X«80 l 


620+SCDPCP02 


EQU 


X^O 1 


621+SCDPCP03 


EQU 


X»20« 


622 + 


DC 


AL3(0) 


623 + 


DC 


gF'O 1 



CLRO) MESSAGE RU 
TBNT) MASTER TER 
CLSO) SECURITY R 
CLTO) TRANSLATE 
ONVERSATION PROC 
OMfUNICATION OVE 
LENGTH OF EACH C 
UMEER OF COBS 
CLE) CONSOLE TYP 
CLXO) RESET POLL 
NT BO) 

SER EDIT ROUTINE 
ISTO) USER EDIT 



UTER ROUTINE ENTRY POINT 
MINAL CTB ADDRESS 
OUTINE ENTRY POINT 
ROUTINE ENTRY POINT 
ESSOR ENTRY POINT 
RFLOW BLOCK BASE ADDRESS 
OB 

EWRITER CLB 
MODULE ENTRY POINT 

FOR CNT DESTINATIONS 
ROUTINES FOR SMB DESTINATIONS 



CHECKPOINT POST SYNC BITS 



RESERVED FOR SY 
RESERVED FOR SYS 



STEM EXPANSION 
TEM EXPANSION 



STMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



625+* ************ 

626 + * 

627+* DISPATCHER 

628 + * 



*********** ******** 



629 + * ****** 


* * * * * 


631+SCDEXTWQ 


DC 


V(DFSEXT 


632+SCDINTWQ 


DC 


VtDFSINT 


633+SCDINTSC 


DC 


V(DFSINT 


634+SCDTECBR 


DC 


V(DF SITE 


635+SCDPARM 


DC 


A(O) ADD 


636+SCDTECB 


DC 


F'O 1 IMS 


637+SCDSAVEL 


DC 


H»508« L 


638+SCDSLEV 


EQU 


7 NUMBER 


639+SCDSAVEN 


DC 


H«0» NUM 


64G+SCDSRQE 


DC 


V(DFSIRQ 


641+SCDSRQEL 


DC 


H'8' LEN 


642+SCDSRQEN 


DC 


H»0» NUM 


643+SCDWAITQ 


DC 


VCDFSIWA 


644+SCDEXTWL 


DC 


H»4» LEN 


645+SCDEXTWN 


DC 


H»0» NUM 


646+SCDSUBSV 


DC 


A(O) ADD 


647+SCDCFAC 


DC 


X«00» CU 


648+SCDCMQO 


OC 


X'OO 1 CU 


649+SCDTEST 


DC 


X'80 1 TE 


650+SCDTLEV 


DC 


X«00« TE 


651+SCDRES2 


DC 


F»0« PAD 


652 + 


DC 


4F'0« RE 



* * * 
* 
* 
* 



SECTION 



WQ) EXTERNAL W 
feQ) INTERNAL W 
SQ) INTERNAL S 
RM) TERMINATIO 
RESS OF PARM L 

TERMINATION E 
ENGTH OF SAVE 

OF SAVE AREAS 
EER OF SAVE AR 
EO) ORIGIN OF 
GTH OF EACH RQ 
EER OF RQES 
TQ) ORIGIN OF 
GTH OF EACH EN 
BER OF EXTERNA 
RESS OF LAST S 
RRENT FIRST LE 
RRENT MODULE W 
ST MODE CONTRO 
ST MODE LEVEL 
CING 
SERVED FOR SYS 



AIT QUEUE ADDRESS 

AIT QUEUE ADDRESS 

AVE QUEUE ENTRY POINT ADDRESS 

N ROUTINE ENTERED IF TECB POST 

1ST FROM SYSTEM 

CB POSTED BY CHECKPOINT 

AREA SETS INCLUDING QE 

IN A SET 
EA SETS 
RQE LIST 
E 

WAIT QUEUE 

TRY IN EXT WAIT QUEUE 

L EVENTS 

UBTASK 1ST LEV SAVE AREA 

VEL FACILITY 

ITHIN FACILITY 

L INDICATOR 

INDICATOR 

TEM EXPANSION 



5.47 



STMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



654+* ***** ********** * * * ****** ******** *** 
655 + * *. 

656+* APPLICATION SCHEDULER SECTION: * 

657+* * 

658+***** * **** * ** *** *** * ***** * * ****** ** * 



660+SCDASINT 


DC 


VCDFSASI 


661+SCDASTER 


DC 


VCDFSAST 


662+SC0SM8EP 


DC 


VCDFSISM 


663+SCDSMBL 


DC 


H«56» LE 


664+SCDSMBN 


DC 


H»0* NUM 


665+SCDSMBDC 


DC 


V(DFSSMB 


666+SCDSMBNG 


DC 


VCDFSSMB 


667+SCDCHKXE 


DC 


ACSCDCHK 


668+SCOTCTEP 


DC 


V(DFSITC 


669+SCDTCTL 


DC 


H«8Q' LE 


670+SCDTCTN 


DC 


H'O' NUM 


671+SCDMRQEP 


DC 


ViDFSIMR 


672+SCDPRQEP 


DC 


V(DFSIPR 


673+SCOBPRQE 


DC 


VCDFSIBP 


674+SCDEXTSQ 


DC 


VCDFSEXT 


675 + 


DC 


4F'0« 



NT) APPLICATIO 
RM) APPLICATIO 

B) SYSTEM MESS 
NGTH OF EACH S 
BER OF SMBS 
CQ) SMB DEQUEU 
EQ) SMB ENQUEU 
EB) ADDRESS OF 
7) TRANSACTION 
NGTH OF EACH T 
EER OF TCTS 

C) ADDRESS OF 
Q) ADDRESS OF 
RQ) ADDRESS OF 
SQJ EXTERNAL S 



N SCHEDULER INITIATOR ENTRY 
N SCHEDULER TERMINATOR ENTRY 
AGE BLOCKS BASE ADDRESS 

MB 

E ENTRY POINT ADDRESS 

E ENTRY POINT ADDRESS 
ECB TO BE POSTED BY DFSIASOO 
CLASS TABLES BASE ADDRESS 

CT 

MESSAGE REQUEST QUEUE 
PARTITION REQUEST QUEUE 

BATCH PARTITION REQUEST QUEUE 
AVE QUEUE ENTRY POINT ADDRESS 



5.48 



STMT 



SOURCE STATEMENT 



F150CT70 3/27/72 



677 + $ ************************ ******** *** 

678+* * 

679+* CHECKPOINT/RESTART SECTION: * 

680+* * 

681+****** ******* ************ *********** 



683+*** CHECKPOINT STATUS BYTE *** 
684+SCDCKCTL DC X*00' 



685 + * 

686 + * 

687 + * 

688 + * 

689 + * 

690 + * 

691 + * 

692 + * 

693 + * 



DESCRIPTION OF BIT SETTINGS 

NOT USED 

1 DATABASE RECOVERY 

2 PURGE REQUEST 

3 SYSTEM SHUTDOWN REQUEST 

4 DUMP QUEUE REQUEST 

5 MASTER TERMINAL CHECKPOINT REQUEST 

6 DATABASE DUMP REQUEST 

7 SYSTEM SCHEDULED CHECKPOINT (LOG) 



695+ *** RESTART STATUS BYTE *** 
696+SCDRSCTL DC X«00» 



697+* 

698 + * 

699 + * 
7G0 + * 

701 + * 

702 + * 
703+* 

704 + * 

705 + * 



DESCRIPTION OF BIT SETTINGS 

PASSWORD SECURITY REQUESTED 

L QUEUE ONLY RESTART 

2 PSB/DMB CHANGED - REBUILD BLOCKS 

3 ALLOW COMMANDS EXCEPT RESTART 

4 TERMINAL SECURITY REQUESTED 

5 EMERGENCY RESTART 

6 BUILD QUEUES 

7 NORMAL RESTART 



707+*** COMMON 
708+SCDSTOP1 DC 

709 + * 

710 + * 

711 + * 
712+* 
713 + * 
7L4 + * 

715 + * 

716 + * 

717 + * 

718 + * 
7L9 + * 

720 + * 

721 + * 

722 + * 

723 + * 

724 + * 

725 + * 

726 + * 

727 + * 



SYSTEM SHUTDOWN STATUS BYTE *** 
X'OOOO' 
BYTE 1 DESCRIPTION GF BIT SETTINGS 

STOP INPUT 

1 STOP OUTPUT 

2 SEND ALL OUTPUT 

3 PROCESS ALL MESSAGES 

4 QUEUE'S AVAILABLE 

5 FREE MESSAGE REGIONS 

6 TERMINATE ALL REGIONS 

7 STOP SMB INPUT 

BYTE 2 DESCRIPTION GF BIT SETTINGS 

PROCESS AT SYSTEM PRIORI 

1 DATABASE STOP 

2 FORCE EOV ON LOG FILE 

3 ABEND AT TERMINATION 

4 DISCONNECT ALL LINES 

5 ALL OUTPUT SENT 

6 SYSTEM CLOSE DOWN 

7 FINAL ENTRY CONTROL 



- USER 
COMMUNICATIONS 
COMMUNICATIONS 
COMMUNICATIONS 
SCHEDULER 
READ/WRITE Q 
SCHEDULER 
SCHEDULER 
COMMUNICATIONS 

- USER 

ty scheduler 
checkpoint 
checkpoint 
communications 
communications 
communications 
Checkpoint 
checkpoint 



729+SCDCKDBN DS 
730+SCDCKDB DC 
731+SCDLOGN DS 



OCL1 # OF ENTERED DATABASE NAMES FOR RECOVERY 
A(O) POINTER TO POOL CONTAINING DATABASE NAMES 
OCL1 COUNT OF RESTART SERIAL NUMBERS 
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STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



732+SCDLOG DC 
733+SCDCLIPN DC 
734+SCDCLQPN OC 
735+SCDCPCOl OC 
736+SCDCHKEP OS 
737+SCDRSTEP DC 
738+SCDCHKEB DS 
739+SCDRSTEE DC 
740+SCDD8TBL DC 
741+ DC 



A(O) POINTER TO POOL CONTAINING SERIAL NUMBERS 

H'OOOO' INPUT TERMINAL ACTIVE COUNT 

H l OOOO' CUTPUT TERMINAL ACTIVE COUNT 

A(O) SCRATCH PAD AREA LOG ROUTINE ENTRY POINT 

OF 

V(DFSRSTGO) RESTART ROUTINE ENTRY POINT ADDRESS 

OF 

V(DFSRTECB) RESTART ECB ADDRESS 

A(O) RESTART DATABASE NAME TABLE 

4F'0» 



STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



743+* ******** 
744 + * 

745+* START/ST 

746 + * 



$$$ $?£$$$$ $$:$$$$ $$$?£*$$:$ 



* * * 

* 

OP REGION SECTION: * 

* 
747 + * **3gc********$^***************'******* 



749+SC0REG0P DC 
750+SCDREGCL DC 
751+SCDCMDCT DC 
752+SCDREGST DC 
753+SCDREGCT DC 
754+SCDSRDR DC 
755+SCDSRMBR DC 
756+SCDSMMBR DC 
757+SCDSINIT DC 
758+SCDPINIT DC 
759+ DC 

760+SCDPSYS EQU 
761+SCDPSMVT EQU 
762+SCDPSMF7 EQU 
763+SCDPSPCP EQU 
764+SCDIMSR EQU 
765+SCDIMSL EQU 
766+ DC 



A(O) ECB 

A(O) ECB 

X'OO' # 

X'OQ* » 

H'OOOO' 

A(SCDPRO 

A(SCDPRO 

A(SCDPRO 

AtSCDPRO 

AISCDPRO 

2F«0» 

SSCDOSPS 

X»lO» VA 

X«20« VA 

X*40' VA 

SSCDIMSR 

SSCDIMSL 

2F»0» RE 



TO OPEN REGION 

TO CLOSE REGION 
CF START/STOP REGION COMMANDS ISSUED 
CF PENDING STOP COMMANDS 
COUNT OF OPEN REGIONS 

CI J ADDRESS OF START READER COMMAND 
C2) ADDRESS OF MEMBER FIELD IN START READER 
C3) ADDRESS OF MSG REG PROC MEMBER NAME 
C4) ADDRESS OF START INITIATOR COMMAND 
C5) ADDRESS OF STOP INITIATOR COMMAND 

PROGRAMMING SYSTEM OPTION BYTE FROM CVT 
LUE IF MVT 
LUE IF MFT-II 
LUE IF PCP 

IMS RELEASE Nl 

IMS MOD LEVEL 
SERVED FOR SYS 



I UMBER 
TEM EXPANSION 
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STMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



768+* * * * * 


It * * 


* * 


769 + * 






770 + * 


C M M , 


771 + * 






772 + * 






773 + * 






774 + * 






775+* 






776 + * 






777 + * 






778 + * 






779 + * 






780+* ****** 


* * 


782+SCDPROC1 


OS 


OF 


783 + 


DC 


AL 


784+ 


DC 


B' 


785 + 


DC 


C" 


786+IHB0005 


EQU 


* 


787+SCDPROC2 


DS 


CL 


788+SCDPRQC3 


DC 


AL 


789+ 


DC 


C 


790+SCDPROC4 


DS 


OF 


791 + 


DC 


AL 


792 + 


DC 


B' 


793 + 


DC 


C» 


794+IHB0006 


EQU 


* 


795+SCDPR0C5 


DS 


OF 


796 + 


DC 


AL 


797 + 


DC 


B» 


798 + 


DC 


C» 


799+IHB0007 


EQU 


* 


800 + 


DS 


4F 


802 




*, 


803 




*» 


804 




*» 


805 




*, 






AND 



*** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

******* * * * * * * * * * #**?♦$#})! * * * 



SECTION: 

NOTE *** 

THE COMMAND SECTION MUST RESIDE LAST 
IN THE SYSTEM CONTENTS DIRECTORY SINCE 
THE COMMANDS ARE VARIABLE IN LENGTH. 



ANY ADDITION 
MUST PRECEDE 



TO THE SCO 
THIS SECTION. 



2UHB0C05-*) MESSAGE LENGTH 
OOOOOOCOOOOOOOOO 1 MCSFLAGS FIELD 
S IMSRCRiMBR=» MESSAGE 

9 MEMBER NAME FIELD OF START READER COMMAND 
1(6) LENGTH IN BYTES OF PROC MEMBER NAME 
IMSMSG* MSG PROC MEMBER NAME 

2(IH80C06-*) MESSAGE LENGTH 
OOOOOOCOOOOOOOOO* MCSFLAGS FIELD 
S INIT..CLASSB,t t(B,A) • MESSAGE 



2(IHB0C07-*> MESSAGE LENGTH 
OOOOOOCOOOOOOOOO* MCSFLAGS FIELD 
P CLASSB' MESSAGE 



******** ************************************** ****** 

* IMS/360 SYSTEM 

* VERSION 2 RELEASE 2 MOD LEVEL * 
* f **************************************************** 



807 IAPS SMBBASE=C 

8 08+ ***************************************************************** ****** 

809+* * 

8 10+* APPLICATION PRCGRAM SCHEDULER DUMMY SECTIONS * 

811+* * 

8 12 + *********************** ************** ********************************** 

813 + * 

814 + * 

815 + * 

8 16 *************************************************** ********************* 

817+* * 

818+* SMB * 

819+* * 
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STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



8 20+ ***************************** ******** ********************************** 

821+SMB DSECT 

822+SMBQEBP OS A BACKWARD POINTER 

823+SMBQEFP OS A FORWARD POINTER 

824+SMBQC8DQ DS A DRRN OF NEXT MESSAGE TO REAO 

825+SMBQCBEG DS A DRRN OF LAST MESSAGE WRITTEN 



827+SMBQFLG1 DS 



828 + * 
829+* 
830+* 

831 + * 

832 + * 

833 + * 

834 + * 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



C SMB 
X«80' 
X»40» 
X»20« 
X 1 10* 
X«08« 
X»04« 
X»02« 



QUEUE FLAG 



I 

QUEUE 
QUEUE 
QUEUE 
QUEUE 
QUEUE 



READ IN PROCESS 



1 HAS MESSAGE ENQUEUED 

2 HAS MESSAGE ENQUEUED 

3 HAS MESSAGE ENQUEUED 

4 HAS MESSAGE ENQUEUED 
MESSAGE EXISTS IN BACKUP QUEUE 
QCBDQ POINTS TO QUEUE BLOCK RECORD 



836+SMBQFLG2 DS 
837+* EQU 

838+* EQU 

839+* EQU 

840+* EQU 

841+* EQU 



C SMB 
X»80» 
X«40« 
X»20« 
X»10» 
X»0F» 



QUEUE FLAG 2 

THIS DESTINATION IS PERMANENT 
AVERAGE LENGTH IS AVAILABLE 
ENQ/DEQ COUNT IS AVAILABLE 
NAME FIELD EXISTS 
DESTINATION TYPE THRU 15 



843+SMBQAVGL DS 
844+SMBDQCT DS 
845+SMBNQCT DS 
846 + * 

847+SMBTRNCC OC 
848+SMBSTATS DC 



H AVERAGE MESSAGE LENGTH FOR DESTINATION 
H NUMBER OF MESSAGES DEQUEUED 
H NUMBER OF MESSAGES ENQUEUED 

NOTE: SMBNQCT-SMBDQCT=OLD SMBNQCT FIELD 
D«0» SMB TRANSACTION CODE 
X»00» SME STATUS BYTE 



850+SMBFLAG1 

851+SMB1C0NV 

852+SMB1UPP 

853+SMB1CSPA 

854+SMBIINIT 

855+SMBAGE 

856+SMBENQ 

857+SMBPST 

859 + 

860 + 



DS 


C SMB 


EQU 


X»80« 


EQU 


X»40» 


EQU 


X«20« 


EQU 


X»08* 


EQU 


X«04* 


EQU 


X«02» 


EQU 


X'01» 


DS 


C RES 


OS 


C RES 



FLAG 1 

CONVERSATIONAL SMB 

UPPER CASE TRANSLATION REQUESTED 

INCORE SPA REQUEST 

INIT PGM BFRS WITH EACH NEW MESSAGE 

SMB IS AN AGING SMB 

SME IS ENQUEUED ON TCT 

SME IS ENQUEUED ON PST 



RESERVED FOR FUTURE USE - 3270 FORMAT 
RESERVED FOR FUTURE USE - 3270 FORMAT 



862+SMBQCBPR DS 
863+SMBSLTE DS 
864+SMBPRIQR DS 
865+SM8CLASS DS 
866+SMBCTMP 
867+SMBCPMP 
868+SMBSPAL 
869+SMBLMTCT DS 
870+SMBCOUNT DS 
871+SMBTIME 
872+SMBTQE 



DS 
DS 
DS 



DS 

DS 



873+SMBPSBDP DS 



C SMB CURRENT PRIORITY 

C USER ECIT ROUTINE NUMBER 

C LIMIT £ND NORMAL PRIORITY 

C SMB MESSAGE CLASS FOR SCHEDULING 

CL2 COMMUNICATION TERMINAL MATRIX PTR 

CL2 COMMUNICATION PASSWORD MATRIX PTR 

H LENGTH OF SPA 

H ENQUEUED LIMIT COUNT 

H PROCESSING LIMIT COUNT 

H TIME SLICE 

H RELATIVE TQE POINTER 

CL2 PSB DIRECTORY POINTER (RELATIVE) 



(RED 
(RED 
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USER EDIT ROUTINE INCLUSION DURING SYSTEM DEFINITION . 

All user-supplied edit routines should be placed in the OS 
partitioned data set defined by the USERLIB= operand of the IMSGEN 
macro-instruction of IMS/360 system definition. This must be performed 
prior to execution of IMS/360 system definition Stage 2. If the user 
does not specify a value for the USERLIB= operand, IMS/360 system 
definition assumes the IMS2.RESLIB data set contains any user-defined 
edit routines. System definition will attempt to obtain any 
user-specified edit routines from the specified library during Stage 
2 of execution and link edit them as part of the IMS/360 control program 
nucleus. The names of the edit routines specified to IMS/360 system 
definition should be the same as the CSECT and load module names for 
the edit routine modules in the library specified by USERLIB=. The 
message switch edit routine must have a CSECT and load module name of 
DFSCNTEO. 

1030 EDIT ROUTINE 

Since a 1030 terminal can not always check for erroneous input data 
and normally can not specify input message destination, IMS/360 requires 
that an edit routine be defined at system definition time for input 
from 1030 terminals. Only one routine may be defined. This routine 
is invoked for each input message entered from a 1031 or 1035 to enable 
the user to verify the validity of his data and define message 
destination. A minimum validity check would be for the length of the 
message. The routine should also insert the IMS/360 transaction code, 
logical terminal name, or command verb at the beginning of the message 
to define destination. This user-supplied edit routine gains control 
before any IMS/360 security checking, validity checking, or editing 
functions are performed. The message text has previously been converted 
to EBCDIC. 

The 1030 edit routine may look at the IMS/360 blocks, but may not 
change them. If the message is valid, the edit routine should insert 
a valid IMS/360 transaction code and return a return code of zero in 
Register 15. Register 2 must contain the final edited message length 
and the message must be placed in the buffer, beginning at the address 
specified in Register 1 , at entry to the edit routine. If the length 
returned in Register 2 is zero, no IMS/360 processing is performed. 

In the 1030 edit routine, the user may write his messages to a QSAM 
file rather than process them through IMS/360. If this is done, a 
length of zero must be returned to IMS/360 in Register 2. In addition, 
the user must define and provide access to the QSAM data set. The 
user should provide restart capabilities for such data spts hircself, 
as IMS/360 is not aware of their existence. If a length of zero is 
returned to IMS/360, the message is not placed on the IMS/360 system 
log. Multiple output buffers should be used for QSAM files to prevent 
Operating System waits which degrade IMS/360 performance. 

If the message is invalid, the edit routine should return a return 
code of 4 in Register 15. This prevents a positive acknowledge by 
IMS/360 to the terminal and causes the Repeat light to be set on. 

Any return code except or 4 causes the input terminal to be made 
inoperable. An error message is also generated and sent to the IMS/360 
master terminal. 
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Interface to user edit routine: 
CSECT name: DFS10300 
Registers at entry: 

Buffer length in binary. The resultant 
edited message cannot exceed this size. 

1 Buffer address: The edited message text 
must start at this address. 

2 Message length: This length includes the 
leading 10 bytes described later under 
buffer interface. 

Communication Terminal Block (CTB address 

Communication Translate Table (CTT) address 

System Contents Directory (SCD) address 

Save area address. The first three words 
in the save area may not be changed. 

Return address 

Entry point address to edit routine 

Edited message length (the message must 
start in the address given in Register 1 
at entry) 

13 Save area address (must be the same as at 

entry) 

15 Return code 

Message buffer format and content at entry: 

Byte 

1 IMS/360 communication line number 

2 Relative terminal address (terminals are 
numbered from 1 on each line) 

3-10 blanks 

11-n message; n eguals value in Register 2 

H2iMl Buffer content, beyond the definition above, is unpredictable, 
since the buffer area following the message is not initialized. 

Buffer at exit: 

Byte 

1-n message; n eguals value in Register 2 





7 








8 








11 








13 








14 








15 






Reg: 


Lsters 
2 


at 


exit: 
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122Q. EDIT ROUTINE INCLUSION DURING SYSTEM DEFINITION 

The user-supplied 1030 edit routine should be placed in the operating 
system partitioned data set defined by the USERLIB= operand of the 
IMSGEN macro-instruction under the member name DFS10300. This should 
be performed prior to execution of IMS/360 system definition Stage 2. 
If the user does not specify a data set name for the USERLIB= parameter, 
the IMS2.RESLIB is assumed to contain the 1030 edit routine named or 
defined in system definition. System definition will attempt to obtain 
the user-defined edit routine from the specified library during system 
definition Stage 2 and link edit it into the IMS/360 online control 
program nucleus. The 1030 edit routine must exist as a load module 
under the name DFS 10300 and must have the CSECT name of DFS1030C. 

SAMPLE 1.030 EDIT ROUTINE - DFS10300 

DFS 10300 illustrates the functions that are to be performed by the 
user's own 1030 edit routine. DFS10300 was written to test the 1030 
support in IMS/360, and is tailored for the test installation. The 
concept should be modified to the user's needs and environment. 

IMS/360 1030 TEST INSTALLATION ENVIRONMENT 

Type 

1031 + 2 1035s 

1031 

1031 

1033 

All 1031s have a card reader, a badge reader, and a manual entry 
unit. The 1031 transaction code has the same meaning on all 1031s. 
All badge readers read 10 columns, and all manual entry units read 12 
columns. 

DFS10300 is capable of blocking "badge" input from one of the 1031s, 
and of creating a QSAM data set of "badge" input from another. Most 
1030 input is prefixed with a transaction code and passed on to IMS/360 
for processing. A special switch card is used to start and stop 
blocking and to open and close the QSAM data set. 

1031 Card Column 1 

Transact ion_Code Rea ds Fpllpwing._Units 

1 card reader, badge reader, manual 
entry unit 

2 card reader, badge reader 

3 card reader, manual entry unit 

4 card reader 

6 badge reader 

7 manual entry unit 

Other Values of the transaction code are invalid. 
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Communication 


Phyi 


sical 


Line 


.# 


Terminal # 


12 






1 


12 






2 


13 






1 


13 






2 



CARD FORMATS 

Two card formats are used in the system. One is transaction input, 
and the other is a switch card to control the QSAM data set and the 
blocking of "badge" input. 

Transaction Card Format 





Colui 


32 


Contents 




1 




Transaction Code 




2-4 




Length of card input data 




5-80 




Data 


Switch 


Card 


Format 






Colui 


nn 


Contents 




1 




Must be "4" 




2 




Switch character 




3 




End of card character 



Valid switch characters are: 

Open the QSAM data set and send "badge" input from the 10 31 on 
Line 13 to the QSAM data set. 

C Close the QSAM data set. 

B Start blocking "badge" input from Line 12 terminal 1. 

P Stop blocking "badge" input 

All input is checked for both valid 1030 card column 1 transaction 
code and correct length. If an error is encountered, the edit routine 
returns to IMS/360 with a return code of 4. This causes IMS/360 to 
continue operations on the inputting line without sending a positive 
acknowledgment to the terminal. The Repeat light of the terminal is 
turned on. 

DATA INPUT 

Badge-Only Input 

Line 12 terminal 2: A transaction code is added and the message is 

returned to IMS/360 for processing. 

Line 12 terminal 1: If blocking is not requested, a transaction 

code is added and the message is returned to 
IMS/360 for processing. If blocking is 
requested, the message is moved to a blocking 
buffer within the edit routine. If the buffer 
thereby gets filled, the contents of the buffer 
are moved to the I/O buffer area, a transaction 
code is added, and the entire block is passed 
to IMS/360 for processing. If the buffer did 
not get, filled, control is returned to IMS/360 
with a zero return code and a zero length in 
Register 2. This indicates to IMS/360 that the 
edit routine has taken control of the message 
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and IMS/360 continues processing on the inputting 
line with a positive acknowledgment. 

Line 13 terminal 1: If the QSAM file is closed, a transaction code 

is added and the message is returned to IMS/360. 
If the QSAM file is open, the message is written 
to the QSAM file and control is returned to 
IMS/360 with a zero return code and a zero 
length. Positive acknowledgment is made to the 
terminal. No message is processed by IMS/360. 

Manual Entry. Input 

A transaction code is added, and the inputting communication line 
and terminal number are appended. The message is thereafter returned 
to IMS/360 for processing. 

Other Data Input 

A transaction code is added, and the message is returned to IMS/360 
for processing. 

Switch Card In pu t 

The requested action is taken and control is returned to IMS/360 
with a zero return code and a zero length. 

S A MPLE EDIT ROUTINE FLOWCHART 

The flowchart for the sample problem follows. 

The pages following the flowchart show the output received from the 
preceding sample problem. 
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•********♦**»** 



*************** 



I INI A'O 

IFKMtNAI NIIS. 

VAUIJ? 



•>* RETURN RC«* 



♦ 


• 






TR6 














>YES 


»••• 






* 


* 


• 


TRANSACTION 




• > 


»0 * 


CODf; 


6? 




• 


2* 



(tl-3 




************ 

• * 

• SET M» BADGE * 

• IGTH K MAN. * 

• ENTRY UNIT * 

• INPUT * 
***»*♦♦**«*♦*«« 



* * 

* POINT TO * 
♦INS/160 TRAN * 

• CODE • 

• • 
*************** 



TR4^ * * SFTSMI 

» » • » 

SWITCH CARD? *> AO • 

* * * 3* 

* • **»* 

* • 
* * 
• NO 



•INDICATE CARD* 
♦ONLY INPUT S « 

* POINT TO * 
•IMS/360 TRAN * 

* COO * 
•*•**•••*****•• 



♦NO 



** ************* 
RETURN RC"% 

**»•»•••*••»••• 



*••*******•***• 

* • 
•APPENO INPUT • 

* LINE t TERM • 

* NBR TO NSC * 

* • 
**»♦*»*♦»«*»♦«♦ 



CAPO LGTH 
NUMERIC c 
004-160? 



•• ♦*••»*»«*♦*♦**« 

• » * 

-♦B6»>* RETURN RC»* 

• • « 

•♦ *••*••*••*•***• 



*•**•*****•••** 



A7 



•NO ♦«♦ 
• • • 
*> 86» 
• * 
• ** 



*************** 
RETURN RC«0 



♦***«***»»»»»»« 

• ♦ 

• ADO IMS/160 » 

• TRAN COOc C • 

• NL CHAR TO • 

• MSG * 
*************** 



*************** 
RTTUKN RC-0 
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TR6 * ♦ 

• * 
*** * 

• • k 

♦AO • I INF 12 

* * ♦ TERMINAL 11 

*** • 

• * 
* * 

+ NO 



AO 



«YES 



* * 
* * 



no 



♦YES 



LENGTH VAL107 

* * 

* * 

* NO 



TRft2 
i 

* 



M 



♦ NO 



LENGTH VALID? 

* * 

* * 
* Y«=S 



V 
* * 



91 



*************** 

* * 
->* RETURN RC*4 * 

* * 

*************** 



A2 



^ * *YES 

* * , 
LINE 13? *- 

* * 

* * 
* * 
* NO 



B2 



* *YES 

* * 

-> QSAX FILE * r— 

♦ ACTIVE? * 

* * 
* * 

* * ***• 
* NO * * 

>* 05* 

* * 
**♦ 



C2 

********* ********* 



-> WRITE MSG ON 
* OSAM FILE * 



♦ BLOCKING 
* REQUESTER? 



* YES 



******* ******** 

* * 

* MOVE MSG TO * 

* BLOCKING * 

* BUFFER * 
*' * 
*************** 



A3 

«nh *** 
*. * * 
*> Ob* 
* * * 

* *** 



****************** 



C3 

V 

*************** 

«* * * *** 

* * * SET UP TO * * * 
*C3*~>* RETURN LGTH * > 06* 

• * * OF 2F.R0 * * * 
** * * *** 

*************** 



*V 



A5 



OS 



♦ NO 



*> C3* 

* * 
***. 



Blocking 

BUFFFK 
TILLED? 

* * 
* YES 



A 6 
V 

*************** 

♦ * *** 
♦MOVE BLOCKING* * * 
♦BUFFER TO I/O* — -> OS* 

♦ AREA * * * 

♦ * *** 
*************** 



*************** 
** * * 

* * * INSFrtT * 

* 05*— >*IMS/360 TR4N ♦ 

* * ♦ CODE & NL * 
♦♦ * CHAR * 

*************** 



06 



** *************** 

* * * * 
*0b*>* RETURN RC=0 ♦ 

* * * * 
** *************** 
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* 


AO 


SFTSrf! * * 


• * 


*** * *YES 


• • ♦ , * 


• AO * SWITCH COOS - 


• * * ZERU7 * 


*•♦ * ♦ 


* * 


* * 


* NU 



00 



*************** 



* 



OPFN OSAM 
FILE 



CO 

******************* 
*. * * * 

* * SET OSAM ♦ ♦ 
-*>* FILE-ACTIVE * *-- 

* * SWITCH * * 



00 



*************** 



** 



*************** 



* * 



* * 



V 



At 

♦ YF.S 



m 



SWITCH 1.0DC 
C» 



* * 
* NO 



32 



* «YCS 

• * 
SWITCH CODE < 

* K? * 

* * 

* * 

* NO 



************** 



— >« CLOSE QSAM 
* FILE 

* 
************** 



B2 

******************* 

* * * * *** 

* *SET RLOCKING * * * . * 
-*>* RFQUeSTED * »-> DO* 

* * SWITCH * * * * 

* * * * *** 
*********** ******** 



******************* 



CI 

******************* 

* * *■ * *** 

* * RFSFT QSAM * * * * 
-*>* FILE-ACTIVE * *-> 00* 

* * SWITCH * ■* * * 

* * * * •** 
******************* 



* * * SET UP TO * 
■*O0* — >* RETURN ZERO * 

* * * LENGTH * 
** * * 

A************** 



A3 



♦YES 



SWITCH CJDE 



* NO 



B3 

****************** « 

* * * * 

* * RESET ■* * 
-*>* RLOCKING * *— 

* *REQ»D SWITCH * * 

* * * * 
******************* 



* C3 

* * 

* * 

* *YFS *** 

* * * * 
-> BLOCKING *> 00* 

* BUFFER EMPTY? * * * 

* * *** 

* * 

* * 

* NO 



A* 



C4 



*************** 



* SWITCH CODE * 

* INVALIO * 

* * 
*************** 



*************** 

* * 

* MOVE BLKING * 

* BUFFER TO *- 

* INPUT AREA * 

* * 
*************** 



04 



*************** 



■>* 

* 



RETURN RC=0 
*************** 



A5 



*******•***•**• 

RETURN RC=4 
*************** 
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SAMPLE EDIT ROUTINE LISTING 

The following pages are the assembler output from the preceding 
sample problem. 



EDIT 
DFS10300 



RC4 
CHTERM1 

CHTERM2 

OKTERM 



TR7A 
RETURN 

RCO 

TR1 

TR2 



TR3 



TITLE *DFS10300, 1030 SAMPLE EDIT ROUTINE. 1 

CSECT 

PRINT NOGEN 

SAVE (14,12) ,,DFS10300' 

USING MSGBUF,R1 

USING DFS10300,R12 

LR 

CLI 

BE 

CLI 

BE 



BRANCH IF INPUT FROM LINE 12 



BRANCH IF INPUT FROM LINE 13 



R12,R15 

MSGLINE,12 

CHTERM2 

MSGLINE,13 

CHTERM1 
RETURN (14,12) ,RC=4 
CLI MSGTERM,1 

OKTERM BRANCH IF INPUT FROM TERMINAL # 1 ON THE LINE 

MSGTERM,2 

BRANCH IF INPUT NOT FROM TERMINAL # 



BE 

CLI 

BNE 

CLI 

BL 

BE 

CLI 

BL 

BE 

CLI 

BL 

BE 

CLI 

BL 

BH 

CH 

BNE 

MVC 

CLI 

BE 

MVI 

CLI 

BE 

MVI 

LA 

MVC 

AR 

MVI 

LA 

L 



RC4 

MSGTRAN , C ' 1 ' 

RC4 

TR1 

MSGTRAN , C ' 3 ' 

TR2 

TR3 

MSGTRAN , C ' 5 ' 

TR4 

RC4 

MSGTRAN, C'7' 

TR6 

RC4 



2 ON THE LINE 



BRANCH IF INVALID 1030 TRANSACTION CODE 

BRANCH IF 1030 TRANSACTION CODE IS 1 

BRANCH IF 1030 TRANSACTION CODE IS 2 

BRANCH IF 1030 TRANSACTION CODE IS 3 

BRANCH IF 1030 TRANSACTION CODE IS 4 

BRANCH IF INVALID 1030 TRANSACTION CODE 



BRANCH IF 1030 TRANSACTION CODE IS 6 
BRANCH IF INVALID 1030 TRANSACTION CODE 

R2,=H , 23' MANUAL ENTRY INPUT 13 BYTES; OVERHEAD 10 BYTES 

RC4 BRANCH IF INVALID LENGTH 

MSGTRAN+13(24) ,=C FROM LINE 12 TERMINAL 2' 

MSGLINE,12 

TR7A BRANCH IF LINE 1 2 

MSGTRAN+25 / C'3' CHANGE TO LINE 13 

MSGTERM,2 

TR7A BRANCH IF TERMINAL 2 

MSGTRAN+36,C1 ' CHANGE TO TERMINAL 1 

R2,24(,R2) INCREASE LENGTH TO INCLUDE ADDED DATA 

MSGLINE(6) ,=C'T1033B» INSERT TRANSACTION CODE 



R1 ,R2 

0(R1) ,X'15» 
R2, 1 (,R2) 
R14,12(R13) 

RETURN (3,12),RC=0 

EJECT 



LA 

SR 

B 

LA 

LA 

B 

LA 

LA 

B 



R5,22 

R6,R6 

PACK 

R5,10 

R6,8 

PACK 

R5,12 

R6,16 

PACK 



INSERT NEW LINE 

CHARACTER 
INCREASE LENGTH TO INCLUDE NEW LINE CHAR. 
LOAD RETURN ADDRESS 



CARD 6 BADGE 6 MANUAL ENTRY INPUT 
POINT TO TRANSACTION CODE 

CARD 5 BADGE INPUT 

POINT TO TRANSACTION CODE 

CARD & MANUAL ENTRY INPUT 
POINT TO TRANSACTION CODE 
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TR4 

PACK 
PACK1 



TR6 



TR61 
TR62 



TR63 



CH 

BE 

SR 

LA 

LA 

LA 

CLI 

BL 

CLI 

BH 

LA 

BCT 

CLC 

BL 

CLC 

BH 

PACK 

CVB 

LA 

CR 

BNE 

LA 

MVC 

B 

EJECT 

CLC 

BNE 

CH 

BE 

CH 

BE 

CH 

BNE ' 

MVC 

B 

CH 

BNE 

CLI 

BE 

TM 

BZ 

LA 

LH 

AR 

MVC 

MVI 

LA 

STH 

SR 

CH 

BNE 

STH 

MVC 

LA 

B 

TM 

BZ 

LA 

PUT 

SR 

B 

EJECT 



R2 / =H , 12» 

SETSWI 

R5,R5 

R6,24 

R3,MSGCARDL 

R4,3 

0(R3) jCC 

RC4 

0(R3) ^'9' 

RC4 

R3,1 (,R3) 



BRANCH IF BLOCKING SWITCH CARD 

CARD ONLY INPUT 

POINT TO TRANSACTION CODE 

POINT TO THE LENGTH FIELD IN THE MESSAGE 

SET UP THE LENGTH OF THE LENGTH FIELD 

BRANCH IF NON NUMERIC LENGTH FIELD 



BRANCH IF NON NUMERIC LENGTH FIELD 
POINT TO THE NEXT BYTE IN THE LENGTH 

R4,PACK1 BRANCH IF THE LENGTH IS NOT COMPLETELY TESTED 

MSGCARDL^C'004 1 

RC4 BRANCH IF THE LENGTH OF THE CARD IS TOO SHORT 

MSGCARDL^C'IGO' 

RC4 BRANCH IF THE LENGTH OF THE CARD IS TOO LONG 

DBLWORD,MSGCARDL CONVERT THE LENGTH OF THE CARD 

R3,DBLWORD TO BINARY 

R3,10(R5,R3) INCLUDE LEADING OVERHEAD g BADGE 6 MANUAL 

R2,R3 

RC4 BRANCH IF INVALID LENGTH 

R6,TRANCODE(R6) POINT TO TRANSACTION CODE 

MSGLINE (L'TRANCODE) ,0(R6) INSERT TRANSACTION CODE 

RETURN 

MSGLINE ( 2 ) ,=X ' 0D02 ' 

TR62 BRANCH IF NOT LINE 13 TERMINAL 2 

R2 f =H'22' 

TR61 BRANCH IF 1 BADGE 

R2,=H'33' 

TR61 BRANCH IF 2 BADGES 

R2,=H , 44 I 

RC4 BRANCH IF NOT 3 BADGES 

MSGLINE (6) ,=C MASTER' INSERT TRANSACTION CODE 

RETURN 

R2,=H I 21 I 

RC4 

MSGLINE , 1 2 

TR63 

SWITCH , SWBLOCK 

TR61 

R3,BLKBUF 

R4, BLKOFF 

R3,R4 



BRANCH IF INVALID LENGTH 

BRANCH IF INPUT FROM LINE 12 

BRANCH IF BLOCKING NOT REQUESTED 
POINT TO BLOCKING BUFFER 
LOAD OFFSET TO NEXT BUFFER POSITION 
POINT TO NEXT BUFFER POSITION 



0(10,R3) ,MSGTRAN+1 MOVE INPUT MSG TO BLOCKING BUFFER 

10(R3) ,0',' 

R4,11 (,R4) 

R4 , BLKOFF 

R2,R2 

R4,=H'88' 

RCO 

R2, BLKOFF 

MSGTRAN(88) ,BLKBUF MOVE BLOCKED MSGS TO INPUT BUFFER 



INSERT SEPARATOR 

UPDATE OFFSET 

STORE OFFSET 

SET LENGTH FOR NON-DATA RETURN 

BRANCH IF BLOCKING BUFFER NOT FILLED 
MAKE OFFSET ZERO 



R2,98 

TR61 

SWITCH , SWQSAM 

TR61 

R3,MSGTRAN 

QSAMFILE, (R3) 

R2,R2 

RCO 



SET UP MESSAGE LENGTH 



BRANCH IF QSAM FILE NOT ACTIVE 

POINT TO MESSAGE 

WRITE QSAM FILE 

SET LENGTH FOR NON-DATA RETURN 
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SETSWI 


CLI 


MSGTRAN+1 ,C 


'0' 






BE 


OPEN 




BRANCH IF ACTIVATION OF QSAM FILE 




CLI 


MSGTRAN+1 ,C 


'C 






BE 


CLOSE 




BRANCH IF DEACTIVATION OF QSAM FILE 




CLI 


MSGTRAN+1 ,C 


'B* 






BE 


BLOCK 




BRANCH IF START BLOCKING 




CLI 


MSGTRAN+1 ,C 


-pi 






BE 


PURGE 




BRANCH IF STOP BLOCKING 




CLI 


MSGTRAN+1 ,C 


'I' 






BNE 


RC4 




BRANCH IF INVALID SWITCH CODE 




RETURN ( 1 4 , 1 2 ) , RC= 


=8 


GIVE INVALID RETURN CODE 


OPEN 


OPEN 


(QSAMFILE , OUTPUT) 




01 


SWITCH , SWQSAM 


INDICATE ACTIVE QSAM FILE 


SWRET 


SR 
B 


R2 , R2 
RCO 




SET LENGTH FOR NON-DATA RETURN 


CLOSE 


CLOSE 


(QSAMFILE) 








NI 


SWITCH , X ' FF ' 


'-SWQSAM INDICATE NON-ACTIVE QSAM FILE 




B 


SWRET 






BLOCK 


01 


SWITCH , SWBLOCK 


INDICATE BLOCKING REQUESTED 




B 


SWRET 






PURGE 


NI 


SWITCH,X'FF' 


'-SWBLOCK INDICATE BLOCKING NOT REQUESTED 




LH 


R3 , BLKOFF 




LOAD LENGTH OF BLOCKED MSGS 




LTR 


R3,R3 








BZ 


SWRET 




BRANCH IF NO MSGS BLOCKED 




EX 


R3,MVC 




MOVE BLOCKED MSGS TO INPUT BUFFER 




LA 


R2,10(,R3) 




SET UP MSG LENGTH 




B 


TR61 






MVC 


MVC 


MSGTRAN ( ) , BLKBUF 




EJECT 








RO 


EQU 









R1 


EQU 


1 






R2 


EQU 


2 






R3 


EQU 


3 






R4 


EQU 


4 






R5 


EQU 


5 






R6 


EQU 


6 






R7 


EQU 


7 






R8 


EQU 


8 






R9 


EQU 


9 






R10 


EQU 


10 






R11 


EQU 


11 






R12 


EQU 


12 






R13 


EQU 


13 






R14 


EQU 


14 






R15 


EQU 


15 






SWITCH 


DC 


X'OO' 






SWBLOCK 


EQU 


X*8Q' 




BLOCKING REQUESTED 


SWQSAM 


EQU 


X'40 1 




QSAM FILE ACTIVE 


DBLWORD 


DS 


D 




WORK AREA FOR CONVERT TO BINARY 


TRANCODE 


DC 
DC 
DC 
DC 


C * ERNE ■ 
C * M0DEL2 • 
CL2740SM1 ' 
CL2740S2 • 






BLKOFF 


DC 


H'O' 






BLKBUF 


DC 


CL88 1 ■ 






QSAMFILE 


DCB 


BUFN0=4,DDNAM& 


=QSAM1030,DSORG=PS,LRECL=11 ,MACRF=(PM) 






RECFM=FB 






* 


INPUT 


BUFFER DSECT 




MSGBUF 


DSECT 








MSGLINE 


DS 


C 




LINE NUMBER 


MSGTERM 


DS 


C 




TERMINAL NUMBER 




DS 


CL8 




BLANKS 


MSGTRAN 


DS 


C 




1030 TRANSACTION CODE 


MSGCARDL 


DS 
END 


CL3 




LENGTH OF CARD* INPUT 



/* 
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7770-3 SIGNON EXIT ROUTINE - DFSS7770 



Since the 777 
not have the cap 
to form a /IAM c 
signon routine b 
lines in the sys 
device -dependent 
is received from 
Only one routine 
in the system, 
data received fr 
to be passed on 
IMS/360 security 
performed. The 



0-3 is a switched device and the calling terminal may 
ability to generate the alphameric characters reguired 
ommand to sign on for LTERM r IMS/360 reguires that a 
e defined at system definition time for the 7770-3 
tern. This routine is invoked by the 7770-3 

module any time an input message or message segment 

the line and a logical connection does not exist. 

may be defined, and it applies to all 7770-3 lines 
A minimum user routine should validity check the input 
om the line and use the data to develop a /IAM command 
to IMS/360. The user routine gains control before any 

checking, validity checking, or editing functions are 
message text is in EDCDIC. 



The signon routine may build a /IAM command in the input buffer or 
may place a response message in the input buffer. Any response to be 
sent back to the caller must be in 7770-3 output vocabulary drum address 
form. 

Through return codes to the device module, the signon routine may 
cause the contents of the input buffer to be passed on into the system 
(/IAM command in buffer) or cause the contents of the buffer to be 
sent to the caller followed by a read to allow retry, or this routine 
may cause the contents of the input buffer to be sent to the caller 
with a reset to the line to disconnect the caller after the response 
is sent. 



INTERFACE - DFSS7770 

REGISTERS 

On Entry: 

R1 

R2 

R7 

R8 

R9 

R11 

R13 



R14-R15 
Note : 



Address of input data received from line 

Length of input data 

CTB address 

CTT address 

CLB address 

SCD address 

Save area address. The first three words 
in the save area may not be changed. 

Standard OS linkage registers 

The save area chain fields for the save 
area pointed to by R13 on entry must not 
be modified. 



Data Format 

See Figure 10A for the data format at entry and Rl and R2 
relationship to the data. 
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All registers must be restored except RO, R1, R2, and R15. 
The contents of RO and Rl are ignored by the device-dependent routine. 



R2 



R15 



Must contain the count of data now in the input 
buffer area that was pointed to by R1 on entry. 

Contains the return code. 



RETURN CODES 



00 - 



Continue input processing with the contents of the input 
buffer. 



04 - Send the contents of the input buffer to the caller, 

followed by a read. Allows retry of signon operation. 

08 - Send the contents of the input buffer to the caller, 
followed by a disable to disconnect the caller. 

Note: For return codes 04 and 08, the contents of the input 

buffer to be sent to the caller must be in drum address 
form, as no translation will be performed before the 
data is sent to the caller. It is also the user's 
responsibility to determine when a seguence of signon 
attempts should be terminated with a reset operation. 



ERROR CONDITIONS 

The line will be stopped and a message generated to the master 
terminal for either of the following signon routine error conditions: 

1. The return code from the signon routine exceeds 8. 

2. The count value returned in R2 is greater than the available 
space in the buffer. 



REGISTER 1 



REGISTER 2 



LINE 
NUMBER 



9 BLANKS 



INPUT DATA 



Figure 10A. 7770-3 Input data format for signon exit module interface 
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ZZZibi SIGNON EXIT ROJJTINE IN CLUSION DURING SYSTEM DEFINITION 

A usable signon routine is supplied with the system in IHS2.LOAD. 
This routine automatically signs the caller on for the INQUIRY LTERM 
whenever the 7770-3 answers a call and receives data. As supplied, 
this routine is transparent to the caller. If the supplied module 
is to be used, it is the user's responsibility to move the module from 
INS2.LOAD to the user library specified in the IMSGEN statement before 
Stage 2 of system definition is executed. 

7770-3 SIGNON EXI T ROUTIN E PROGRAM LISTING 

For further information on the IMS/360-supplied signon routine, 
see the IHS/360 S ystem Man ual , Volume I, (LYBO-0629) Description of 
Module DFSS7770. The source listing follows for reference. 
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STMT 

2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
' 49 
50 
51 
52 
53 
54 
55 
56 



SOURCE STATEMENT 



F150CT70 3/27/72 



*********************************************************************** 
* * 



********************** 7770 AUTOMATIC INQUIRY ************************ 
********************** SIGN-ON MODULE ************************ 



THIS MODULE RECEIVES CONTROL FROM THE 7770 DEVICE OEPENDENT MODULE * 
WHEN A READ HAS COMPLETED BUT A LOGICAL CONNECTION HAS NOT BEEN * 
ESTABLISHED. * 

* 

THIS MODULE SETS THE PROPER FLAGS AND FIELDS TO INDICATE THAT THE * 
TERMINAL IS SIGNED Oh FOR THE INQUIRY LOGICAL TFRMINAL. * 



BLOCKS AND TABLES: 



SIZE OF MODULE: 



INTERFACE 
REGISTERS 
ON ENTRY: 



ON EXIT: 



THIS MODULE USES THE CLB, CT3 , AND THE CNT 
THIS MODULE RECEIVES ACCESS TO THE INPUT DATA, 
CTB, CTT, CLB, CNT, AND THE SCD. 

THIS MODULE CONTAINS APPROXIMATELY 54 BYTES OF 
CODE. 



Rl ADDRESS OF INPUT DATA 

R2 LENGTH OF INPUT DATA 

R7 HAS DIAL CTB ADDRESS 

R8 HAS CTT ADORFSS 

R9 HAS CLB ADDRESS 

Rll HAS SCD ADDRESS 

R13-R15 STANDARD O.S. LINKAGE REGISTERS 

THE INPUT DATA AREA HAS THE FOLLOWING FORMAT: 



R2 LENGTH OF DATA IN BUFFER 

R15 RETURN CODE 

ALL OTHER REGISTERS ARE RESTORED. 

RETURN CODES: 

- CONTINUE INPUT PROCESSING WITH CONTENTS OF THE BUFFER 



1 REG 2 COUNT I * * * 

VI 9 NV * 

* +. + * * 

I CTB | | DATA | * 

*->| LINE | 9 BLANKS | IN I * 

I I NO. I I EBCDIC I * 

j * 4. «. . — * * 

* * j * 

j REG I ADDR. |-* * 

* 



00002000 
0000300C 
00004000 
00005000 
00006000 
00007000 
00008000 
00009000 

0001000c 

00011000 
00012000 
00013000 
00014000 
00015000 
00016000 
00017000 
00018000 
00019000 
0002COOO 
00021000 
00022000 
0002? 000 
00024000 
00025000 
0002600C 
00027000 
00028000 
00029000 
00030000 
0003100C 
00032000 
0003300C 
00034000 
0^035000 
00036000 
^0037000 
00038000 
00039r>0C 
00040^00 
00041000 
00042000 
0004300C 
00044000 
00045000 
00046000 
00047000 
00048000 
00049000 
00050000 
0005100C 
00052000 
00053000 
00054000 
00055000 
00056000 



ST FiT 



SUURCfc STATEMENT 



F150CT70 



3/27/72 



57 * 

58 * 

59 * 

60 * 
6L * 

62 * ABENDS: 

63 * 

64 * 
b5 * 
66 4 ~-f * * 



4 - SEND CONTENTS OF BUFFER TO CALLER FOLLOWED BY READ TO 

ALLOW RETRY. OUTPUT MUST BE IN DRUM ADDRESS FORM. 

B - SEND CONTENTS OF BUFFER TO CALLER FOLLOWED BY A DISABLE 

TO DISCONNECT THE CALLER. 



NCT APPLICABLE 



STMT 



SOURCE STATEMENT 



F15OCT70 



68 

69 

70 

71 

72 

73 

74 

715 

76 * 

77 

78 + 

79 + 

80 + 

81 + 

82 * 
83 
84 
85 
86 
37 
88 
89 
90 
91 

92 * 
93 

94 + 

95 + 

96 + 



CFSS777C CSECT 



USING 
USING 
USING 
USING 
USING 
USING 

SAVE 

B 

DC 

DC 

STM 

LR 

LH 

A 

ST 

NI 

NI 

01 

01 

MVC 



*f R12 

SCD,R11 

CNT, RIO 

IECTDECB.R9 

CTT,R8 

CTB,R7 



BASE REGISTER 

— > SCD 

— > CNT UNCiUIRY) 

--> CLB 

--> CTT 

— > CTB 



(14,12) , ,S77A130 SAVE CALLER'S REGISTERS 

12(0,15) BRANCH AROUND ID 
ALK7J LENGTH OF IDENTIFIER 
CL7'S77A130« IDENTIFIER 
14,12,12(13} SAVE REGISTERS 

R12,R15 

RICCTBCNTP GET INQUIRY CNT OFFSET 

RIO, SC DC NT ADD BASE FOR CNT ADDRESS 

R10,60(,R13) SET CNT ADDRESS TO BE PASSED BAC 

CT3FLAG1,NIMASK-CTB1PCNT-CTB1PSMB RESET PRESET FLAGS 
CTBFLAG2,NIMASK-CTB2L0CK-CTB2TEST-CTB2EXCL + OTHERS 
CTBFLAG1,CTB1SIGN DIAL CTB IS LOGICALLY CONNECTED 

CNTFLAG1 ,CNT1SIGN SIGN ON LTERM ONLY SPECIFICATION 

CL3CTBPS{2) ,CNTCTBP POINT CLB TO CTB 



00057000 
00058000 
00059000 
00060000 
00061000 
00062000 
00063000 

* 00064000 

* 00065000 

* 00066000 

3/27/72 

00068000 
00069000 
00070000 
00071000 
007200 
00073000 
0007400C 
00075000 
0007600G 
0007700 



RETURN (14,12),RC=0 RESTORE AND RETURN TO DEVICE MOD 

LM 14,12,12(13) RESTORE THE REGISTERS 
LA 15,0(0,0) LCAD RETURN CODE 
BR 14 RETURN 



00078000 
00079000 
00080000 
00081000 
00082000 
00083000 
00084000 
00085000 
00086000 
00087000 
00088000 
00089000 



STMT 



SOURCE STATEMENT 



98 * * 

99 *** EQUATES *** 
100 * * 



102 


NIMASK 


EQU 


255 


103 


RO 


EQU 


00 


104 


Rl 


EQU 


01 


105 


R2 


EQU 


02 


106 


R3 


EQU 


03 


107 


R4 


EQU 


04 


108 


R5 


EQU 


05 


109 


R6 


EQU 


06 


110 


R7 


EQU 


07 


111 


R3 


EQU 


08 


112 


R9 


EQU 


09 


113 


RIO 


EQU 


10 


114 


Rll 


EQU 


11 


115 


R12 


EQU 


12 


116 


Ri3 


EQU 


13 


117 


R14 


EQU 


14 


118 


R15 


EQU 


15 



ALL BITS 

R 

E 

G 

I 

S 

T 

E 

R 

S 

E 
Q 
U 
A 

T 
E 
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F150CT70 3/27/72 

00091000 
00092000 
00093000 

00095000 
00096000 
00097000 
00098000 
00099000 
00100000 
00101000 
00102000 
00103000 
00104000 
00105000 
00106000 
00107000 
00108000 
00109000 
00110000 
00111000 



STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



120 * * 

121 *** DUMMY SECTIONS *** 

122 * * 



00113000 
00114000 
00115000 



124 ISCD SCDBASE=C 

125+SCD DSECT 

126 + *** *$*$$****#****$*•**#******#**#*** *** 

127+$$$$$$$$$$$$ * $ $ $ $ $ $ $$$$$$$$$$$$$$$$$$ 

128+** ** 

129+** IMS SYSTEM CONTENTS DIRECTORY (SCO) ** 

130+** ** 

131+*$$* $*$$$$$$ * $ $ $$$$ $$$$$$$$$$$$$$$$$$ 

132+***** ************ ********* *****$*.*#*** 



00117000 



134+SSCDORG OS 
135+SSCDSVC1 SVC 
136+ BR 

137+SSCDSVC2 SVC 
138+ BR 

139+SSCDSVC3 SR 
140+ BR 

141+SSCDSVC4 SVC 
142+ BR 

143+SSCDOCEP DC 
144+SSCDOSPS DC 
145+SSCDOSLV DC 
146+SSCDIMSR DC 
147+SSCDIMSL DC 
148+SSCDASPS DC 
149+SSCDASLV DC 
150+SSCDDESC DC 
151+ DC 

152+SSCDROUT DC 
153+ DC 

154+CFSXWAIT DC 
155+CFSXIGBA DC 
156+CFSXOPEN DC 
157+SSCDMCID DC 
158+ DC 

159+ DC 



OD SECONDARY SCO ORIGIN 

USER TYPE 1 SVC NUMBER 

14 RETURN ON REGISTER 14 

USER TYPE 2 SVC NUMBER 

14 RETURN ON REGISTER 14 

15,15 CLEAR REGISTER 

14 RETURN ON REGISTER 14 

255 USER TYPE 4 SVC NUMBER 

14 RETURN ON REGISTER 14 

CL2'Z9 I CSAM CHANNEL END APPENDAGE SUFFIX 

X*10» CS/360 SYSTEM CONFIGURATION 

ALU 18) CS/360 RELEASE LEVEL SPECIFIED 

ALKO) INS RELEASE NUMBER. 

ALKO) INS MOD LEVEL NUMBER. 

X'QO* SYSTEM CONFIGURATION - ACTUAL 

ALKO) CS/360 RELEASE LEVEL - ACTUAL 

ALKO) MCS DESCRIPTOR CODE 

AL3{0) RESERVED FOR OS/360 EXPANSION 

AL2(0) MCS ROUTING CODES 

AL2I0) RESERVED FOR OS/360 EXPANSION 

V( OF SI WAIT) I WAIT EP ADDRESS 

VIDFSI0S40) OSAM IOB QCB 

A(DFSXGPEN) OSAM OPEN EP 

ALKO) CCNSOLE ID - START IMS COMMAND. 

AL3{0) RESERVED 

F»0» RESERVED 



5.68 



STMT 



SUURCE STATEMENT 



F15OCT70 3/27/72 



1^2+**** ********* ****** ****** ******** * * * 

163+* * 

164+* RECORDER LOG SECTION: * 

165+* * 

166 +****** *** ** ** *** *** * ***** **** **** ** * 



168+SCDREENT DC 
169+SCORECCE DC 
170+SCDREWRK DC 
171+SCOREPLN DC 



V(DFSFLOIO) RECORDER ENTRY POINT 
A(O) DCB AND WKAREA LIST ADDRESS 
V(DFSILOGW) WORK AREA FOR THE LOGGER 
H'28' LENGTH OF LOG PREFIX IN BYTES 



173+*** log CONTROL BYTE *** 



17't + SCDRECTL 


DC 


X^OOO' 


175+SCDLGOPN 


EQU 


X'80* LOG IS OPEN 


176+SCDLGTRN 


EQU 


X'40* LOG SMBTASK DETA 


178+SCURELCT 


DC 


H'50C« CHECKPOINT LOG 


179+SCDRECCT 


DC 


H'500' CURRENT LOG FRE 


180+SCDRPENT 


DC 


A{ 0) ENTRY TO LOG WRIT 


181+SCDRTECB 


DC 


F'0» LOG TASK TERMINAT 


182+SCDRTCB 


DC 


A(0) LOG TASK CONTROL 


183+SCORETXR 


DC 


A(0) RESERVED 


184+SCDkPFX 


DC 


V(DFSIPREF) ENTRY TO L 


185+SCDDBLNT 


DC 


A(SCDDBLM) ENTRY TO D 


186+SCDCWRK 


DC 


F«0« CHECKPOINT/DB LOG 


187+SCDCWRKL 


DC 


H'512' LENGTH OF CHECK 


188+SCDCPNO 


DC 


H«0« CHECKPOINT NUMBER 


189+SCDDATE 


DC 


F'0« DATE FOR RESTART/ 


19C+SCDT1ME 


DC 


F'O* TIME FOR RESTART/ 


191+SCDSEQ 


DC 


H'O' DATABASE LOG SEQU 


192+SCDRGTYP 


DC 


ALU Of 0) REGION TYPE ( 


193+SCD08DC8 


DC 


A(0) ADDFESS OF DATABA 


194 + 


DC 


4F«0« RESERVED FOR SYS 



FREQUENCY CONTROL REFERENCE 

QUENCY COUNTER, CPT AT ZERO 

ER 

E ECB 

BLOCK ADDRESS 

CG PREFIX BUILDER 

ATABASE CHANGE LOGGING ROUTINE 

WORK AREA ADDRESS 
POINT/DB LOG WORK AREA 

DATABASE LOG 
DATABASE LOG 
ENCE NUMBER 
0=CTL,3=DLI) 
SE LOG DCB 
TEM EXPANSION 



5.69 



STMT 



SOURCE STATEMENT 



F150CT7Q 



3/27/7 2 



196 + **********'*** ************ *********** 

1 9 7 + * * 

198 + * DATA LANGUAGE/I S OSAM SECTION: * 

199 + * * 



202 + 

203 + 

204 + 

205 + 

206 + 

207 + 

208 + 

209 + 

210 + 

211 + 

212 + 

213 + 

214 + 

215 + 

216 + 

217 + 

218 + 

219 + 

220 + 

221 + 

222 + 
22 J + 

224 + 

225 + 

226 + 

227 + 

228 + 

229 + 

230 + 

231 + 

232 + 

233 + 

234 + 

235 + 

236 + 

237 + 

238 + 

239 + 

240 + 

241 + 

242 + 

243 + 

244 + 

245 + 

246 + 

247 + 

248 + 

249 + 

250 + 



SCODLICT 

SCDDLIMQ 

SCDISAM 

SCDDLARE 

SCDDLIRE 

SCDDLI IN 

SCUOLIDR 

SCDDLDAE 

SCDDLIHS 

SCDDLIPS 

SCDPSBFR 

SCDDLILN 

SCDDLINC 

SCDPSBSW 

SCCDLIDF 

SCDDLIDL 

SCODLIDN 

SCDDLIPA 

SCDDLIPL 

SCODLIPN 

SCDDLI8C 

SCDDMBSW 

SCDOMBFR 

SCOPSBMU 

SCDDPDM 

SCDACBOC 

SCQPS8PL 

SCDDMBPL 

SCOLLOGO 

SCDDLIMV 

SCDDSST 

SCDDLICL 

SCDDLI07 

SCDWQCB 

SCDBPARM 

SCDASE 

SCDDBFPL 

SCDODBHC 

SCDDHDSO 

SCDOXMTO 

SCDOBCVT 

SCDOIOBS 

SCDOGPEN 

SCDIWAIT 

SCDSAVE 

SCDFLOS 

SCDFLOSR 

SCDNAVIC 

SCDRLDTE 



cc 

DC 

CC 

EQU 

DC 

DC 

CC 

EQU 

CC 

CC 

DC 

DC 

DC 

DS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

CC 

DC 

DC 

DC 

DC 

DS 

DC 

DC 

DC 

DC 

EQU 

EQU 

EQU 

DC 

DC 

DC 

DS 

DC 



A(SCDDLI 
A(0) RES 
A( SCDISA 
22 RETUR 
A( SCDDLI 
A( SCDDLI 
A( SCDDLI 
18 ALTER 
A( SCDDLI 
VCDFSIDI 
A(0) EP 



H'40 
H«0« 
0XL1 
A<0) 
H»36 
H«0« 



1 LE 

NUM 
- 
BEG 
• LE 
NUM 



V(OFSJPS 
H»424» L 
H'O' NUM 
A(0) 

0XL1 - 
A(0) ENT 
V(DFSIPS 
V(DFSDPD 
V( ACBDCB 
F«0» 
F«0« 
7F»0' 
VLDFSDBL 
V(DFSDSS 
A{ SCDDLI 
A( SCDDLI 
VJDFSPWQ 
A{0) DL/ 
VfDFSIAS 
A L0CAT1 
A{0) ENT 
A(0) ENT 
AtO) ENT 
A(0) ENT 
DFSXIOBA 
DFSXOPEN 
DFSXWAIT 
V(DFSISA 
A(0) STA 
A(0) STA 
OF 
X«00« 



CT) DL/I 

ERVED 
N) ISAM S 
N POINT F 
RE) RETRI 
IN J INSER 
CR) DELET 
NATE ENTR 
FS J HSAM 
PO) BEGIN 
TP PSB FR 
NGTH OF P 
8ER OF PS 
FREE PSB 
INNING OF 
NGTH OF E 
8ER OF DM 
T) START 
ENGTH OF 
EER OF PS 



ANALYZER ENTRY POINT (DFSDLAOO) 



IMULA 
ROM A 
EVE M 
T MOD 
E/REP 
Y TO 
ENTRY 
NING 
EE PO 
SB DI 
B DIR 
POOL 
UMB 
ACH D 
B DIR 
OF PS 
EACH 
T ENT 



RELEASE DMB S 
RY TO DMB FREE 
EQ) PSB MOST U 
m) PSB/DMB PO 
) AC8LIB OCB P 



TO) 
CD 
C7) 
CB) 



BL 
SE 
DA 
EN 
DL 



I REG I 
EO) AP 
CN OF 



POI 

POI 

POI 

POI 

OSAM 

OSAM 

I WAIT 

VO) OR 

E EXIT 

E RETR 



OCK MOVE 
GMENT IN 
TA MANAG 
TRY TO D 
/I MOVER 
ON PARMS 
PL I CAT 10 
DL/I BUF 
NT OF DL 
NT OF GE 
NT OF IN 
NT OF BY 
IOB QCB 
OPEN EP 

ENTRY P 
I-GIN OF 

ROUTINE 
Y ROUT IN 



TOR ENTRY POINT 

NALYZER ENTRY POINT 

ODULE ENTRY POINT 

ULE ENTRY POINT 

LACE MODULE ENTRY POINT 

DELETE/REPLACE 

POINT 
OF PS 8 DIRECTORY ENTRIES 
CL SPACE ROUTINE 
RECTORY ENTRY 
ECTCRY ENTRIES 

SPACE 
DIRECTORY ENTRIES 
MB DIRECTORY ENTRY 
ECTORY ENTRIES 
T BLOCKS 
PST 
RIES 

PACE, 1 - RESERVED 

POOL SPACE ROUTINE 
SED QCB ADDRESS 
CL MANAGER 
OINTER 



R ENTRY POINT 
TENT RESERVATION CSECT 
EMENT OPEN/CLOSE ENTRY POINT 
L/I LOAD PROGRAM 

QCB ADDRESS 

(PXPARMS) 
N SCHEDULER TERMINATOR EP 
FER POOL 

/I BUFFER HANDLER 
T/FREE SPACE 
DEX MAINTENANCE 
TE BLOCK CONVERSION 



CINT ADDRESS 
SAVE AREA SET 

ENTRY POINT 
E ENTRY POINT 



STMT 



SOURCE STATEMENT 



F150CT70 3/27/72 



251+SCDSYNCft DC 
252+SCDLOWID DC 
253+ DC 



AL3C0) 

F»0' 

6F»0« RESERVED 



FOR SYSTEM EXPANSION 



5.70 



STMT 



SOURCE STATEMENT 



F15QCT70 



3/27/72 



255+* * * * * * * 


* * * 


256 + * 






257+* S 


T i 


RAG 


?58 + * 






259+* * * * i 


;< * * 


* * * 


261+SCDSMMLC 


OC 


A(O) 


262+SCDSMML 


DC 


F'Q' 


263+SCDSMMHI 


OC 


A(O) 


264 + S'CDSMMGC 


DC 


A(O) 


265+SCDSMMFC 


DC 


A{0) 


266+SCDSMMCP 


DC 


V(OF 


267+SC0SMMDP 


DC 


V(DF 


268+SC0SMMFB 


DC 


V(UF 


269+SCCSMMGB 


DC 


V(OF 


270+SCDILMSK 


OC 


X'OO 


271 + 


OS 


XL2 


272 + 


DS 


3F P 



* * 



* * 



************ * * * * * 



.MANAGEMENT 



******* 



***** 
************* 



SECTION 



ADDRESS OF START OF SMM CORE AREA 
LENGTH OF STORAGE MANAGEMENT CORE AREA 
AODRESS OF END OF SMM CORE AREA 



SICRETJ ICREAT ENTRY POINT 
S1DEST) IDESTROY ENTRY POINT 
SIFBLF) IFREEBUF ENTRY POINT 
SIGBLFJ 1GETBUF ENTRY POINT 
01 • PROGRAM LOAO MASK 
NOT LSED 
ADDING 



274 + ************************************ 
2 75+* * 

2 76+* ENQUEUE/DEQUEUE SECTION: * 

277+* * 

278+*********** ** *** *** ****** **** **** *** 



280+SCDIDEQ DC 
281+SCDIENG CC 
282+ DS 



V(DFSIIDEO) IDEQ ENTRY POINT 
V(DFSIIENO) IENQ ENTRY POINT 
2F 



STMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



284 + ******************* ****** *********** 
2 8 5+* * 

286+* QUEUE MANAGEMENT SECTION: 

287+* * 

288+************* *** *** ****** **** ******* 



290+SCDIRWQE 


DC 


V(UFSQMGRO) I: 


291+SCDIQCC8 


DC 


V(DFSIQDCB) A 


292+SCDSMOCE 


DC 


V(OFSSMDCB) A 


293+SCDLMDCB 


CC 


VIDF.SLMDCB) A 


294+SCDSPDC8 


CC 


V(DFSICDCB) A 


295+SCDGPCOL 


DC 


A(0) POINTER 


296+SCDPRLN1 


DC 


H'40' LENGTH 


297+SCDPRLN2 


DC 


H«16» LENGTH 


298+SCDQCRSZ 


DC 


H»0« SIZE OF 


299+SCDMSGSZ 


DC 


H«0« SIZE OF 


300+SCDQMREB 


OC 


F'0« SAVE ARE 


301+SCOCKCL 


DC 


F'0» COMN FOR 


302+SCDQMSRB 


DC 


H'0» RECCRDS 


303 + 


DC 


5H»0» RESERVE 



READ/IWRITE QUEUE ENTRY POINT 

OGRESS OF INPUT QCR DCB 

DDRESS OF IMS2.SHMSG DCB 

DDRESS OF IMS2.LGMSG DCS 

DDRESS OF SCRATCH PAD AREA (SPA} DCB 

TO QUEUE BLOCK POOL 

OF FULL MESSAGE PREFIX 

OF CONDENSED MESSAGE PREFIX 

QCR BUFFER 

MSG BUFFER 

A PTR TO BUFFER ALLOC FOR REUSE 

INTERNAL CHECKPOINTS 
RESERVED FOR SHUTDOWN/REUSE 
D FOR SYSTEM EXPANSION 



5.71 



STMT 



SOURCE STATEMENT 



F150CT70 3/ '27/72 



3Q5 + * *********************************** 
306+* * 

30 7+* COMMUNICATION SECTION: * 

308 + * * 

309 + * *********************************** 



311+SCDCTT 


DC 


VIDF 


312+SCOCTTL 


DC 


H«23 


313+SCDCTTN 


DC 


H*0» 


314+SCDCLB 


DC 


V(DF 


315+SCDCLBL 


DC 


H» 10 


316+SCDCLBN 


DC 


H' 0' 


317+SCDCT8 


DC 


V(OF 


318+SCDCTBL 


DC 


H«32 


319+SCDCTBN 


DC 


H'O* 


32C+SCDCXB 


DC 


A(0) 


321+SCDCXBL 


DC 


H«20 


322+SCDCXBN 


OC 


H'0» 


323+SCDCNT 


DC 


V(0F 


324+SCDCNTL 


DC 


H»44 


325+SCDCNTN 


DC 


H«0« 


326+SCDCDB 


DC 


V(DF 


327+SCDCDBL 


DC 


H'4' 


328+SCOCDBN 


DC 


H« Q« 


329+SCDCVB 


DC 


V(OF 


330+SCDCVBL 


DC 


H» 12 


33H-SCDCVBN 


DC 


H'O* 


332+SCDCPT 


DC 


A<0) 


333+SCDCPTL 


DC 


H»0» 


334+SCDCPTN 


DC 


H' 0» 


335+SCOCPM 


DC 


A(0) 


336+SCDCPML 


DC 


H'O' 


337+SCDCPMN 


DC 


H'0« 


338+SCDCTM 


DC 


VIDF 


339+SC0CTML 


DC 


H»0» 


340+SCDCTMN 


DC 


H«0» 


341+SCDCCB 


DC 


A(0) 


342+SCUCCBL 


DC 


H»32 


343+SCDCCBN 


DC 


H'0« 


344+SCDCCBNC 


DC 


AL2I 


34S+SCDCC3NC 


UC 


AL2< 


346+SCDCCBDL 


DC 


H'0» 


347+SCOCCBCL 


DC 


H» 0» 


348+SC0CAN01 


DC 


VOF 


349+SCDCAN02 


DC 


V(DF 


350+SCDCAN03 


DC 


V(OF 


351+SCDCAN04 


UC 


V(DF 


3S2+SC0CAN05 


CC 


V(DF 


353+SCUCAN06 


DC 


V{QF 


354+SCDCAN07 


DC 


V(DF 


355+SCDCAN08 


DC 


VIDF 


356+SCDCAN09 


DC 


V<DF 


357+SCDCAN1C 


CC 


V(DF 


358+SC0CAN11 


DC 


V<DF 


359+SCDFNDST 


DC 


V{DF 



SICTT) COMMUNICATI 

• LENGTH OF EACH C 
NUMEER OF CTTS 

SICLE) COMMUNICATI 
0' LENGTH OF EACH 

NUMEER OF CLBS 
SICTB) COMMUNICATI 
» LENGTH OF EACH C 
NUMEER OF CTBS 
COMMUNICATION EXT 

• LENGTH OF EACH C 
NUMEER OF CXBS 

SICNT) COMMUNICATI 

' LENGTH OF EACH C 
NUMEER OF CNTS 

SICD3) COMMUNICATI 
LENGTH OF A CDB 
NUMEER OF CDBS 

SICVE) COMMUNICATI 

• LENGTH OF EACH C 
NUMEER OF CV8S 
COMMUNICATION PRI 
LENGTH OF EACH CP 
NUMEER OF CPTS 
COMMUNICATION PRI 
LENGTH OF EACH CP 
NUMEER OF CPMS 

SICTM) COMMUNICATI 
LENGTH OF EACH CT 
NUMEER OF CTMS 
CONVERSATIONAL CO 
' CCE LENGTH 

NUMEER OF CCBS 
0) OFFSET TO FIRST 
0) OFFSET TO FIRST 
MAX IMUM LENGTH OF 
MAXIMUM LENGTH OF 
SCIGC1J COMMUNICAT 
SCI0C2) COMMUNICAT 
SCI0C3) COMMUNICAT 
SCI0C4) COMMUNICAT 
SCI0C5) COMMUNICAT 
SCI0C6) COMMUNICAT 
SCI0C7) COMMUNICAT 
SCI0C8) COMMUNICAT 
SCI0C9) COMMUNICAT 
SC1010) COMMUNICAT 
SCI011) COMMUNICAT 
SICLFO) FIND DESTI 



CN TRANSLATION TABLE BASE ADDR 
TT 

ON LINE BLOCK BASE ADDRESS 
CLB 

CN TERMINAL BLOCK BASE ADDRESS 
TB 

ENT BLOCK BASE ADDRESS 
XB 

CN NAME TABLE BASE ADDRESS 
NT 

ON DIRECTORY BLOCK BASE ADDR 



CN VERB BLOCK BASE ADDRESS 
VB 

ORITY TABLE BASE ADDRESS 
T 

ORITY MATRIX BASE ADDR 

M 

CN TERMINAL MATRIX BASE ADDR 

M 

NTROL BLOCK BASE ADDRESS 



DISK CCB 
INCORE CCB 
DISK SPA 
INCORE SPA 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
ION ANALYZER 
NATION ROUT I 



ENTRY H 1 

ENTRY § 2 

ENTRY # 3 

ENTRY # 4 

ENTRY # 5 

ENTRY # 6 

ENTRY # 7 

ENTRY # 8 

ENTRY # 9 

ENTRY # 10 
ENTRY #11 

NE ENTRY POINT 



5.72 



STMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



360+SCDMSGRT DC V(OFSICLRO) MESSAGE RO 

361+SCDMTRM DC V(DFSCTB*T) MASTER TER 

362+SCDCLISC CC V(DFSICLSO) SECURITY R 

363+SCDTRANS CC V(DFSICLTC) TRANSLATE 

364+SCDCONV DC A{ 0) CONVERSATION PROC 

365+SCDCOB DC A{0) COMfUN ICATION OVE 

366+SCDCOBL DC H 1 32 • LEINGTH OF EACH C 

367+SCDCOBN DC H'O' NUMBER OF C08S 

368+SCDCTCLE DC V(OFSICLB) CONSOLE TYP 

369+SCUREPOL DC V(DFSICLXO) RESET POLL 

370+SCDNTB CC V(DFSINTEO) 

371+SCDEDITC DC A( 0) USER EDIT ROUTINE 

372+SCDEDITS DC V(DFSLISIO) USER EDIT 

373+SCDINCT DC H'O' 

374+SCDOUTCT DC H'O' 

375+SCDCPCTL DC X»Q0« 

376+SCDPCP01 EQU X'80' 

377+SCDPCP02 EQU X'40' 

378+SCDPCP03 EQU X'20« 

379+ DC AL3(0) RESERVED FOR SY 

380+ DC 9F«0« RESERVED FOR SYS 



UTER ROUTINE ENTRY POINT 
MINAL CTB ADDRESS 
OUTINE ENTRY POINT 
ROUTINE ENTRY POINT 
ESSOR ENTRY PCINT 
RFLOW BLOCK BASE ADDRESS 
OB 

EWRITER CLB 
MODULE ENTRY POINT 

FOR CNT DESTINATIONS 
ROUTINES FOR SMB DESTINATIONS 



CHECKPOINT POST SYNC BITS 



STEM EXPANSION 
TEM EXPANSION 



STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



382+* * * 

383 + * 

384 + * 

385 + * 



****** 



* * * * 



* * * * 



DISPATCHER 



#### **######* 



SECTION 



* * 

* 
* 



386 + ******* ************************** *** 



388+SC 
389+ SC 
390+SC 
391+SC 
392+SC 
39 3+SC 
394+SC 
395+SC 
396+SC 
397+SC 
398+SC 
399+SC 
400+SC 
401+SC 
402+SC 
403+SC 
404+SC 
4 05+SC 
406 +SC 
407+ SC 
408+SC 
4 09 + 



DEXTWC 

DINTWG 

DINTSC 

DTECBR 

DPARM 

DTECB 

DSAVEL 

DSLEV 

DSAVEN 

DSRQE 

DSRQEL 

OSRQEN 

DWAITG 

DEXTWL 

DEXTWN 

DSUBSV 

DCFAC 

DCMQD 

DTEST 

DTLEV 

DRES2 



DC 

DC 

DC 

CC 

DC 

DC 

DC 

EQU 

DC 

DC 

DC 

DC 

DC 

DC 

CC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



V(DF 
V(DF 
VI OF 
V(DF 
A(0) 
F» 0» 
H' 50 
7 NU 
H'O' 
V( DF 
H» 8* 
H'O' 
V(DF 
H'4« 
H'O' 
A(0) 
X'OO 
X* 00 
X'80 
X' 00 
F«0» 
4F • 



SEXTVsQ) 

SINTIaQ) 

SI NT SQ) 

SI TERM) 

ADORES 

IMS TE 

8' LENG 

MBER OF 

NUMEER 

SIRQEO) 

LENGTH 

NUMEER 

S1WA7Q) 

LENGTH 

NUMEER 

ADDPES 

« CURRE 

' CURRE 

' TEST 

• TEST 

PADCIN 
' RESER 



EXTERNAL W 
INTERNAL W 
INTERNAL S 
TERMINATIO 
S OF PARM L 
RM I NAT ION E 
TH OF SAVE 
SAVE AREAS 
OF SAVE AR 
ORIGIN OF 
OF EACH RQ 
OF RQES 
ORIGIN OF 
OF EACH EN 
OF EXTERNA 
S OF LAST S 
NT FIRST LE 
NT MODULE W 
MODE CONTRO 
MODE LEVEL 
G 
VED FOR SYS 



AIT QUEUE ADDRESS 

AIT QUEUE ADDRESS 

AVE QUEUE ENTRY POINT ADDRESS 

N ROUTINE ENTERED IF TECB POST 

1ST FROM SYSTEM 

CB POSTED BY CHECKPOINT 

AREA SETS INCLUDING QE 

IN A SET 
EA SETS 
RQE LIST 
E 

WAIT QUEUE 

TRY IN EXT WAIT QUEUE 

L EVENTS 

UBTASK 1ST LEV SAVE AREA 

VEL FACILITY 

ITHIN FACILITY 

L INDICATOR 

INDICATOR 

TEM EXPANSION 



5.73 



STMT 



SOURCE STATEMENT 



****** ********* * * 
SCHEDULER 



F15OCT70 

a{c «v? sjc J$c 30e ajt; 3Jc 5?c 3jc 3$c ^jc 

* 

SECTION: * 

* 



3/27/72 



411 + * ***** 

412 + * 

413 + * APPLICATION 
4L4 + * 

4.lCj.t*$***$:{:***;f:****j(c****jC::(:*** 3^*$* $$****$ 

N SCHEDULER INITIATOR ENTRY 
N SCHEDULER TERMINATOR ENTRY 
AGE BLOCKS BASE ADDRESS 

E ENTRY POINT ADDRESS 
E ENTRY POINT ADDRESS 
ECB TO BE POSTED BY DFSIASOO 
CLASS TABLES BASE ADDRESS 
CT 

MESSAGE REQUEST QUEUE 
PARTITION REQUEST QUEUE 

BATCH PARTITION REQUEST QUEUE 
AVE QUEUE ENTRY POINT ADDRESS 



417+SCOASINT 


DC 


V(DFSASINT) APPLICATIO 


418+SCOASTER 


DC 


V(DFSASTFM) APPLICATIO 


419+SCDSMBEP 


DC 


V(OFSISME) SYSTEM MESS 


420+SCDSMBL 


DC 


H« 56* LENGTH OF EACH S 


421+SCDSMBN 


DC 


H'O' NUMBER OF SM8S 


422+SCDSMBDC 


DC 


V{DFSS<VBCQ) SMB DEQUEU 


423+SCDSMBNC 


CC 


V(DFSSMBEQ) SMB ENQUEU 


424+SCDCHKXe 


CC 


ACSCUCHKEB) ADDRESS OF 


425+SCDTCTEP 


DC 


V(DFSITCT) TRANSACTION 


426+SCDTCTL 


DC 


H»80» LENGTH OF EACH T 


427+SCCTCTN 


DC 


H'O 1 NUMEER OF TCTS 


428+SCDMRQEP 


DC 


V(OFSIMRC) ADDRESS OF 


429+SCDPRQEP 


DC 


V(DFSIPRC) ADDRESS OF 


430+SCDBPRQE 


DC 


V(OFSIBPPQ) ADDRESS OF 


431+SCDEXTSC 


CC 


V(DFSEXTSQ) EXTERNAL S 


432 + 


DC 


4F ' « 



5.74 



STMT SOURCE STATEMENT FL50CT70 3/27/72 

4 34 + ************* ****** **$*£# ***#$###$*,>£ 

435+* * 

436+* CHECKPOINT/RESTART SECTION: * 

437+* * 

438+************************* *********** 

440 + *** CHECKPOINT STATUS BUE *** 

441+SCDCKCTL OC X»00' 

442+* DESCRIPTION OF BIT SETTINGS 

443+* NOT USED 

444+* 1 DATABASE RECOVERY 

445 + * 2 PURGE REQUEST 

446+* 3 SYSTEM SHUTDOWN REQUEST 

447+* 4 DUMP QUEUE REQUEST 

448+* 5 MASTER TERMINAL CHECKPOINT REQUEST 

449+* 6 DATABASE DUMP REQUEST 

450 + * 7 SYSTEM SCHEDULED CHECKPOINT (LOG) 

452+*** RESTART STATUS BYTE *** 

453+5CDRSCTL DC X'OO 1 

454+* DESCRIPTION OF BIT SETTINGS 

455+* PASSWORD SECURITY REQUESTED 

456+* 1 QUEUE ONLY RESTART 

457+* 2 PSB/CMB CHANGED - REBUILD BLOCKS 

458+* 3 ALLOW COMMANDS EXCEPT RESTART 

459+* 4 TERMINAL SECURITY REQUESTED 

460+* 5 EMERGENCY RESTART 

46 L+* 6 BUILD QUEUES 

462+* 7 NORMAL RESTART 

4t>4 + *** COMMON SYSTEM SHUTDCWN STATUS BYTE *** 

465+SCDST0P1 DC X«0000« 

466+* BYTE 1 DESCRIPTION OF BIT SETTINGS - USER 

467+* STOP INPUT COMMUNICATIONS 

468+* 1 STOP OUTPUT COMMUNICATIONS 

469+* 2 SEND ALL OUTPUT COMMUNICATIONS 

470+* 3 PROCESS ALL MESSAGES SCHEDULER 

47L+* 4 QUEUE'S AVAILABLE READ/WRITE Q 

472+* 5 FREE MESSAGE REGIONS SCHEDULER 

473+* 6 TERMINATE ALL REGIONS SCHEDULER 

474+* 7 STOP SMB INPUT COMMUNICATIONS 
475 + * 

476+* BYTE 2 DESCRIPTION CF BIT SETTINGS - USER 

477+* PROCESS AT SYSTEM PRIORITY SCHEDULER 

478+* 1 DATABASE STOP CHECKPOINT 

479+* 2 FORCE EOV ON LOG FILE CHECKPOINT 

480+* 3 ABEND AT TERMINATION COMMUNICATIONS 

481 + * 4 DISCONNECT ALL LINES COMMUNICATIONS 

482+* 5 ALL OUTPUT SENT COMMUNICATIONS 

483+* 6 SYSTEM CLOSE DOWN CHECKPOINT 

484+* 7 FINAL ENTRY CONTROL CHECKPOINT 

486+SCDCKCBN DS 0CL1 # OF ENTERED DATABASE NAMES FOR RECOVERY 

487 + SCDCKCB DC A(O) POII\TER TO POOL CONTAINING DATABASE NAMES 

488+SCULOGN DS 0CL1 COUNT OF RESTART SERIAL NUMBERS 
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STMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



489+SCDLOG DC 

490+SCDCLIPN DC 

491+SCDCLOPN DC 

492+SCDCPC01 DC 

493+SCDCHKEP DS 

494+SC0RSTEP DC 

495+SCDCHKEB DS 

496+SCDRSTEB DC 

497+SCDDBTBL DC 

498+ DC 



A(O) POINTER TO POOL CONTAINING SERIAL NUMBERS 

H'OOOO* INPUT TERMINAL ACTIVE COUNT 

H'OOOO* CUTPUT TERMINAL ACTIVE COUNT 

A(O) SCRATCH PAD AREA LOG ROUTINE ENTRY POINT 

OF 

V(DFSRSTCO) RESTART ROUTINE ENTRY POINT ADDRESS 

OF 

VIDFSR 

A{0) Ri 

4F'0* 



TECB) RESTART EC B ADDRESS 
ESTART DATABASE NAME TABLE 



STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



500 + * **#*♦£*#£#*<:###*##**####*###**#*#*:* 

50 1 + * * 
502+ * START /STCP REGION SECTION: * 
503 + * * 
50 4 + ********** *************************** 



506 + 

507 + 

508 + 
5 09 + 

510 + 

511 + 

512 + 
5 13 f 

514 + 

515 + 

516 + 

517 + 

518 + 

519 + 
5 20 + 

521 + 

522 + 
52 3 + 



SCDREGOP 

SCDREGCL 

SCDCMDCT 

SCDREGST 

SCDREGCT 

SCDSRDR 

SCDSRMBR 

SCDSMMBR 

SCDSINIT 

SCOP I NIT 

SCOP SYS 

SCDPSMVT 

SCDPSMFT 

SCDPSPCP 

SCDIMSR 

SCDIMSL 



DC 

DC 

DC 

DC 

DC 

DC 

CC 

DC 

CC 

CC 

DC 

EUU 

EQU 

EQU 

EQU 

EQU 

EQU 

DC 



A(0) E 
A<0) E. 
X'00» 
X'OO* 
H'OOOO 
A(SCDP 
A ( SC DP 
AC SCDP 
A { SC DP 
A{ SCDP 
2F » « 
SSCOOS 
X* 10 « 
X ' 20 • 
X'40' 
SSCDIM 
SSCDIM 
2F , I 



CB TO OPEN REGION 

CB TO CLOSE REGION 

n CF START/STOP REGION COMMANDS 

U CF PENDING STOP COMMANDS 

• COUNT OF OPEN REGIONS 



ISSUED 



R0C1) ADDRESS OF START READER COMMAND 

R0C2) ADDRESS OF MEMBER FIELD IN START READER 

R0C3) ADDRESS OF MSG REG PROC MEMBER NAME 

R0C4) ADDRESS OF START INITIATOR COMMAND 

R0C5) ADDRESS OF STOP INITIATOR COMMAND 

PS PROGRAMMING SYSTEM OPTION BYTE FROM CVT 

VALUE IF MVT 

VALUE IF MFT-II 

VALUE IF PCP 

SR IMS RELEASE NUMBER 

SL IMS MOD LEVEL 

RESERVED FOR SYSTEM EXPANSION 
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STMT SOURCE STATEMENT F150CT70 3/27/72 

525-I-******************* ****** *****#***** 

526+* * 

527+* COMMAND SECTION: * 

528+* * 

529+* *** NOTE *** * 

530+* THE COMMAND SECTION MUST RESIDE LAST * 

531 + * IN THE SYSTEM CONTENTS DIRECTORY SINCE * 

532+* THE COMMANDS ARE VARIABLE IN LENGTH. * 

533+* * 

534+* ANY ADDITION TO THE SCO * 

535+* MUST PRECEDE THIS SECTION. * 

536+* * 

53 7 + $****************#******#**** ******* 

539+SCDPROC1 DS OF 

540+ DC AL2( IHBOC05-*) MESSAGE LENGTH 

541+ DC B« 0000000000000000* MCSFLAGS FIELD 

542+ DC C»S IMSRCR,MBR=' MESSAGE 

543+IHB0005 EQU * 

544+SCDPR0C2 DS CL9 MEMBER NAME FIELD OF START READER COMMAND 

545 + SCDPR0C3 DC ALK6) LENGTH IN BYTES OF PROC MEMBER NAME 

546+ DC CIMSMSG 1 MSG PROC MEMBER NAME 

547+SCDPR0C4 DS OF 

548+ DC AL2( IHB0C06-*) MESSAGE LENGTH 

549+ DC B'OOOOOOCOOCOOOOOO' MCSFLAGS FIELD 

550+ OC C«S INIT.CLASSB,, ,(B,A) • MESSAGE 

551+1HB0006 EQU * 

552+SCDPRCC5 DS OF 

553+ DC AL2< IH60C07-*) MESSAGE LENGTH 

5 54+ DC 3« 00 00 00 00 000 00000' MCSFLAGS FIELD 

555+ DC C»P CLASSB' MESSAGE 

556+1HB0007 EQU * 

557+ OS 4F 

G, 5 9 # . # if # * sje if 4 ^: jjt j[;^c 3j: ## # #j[:* £*: # <t * # if. * * * * * * * * * * * ** ** 2**** $$$$$:jc$£ 

560 *,* IMS/360 SYSTEM 

561 *,* VERSION 2 RELEASE 2 MOD LEVEL * 

Cj£, 2 *,***#** 4**** ********* *** ************* ***** Jjc * # # # t<%if fc** 
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STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



56b 

566+*** 
567 + * 
566 + * 
569+* 

571+IEC 

572 + * 

573 + * 

574 + * 
575** 
576 + * 
577+* 

578 + * 

579 + * 
5 80 + * 

581 + * 

582 + * 
5 8.3 + * 
584 + * 
58 5 + * 

5 86 + * 

587 + * 

588 + * 

589 + * 
590 + * 

591 + * 

592 + * 

593 + * 

594 + * 

595 + * 

596 + * 

597 + * 

598 + * 

599 + * 

600 + * 
60 1+* 
602 + * 
603 + * 

604 + * 

605 + .* 

6 06 + * 

607 + * 

608 + * 

609 + * 

610 + * 

611 + * 

612 + * 

613 + * 

614 + * 

615 + * 

616 + * 

617 + * 
6L8+* 
619 + * 



ICLI CLBB 
************** ** 



ASE=C,CNTBASE=0 f CTB8ASE=OtCTTBASE=0 00119000 

** ** 3$* *** ********* ************ :fc **>";**** * ******** ***** 



CLB - COMMUNICATION LINE BLOCKS DSECT. DSECT NAME IS IECTDECB. 



************ *:fc #* 

TOECB DSECT DEC 



****af* **************************** ****************** 
B DUfMY SECTION 



24 



28 



STANDARC EVENT CONTROL BLOCK 



OPERATIUN TVPE 



AREA LENGTH 



+ ON-LINE 
8 + TERMINAL 
+ TEST 

+ 

12 +RESERVED 

+ 

+ 

+ 
16 + SENSE 

+ 1 

+ 

+ 
20 + COMMAND 

+ CODE 

+ 

+ STATUS 
+ FLAGS 

+ 

+ 

+ TP-OP 

+ CODE 

+ 

+ 
32 +RESERVED 

+ 

+ 

+ 
36 +RESERVED 

+ 

+ 

+ 
40 +RESERVED 

+ 

+ 

+ 
44 +RESERVED 

+ 



ADDRESS OF DCB 



ADDRESS OF AREA 



+ 
+ 
+ 

- + 

+ 
+ 
+ 

- + 
+ 
+ 
+ 

- + 
+ 
+ 
+ 

- + 
+ 
+ 
+ 

- + 
+ 
+ 

+ + 
+ 

+ RELATIVE* + + 

+ LINE + ADDRESS + VRC/LRC + 

+ NUMBER + RESPONSE+ RESPONSE + 

; : + 

+ + + 

+ ERROR + CSW STATUS + 

+ STATUS + + 

+ 

+ + 



BYTES 
& 2 



RESIDUAL COUNT 



ADDRESS OF TERMINAL LIST 



ADDRESS OF CURRENT 
ADDRESSING ENTRY 



ADDRESS OF CURRENT 
POLLING ENTRY 



+ 

+ 

+ 

+ 
+ 
+ 

+ + + 

+RESERVED + WRITE AREA LENGTH + 
+ + + 

+ 

+ + 

+ ADDRESS OF WRITE AREA + 

+ + 



STMT 



SOURCE STATEMENT 



F150CT70 



3/27/7 2 



620 + * 



5.78 



STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



622+LECSDECB DS 

624+CECTYPE DS 

626+CECLNGTH DS 

62B+CECGNLTT DS 
629+DECDCBAC DS 

631+CECAREA DS 

633+CECSENSC DS 

635+LECSENS1 DS 

637+CECCOUNT DS 

639+CECCMCOD DS 
640+CECENTRY DS 



IF STATUS FLAG + ADDRESS GF THE TCB 

1H OPERATION TYPE 

1H AREA LENGTH 

OCL1 RESERVED FOR ON-LINE TERMINAL TEST 
IF ADDRESS OF DCB 

IF ADDRESS CF AREA 

1C 1ST SENSE BYTE 

1C 2ND SENSE BYTE 

1H RES I D LA L COUNT 

OCL1 CGMNANC CODE 

IF ADDRESS OF TERMINAL LIST 



643+CECFLAGS DS 

645+CECRLN US 

647+CECRESPN DS 

649+CECTPCOC DS 

651+LECERRST DS 

653+CECCSwST DS 

655+LECADRPT DS 

6£7+CECPGLPT DS 

659+ OS 

661+DECWLNG DS 

663+CbCwAREA DS 

665+CLBCECB EQU 
666+CLBRCNTR DS 

668+CLBFLAG1 DS 

669+CLB1C0B EQU 

670+CLB1TEST EQU 

671+CLB1IBUF EQU 

672+CL81GBUF EQU 

673+* EQU 

674+CL31QCRI EQU 

673+CLB1RESP EQU 

676+CLB1QCR0 EQU 



1C STATUS FLAGS 

1C RELATIVE LINE NUMBER 

1H RESPONSE FIELDS 

1C TP-OP CODE 

1C ERROR STATUS 

1H CSW STATUS 

IF ADDRESS GF CURRENT ADDRESSING ENTRY 

IF ADDRESS GF CURRENT POLLING ENTRY 

2C RESERVED 

1H WRITE AREA LENGTH 

IF ADDRESS OF WRITE AREA 

DECSDECB 

1C RETRY COUNTER 



C . 

X'80' 

X»40« 

X'20» 

X» 10* 

X«08» 

X»04« 

X«02' 

X«01« 



BIT USAGE 

- COB REQUIRED FOR CTB'S ON THIS LINE 

1 - TEST RECYCLE REQUEST 

2 - INPUT BUFFER ALLOCATED 

3 - OUTPUT BUFFER ALLOCATED 

4 - RESERVED FGR FUTURE USE 

5 - QCR ALLOCATED (INPUT) 

6 - RESPONSE WAITING 

7 - QCR ALLOCATED (OUTPUT) 
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STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



678+CLBFLAG2 


DS 


C 




679+CLB2NOIN 


EQU 


X'80 1 


• 


680+CLB2NOOU 


EQU 


X»40« 


• 


681+CLB2NQQL 


EQU 


X«20» 


• 


682 + * 


EQU 


X»10» 


• 


683+CLB2IDLE 


EQU 


X'08* 


• 


684+CLB2INP 


EQU 


X»04» 


• 


685+CLB2QUTP 


EQU 


X»02» 


• 


686+CLB2AUTC 


EQU 


X«-01« 


• 


688+CL6FLAG3 


DS 


C . 




689+CLB3INP 


EQU 


x'so* 


• 


690+CLB3CSUB 


EQU 


X'^O 1 


• 


691+CLB3DOPN 


EQU 


X«20' 


• 


692+CLB3STOP 


EQU 


X« 10* 


• 


693+CLB3CBUF 


EQU 


X«08' 


4 


694+CLB3ICMC 


EQU 


X»04» 


5 


695 + * 


EQU 


X , 02» 


• 


696+* 


EQU 


X'Ol • 


• 


698+CLBCNTPT 


DS 


F . POII 


699+CLBTEMP1 


DS 


F . 




700+CLBTEMP4 


DS 


F . 




701+CLBTEMP5 


DS 


F . 





- NO INPUT ALLOWED 

1 - NO OUTPUT ALLOWED 

2 - DO NOT QUEUE ON THIS LINE 

3 - RESERVED FOR FUTURE USE 

4 - IDLE LINE 

5 - INPUT IN CONTROL 

6 - OUTPUT IN CONTROL 

7 - AUTOPOLL 



- 0=OUTPUT NEXT, 1=INPUT NEXT ON THIS LINE 

1 - COMMAND ENTERED AS NON-FIRST SEGMENT 

2 - LINE IS OPENED DYNAMICALLY 

3 - LINE HAS BEEN IDLED FOR SHUTDOWN 
CONDENSED BUFFER ALLOCATED 
INTERNAL COMMAND IN PROGRESS 

6 - RESERVED FOR FUTURE USE 

7 - RESERVED FOR FUTURE USE 



POINTER TO CNT FOR RESPONSE 



USED FOR TEMPORARY STORAGE 
USED FOR TEMPORARY STORAGE 



703+CLBCSID DS 

704 + * 

705 + * 

706+CLBCSCVB EQU 
707 + * 

708+CLBCSFNC EQU 
709+CLBCSSMB EQU 
710 + * 

7U + CLBCSDST EQU 
712+CLBCSACT EQU 

714+CLBPOLAC DS 
715+CLBCTBPT DS 
716+CLBCRCTB OS 
717+CLBCNTQB DS 
718+CLBSMBPT DS 
719+CLBCTBPS DS 
720+CLBDPQLC DS 
721+CL8DCTL DS 
722+CLBINBUF DS 
723+CLBOUTBF DS 
724 + * 
725+* IF ($) FALLS 



OC . FINC DEST FIELD 



X«20» 

X»08» 
X 1 04' 

X'02' 
X'Ol 1 

F 

H 

H 

2F 

F 

H 

C 

C 

F 

F 



DL/1 USE 

RESTART IN PROGRESS 

CVB FOUND AS DESTINATION 
ALWAYS FOR CLB 
CNT/SMB NOT FOUND 

CNT FOUND 
SMB FOUND 

FNDDST ENTERED (CL3CNTP POINTS TO DEST) 
ACTIVE POLLING LIST 



POLLING LIST ADDRESS 

FIRST CTB ON LINE 

CURRENT CTB 

QCB FOR CNTS FOR OUTPUT 

POINTER TO BLOCK FOR QUEUE1NG CNT/SM8/CVB 



CLB DEVICE CONTROL 
INPUT BUFFER POINTER 
OUTPUT BUFFER POINTER 



BYTE (USED BY DDM) 



IN COLUMN 71 THIS FIELD WILL BE SAVED IN A COB IF REQ 
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STMT SOURCE STATEMENT F150CT70 3/27/72 

7 27 +************************************************* ********************** 

728 + * 

729+* CTT - COMMUNICATION TRANSLATE TABLES OSECT. 

730 + * 

7 31 + 4************************************ ********************************** 

7 32+ CTT DSECT 

733+CTTSEND OS F . LOCATION OF OUTPUT TRANSLATE TABLE 

734+CTTREC DS F . LOCATION OF INPUT TRANSLATE TABLE 

735+CTTOD DS F . POINTER TO DEVICE DEPENDENT ROUTINE 

736+CTTEDIT DS F .ENTRY FOR USER EDIT OUTPUT ROUTINE 

737+CTTINLNG DS H . INPUT LINE BUFFER LENGTH 

738+CTTBUFSZ DS H . MAXIMUM OUTPUT BUFFER SIZE 

740+CTTOPT1 DS C . 

741+CTTLMULT EQU X'80 1 . THIS DEVICE HAS MULTISEG INPUT BUFFERS 

742+CTT1BACK EQU X«40» . 1 BACKSPACE ELIMINATION NOT REQUIRED 

743+CTT1RESP EQU X»20« . 2 TREAT RESPONSE TYPE AS NORMAL MESSAGE 

744+CTT1BSC EQU X'lO* . 3 BSC 

745+CTT1DIAL EQU X»08« . 4 SWITCHED 

746 + CTT1EBCD EQU X • 04 • . 5 INPUT IS IN EBCDIC 

747+CTT1N0TP EQU X«02« . 6 NCN TP DEVICE 

748+CTTLSE3C EQU X«01' . 7 OUTPUT IS IN EBCDIC 

750+CTTOPT2 DS C . 

751+CTT2UCAS EQU X'SO' INPUT IS IN UPPER CASE 

752+CTT2SYNC EQU X » 40 ' . 1 DEVICE REQUIRES SYNC RON I ZAT ION 

753+CTT2NGRP EQU X'20 1 RESET POLL .NOT APPLICABLE 

754+CTT2FRSP EQU X'10' FGFCE RESPUNSE MODE 

755+CTT2INQ EQU X«03« INQUIRY ONLY TERMINAL 

757+CTTNTRYL DS C . LENGTH OF POLLING LIST ENTRY 

758+CTTTABI DS C . # OF IDLES FOR TAB CHAR 

759+CTTNLI DS C . # OF IDLES FOR NEW LINE CHAR 

760+CTTLFI DS C . # OF IDLES FOR LINE FEED CHAR 

761+ DS H . RESERVED 
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STMT SOURCE STATEMENT 



F15QCT70 3/27/72 



763 +***********#*************************#*******###* ***#**#***^ 

764 + * 

765+* CT8 - COMMUNICATION TERMINAL BLOCKS OSECT. 

766 + * 

767+*********************************************************************** 

768+CTB OSECT 

769+CTBTYPE OS C . CTT NUMBER 

770+CTBLINE OS C . LINE NUMBER 

771+CTBTERM OS 3C . TERMINAL ADDRESS 



773+CTBFLAG1 
774+CTB1C0NV 
775+CrBlMAST 
776+CTB1SUBP 
777+CTBlDIAL 
778+CT81SIGN 
779+CTB1HELD 
780+CTB1PCNT 
731+CTB1PSMB 



783 + 

784 + 

785 + 

786 + 

787 + 

788 + 

789 + 

790 + 

791 + 



CTBFLAG2 
CTB2N0IN 
CTB2N00L 
CTB2N0QU 
CTB2L0CK 
CTB2TEST 
CTB2EXCL 
CTB2IN0P 
CTB2E0IT 



793 + C 
794 + C 
795 + C 
796 + C 
797 + C 
798 + C 
799+C 
800 + C 
801 + C 



TBFLAG3 

TB3REAC 

TB3QSYS 

TB3L00P 

TB3CHE 

TB3QERR 

TB3QMSG 

TB3LAST 

TB3SEG1 



803+CTBFLAG4 

804+CT84CNCL 

805+CTB40UTP 

806 + * 

807 + * 

808 + * 

809+* 

810 + * 

811 + * 

813+CTBACTL 

814+CTBAINP 

815+CTBAE0M 

816+CTBASHUT 

817+CTBAINC 



DS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

DS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

DS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

DS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

DS 

EQU 

EQU 

EQU 

EQU 



X' 


80' 


X" 


40 » 


x« 


20' 


X' 


10 • 


X' 


08 ' 


x« 


04* 


X' 


02' 


X' 


01* 


C 

X' 


• 

80' 


X' 


40' 


X" 


20' 


X' 


10* 


X' 


03 • 


x« 


04' 


x« 


02' 


X' 


01* 


C 


• 


X' 


80' 


X« 


40 ' 


X 1 


20 » 


X' 


10' 


X' 


08' 


x« 


04' 


x« 


02' 


X* 


01' 


c 


• 


X' 


80 » 


x' 


40' 


x« 


20' 


X' 


10' 


x« 


08' 


X' 


04' 


X" 


02' 


x< 


01 « 


c 


• 


X' 


80' 


X 


40' 


X' 


20 « 


X« 


10' 



THIS CTB IN CONVERSATION 

1 MASTER TERMINAL 

2 SUB POOL CTB 

3 DIAL CTB IS PHYSICALLY CONNECTED 

4 DIAL CTB IS LOGICALLY CONNECTED 

5 CONVERSATION IN PROGRESS WAS HELD 

6 PRESET CNT 

7 PRESET SMB 



NO INPUT 

1 NO OUTPUT 

2 NO QUEUEING 

3 LOCKED 

4 TEST MODE 

5 EXCLUSIVE MODE 

6 INOPERABLE 

7 USER OUTPUT EDIT REQUESTED 



INPUT ONLY DEVICE 

i QUEUE ALL SYSTEM MESSAGES 

2 LOOP TEST PENDING 

3 LINE DISCONNECT REQUESTED 

4 ERROR ON GET NEXT FOR OUTPUT 

5 QUEUE CAUSE OF ERROR WITH SYSMSG 

6 LAST CTB ON THIS LINE 

7 FIRST SEGMENT 



DEQUEUE MESSAGE IN PROCESS REQUESTED 
OUTPUT ONLY TERMINAL 



NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 



FLAGS TO BE USED BY ANALYZER 

0=OUTPUT NEXT, 1= INPUT NEXT 

1 1=END OF OUTPUT MSG 

2 1= SYSTEM SHUTDOWN 

3 1=INC0RE SYSTEM MESSAGE 



5.82 



STMT 



SOURCE STATEMENT 



818+CTBAMULT EQU X'08* . 4 
819+CTBAERR EQU X'04' . 5 



821+CTBOCTL DS C 

822+CTBUCTL2 DS C 



F15OCT70 



3/ 27/7 2 



REJECT IF NOT MULTIPLE SEGMENT MESSAGE 
ERROR FOUND ON LAST SEGMENT PASSED 



FLAGS USED BY OD ROUTINES 
FLAGS USED BY DD ROUTINES 



824+CTbFEAT DS 
825+CT8FSYN1 EQU 
826+CTBFSYN2 EQU 
827+CTBFPAGE EQU 
828+CT3FNAPC EQU 



C . FEATURES FLAGS 

X»08» ASYNCHRONOUS DEVICE, SYNC FLAG 1 

X«04» ASYNCHRONOUS DEVICE, SYNC FLAG 2 

X , 02« PACING IN PROCESS 

X'Ol' AUTOMATIC PAGE DELETION NOT REQUESTED 



830+CTBCUMP DS C . COMPONENTS TWO BITS FOR EACH 

8U + CTBC1NA EQU X'80 1 CGfPONENT 1 IS NOT ATTACHED 3088 

832 + CrbCLIP EQU X'40' COf-PONENT L IS INOPERABLE 3088 

833+CTBC2NA EQU X»20' COfPONENT 2 IS NOT ATTACHED 3088 

834+CI8C2IP EQU X'10» CONPONENT 2 IS INOPERABLE 3088 

835+CTBC3NA EQU X» 03 • COMPONENT 3 IS NOT ATTACHED 3088 

836+CTBC3IP EQU X'04' CONPONENT 3 IS INOPERABLE 3088 

837+CTBC4NA EQU X»02' CG*P0NENT 4 IS NOT ATTACHED 3088 

838+CTBC4IP EQU X'Ol' COMPONENT 4 IS INOPERABLE 3088 

840+CTBINCT DS H . INPUT MSG COUNT 

841+CTBGUTCT DS H . OUTPUT MSG COUNT 

842+CTBCPMP DS H . PASSWORD MATRIX POINTER 

843+CTBCNTP DS H . LOGICAL TERMINAL POINTER 

844+CTBPREST DS H . PRESET DESTINATION OFFSET 

845+CTBCG8 DS H . OFFSET TO COMMUNICATION OVERFLOW BLOCK 

846+CTBCCB DS H . OFFSET TO CONVERSATIONAL CONTROL BLOCK 

847+CTBCXB DS H . COMMUNICATION EXTENT BLOCK POINTER 

84B+CTBPGN0 DS H . CURRENT PAGE BEING VIEWED 
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STMT SOURCE STATEMENT 



F15QCT70 3/ '27/72 



8 5 Q ****************** ****** ************** *:fc#>jc#:ft #######:*$#&#*############;*:$#: 
851+* 

852+* CNT - COMMUNICATION NAME TABLES DSECT. 

853 + * 

8 54 -J- ***************** ****** $****#*#**#£#$ ******j;c*:*J{£>J<*ie5(!*^5!t^**5)c*^^^5!c^«:3!tj!c^^5;c^: 

855+CNT DSECT 

856+CNTQE DS 2F . QE FUR CNT Q OFF CL8 

857+CNTOCBDQ DS A DRRN OF NEXT MESSAGE TO READ 

858+CNTQCBEG DS A DRRN OF LAST MESSAGE WRITTEN 



860+CNTQFLG1 


DS 


C CNT 


861 +* 


EQU 


X 1 80* 


862 + * 


EQU 


X^O 1 


863 + * 


EQU 


X'20» 


864 + * 


EQU 


X« 10' 


865 + * 


EQU 


X»08« 


866 + * 


EQU 


X'04» 


86 7 + * 


EQU 


X'C2 • 


869+CNTQFLG2 


DS 


C CNT 


870 + * 


EQU 


X»80» 


871 + * 


EQU 


X^O* 


872 + * 


EQU 


X'20 • 


873 + * 


EQU 


X» 10* 


874 + * 


EQU 


X» OF • 



QUEUE FLAG 1 

QUEUE READ 
QUEUE 1 
QUEUE 2 
QUEUE 3 
QUEUE 4 



MESSAGE 



IN PROCESS 
HAS MESSAGE ENQUEUED 
HAS MESSAGE ENQUEUED 
HAS MESSAGE ENQUEUED 
HAS MESSAGE ENQUEUED 
EXISTS IN BACKUP QUEUE 



QCBDQ POINTS TO QUEUE BLOCK RECORD 

QUEUE FLAG 2 

THIS DESTINATION IS PERMANENT 
AVERAGE LENGTH IS AVAILABLE 
ENG/DEQ COUNT IS AVAILABLE 
NAME FIELD EXISTS 
DESTINATION TYPE THRU 15 



876+CNTQAVGL DS 
877+CNTDQCT OS 
878+CNTNQCT DS 
879+CNTNAME DC 



H AVERAGE MESSAGE LENGTH FOR DESTINATION 
H NUMBER OF MESSAGES DEQUEUED 
H NUMBER OF MESSAGES ENQUEUED 
D»0» LGGICAL TERMINAL NAME 



881+CN 
882+CN 
883 +CN 
684+CN 
885+CN 
886+CN 
887+CN 
888+CN 
889+CN 



TFLAG1 
T1ECIT 
T1MAST 
TiNOQU 
T1N0SE 
T1L0CK 
T1SIGN 
T1QERR 
T1CNT 



DS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



C CNT 

X'8Q 

X»40 

X«20 

X* 10 

X»08 

X'04 

X»02 

X«01 



FLAG 1 

USER EDIT ROUTINE- 
MASTER TERMINAL CNT 
DO NOT QUEUE ON THIS CNT 
DO NOT SEND TO THIS CNT 
CNT IS LOCKED 

SIGN ON SPECIFIED LTERM ONLY 
I/C ERROR OCCUREO ON QUEUE 
ALWAYS ZERO, INDICATES CNT 



891+CNTFLAG2 DS 
892+CNT2UPP EQU 
893+CNT2PAGE EQU 
894+CNT2AERR EQU 
895+* EQU 
896+* EQU 
897+* EQU 
898+CNT2SUB EQU 
899+CNT2INQ EQU 



C CNT 
X'80 
X«40 
X»20 
10 
08 
04 
02 
01 



FLAG 2 

UPPER CASE TRANSLATION REQUESTED 

PAGED MESSAGE IN PROCESS 

SYSTEM ERROR MSG PLACED IN Q BY DFSCLMRO 

RESERVED FOR FUTURE USE 

RESERVED FOR FUTURE USE 

RESERVED FOR FUTURE USE 
SUE POOL CNT 
INQUIRY ONLY CNT 



901+CNTCTBP OS 
902+CNTCNTP DS 
903+CNTCPMP DS 
904 + CNTCMPN'T* DS 



H CTB POINTER 

H POINTER TO NEXT CNT ON SAME 
H PASSWORD MATRIX POINTER 
C COMPONENT POINTER 



CTB 



STMT SOURCE STATEMENT 

905+ DS CL3 RESERVED FOR FUTURE USE 

STMT SOURCE STATEMENT 

907 END 



F15OCT70 



3/27/7 2 



F150CT70 3/27/72 

00120000 
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7770-3 INPUT EDIT ROUTINE - DFSI7770 

For the 7770-3, a user input edit exit has been implemented at the 
line level (from device module DFSDS030) . This exit is primarily 
provided for a user edit routine to operate conversationally with the 
line (caller) to do basic (no data base reference) validity checking 
of input fields (the 7770-3 has limited error detection) and the 
building of a transaction, field by field, until enough data has been 
received and validity checked that the message (transaction) can be 
scheduled into the IMS/360 system. Message text has been translated 
to EBCDIC before the user routine is invoked. 

No te : IMS/360 checkpoint/restart and recovery capabilities are not 

effective until the message has been scheduled into the system 
(see return codes and 4 below) . 

In conjunction with the above concept of input editing, several 
additional entries and actions have been provided for the user input 
edit routine to allow the user edit to be continually aware of the 
line status from operation to operation. 



INTERFACE - 7770-3 USER INPUT EDIT ROUTINE 

REGISTERS 

On Entry : 

R0 

R1 

R2 

R7 

R8 

R9 

R10 

R11 

R13 



R 1 4-R 1 5 
Note! 

Ent ry Vector Value 



Entry Vector Value 

Address of input data/buffer area 

Length of input data/buffer area 

CTB address 

CTT address 

CLB address 

CNT address 

SCD address 

Save area address. The first three words 
in the save area may not be changed. 

Standard OS linkage registers 

The save area chain fields for the save 
area pointed to by R13 must not be modified, 



00 - Entry is for normal segment read completion from the line 
(caller) . 

04 - Reentry for next segment of message after input edit has 

indicated that it has more segments to send to the analyzer. 
R2 has count of usable buffer length of buffer pointed to 
by R1. 

08 - The calling party on the line has hung up. 
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12 - The line is being stopped or the system is shutting down. 

On Exit: 

All registers must be restored except RO, R2, and R15. The contents 
of RO and R1, if any, are ignored by the device-dependent routine. 

R2 - Must contain the count of data now in the input 
buffer area that was pointed to by R1 on entry. 

R15 - Contains one of the following return codes: 

00 - The message segment in the input buffer 
is to be sent to the analyzer and is the 
last segment of the message. 

04 - The message segment in the input buffer 
is to be sent to the analyzer and is not 
the last segment of the message. The next 
time the device module is entered for a 
read, it will enter the edit module with 
R1 pointing to a buffer area and R2 
containing the amount of available area 
contained in the buffer. RO will contain 
the value of 04. 

08 - The message in the input buffer is to be 
sent to the caller followed by a read. 
R2 must contain the count for the message 
to be sent to the caller and the message 
must be in drum address form. 

12 - Repeat the last output message for the 
caller. 

16 - The contents of the input buffer should 

be sent to the caller with a reset to hang 
the caller up. 

ERROR CONDITIONS 

The line will be stopped and a message generated to the master 
terminal for any one of the following input edit module error 
conditions: 

1. The return coue from the input edit module exceeds 16. 

2. The count valu^ returned in R2 is greater than the available 
space in the buffer (buffer overrun) . 

3. The input-edit module sent a single segment message to the 
analyzer after the caller has hung up and indicated that it 
had more segments to send to the analyzer. 

4. The return code from the routine exceeds 8 after entered for 
disconnect indication. 

SPECIAL CONDITIONS 

After the edit module has been entered with the 08 entry vector 
value indicating that the caller has hung up, the edit routine may 
use return codes 00 and 04 to continue sending data to the analyzer 
before the analyzer is notified of the line drop condition. During 
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this mode of processing, return code 00 will indicate the end of input 
edit control and that the message should be enqueued for processing. 
Alternatively, a return code of 08 during this mode will cause the 
message to be cancelled and terminate input edit control for this 
sequence. If the edit module was entered with input Vector 12, no 
external action (device module action) may be specified. Returned 
parameters, if any, are not used, as the entry with entry Vector 12 
is an information-only entry. The return code value of 12 or 16 can 
only be returned after the user routine was entered for a normal read 
completion. 

DATA SPECIAL CHARACTERS 

The input data may contain one or more of the following special 
characters: 

For Invalid Input Line Codes 

For 2721 Cancel Key 

For EOB (on 2721 also •000* key and *#• Key as EOIs) 

For 2721 Verify Key 

For 2721 Repeat Key 

For 2721 Function 1 (F1) Key 

For 2721 Function 2 (F2) Key 

For 2721 Function 3 (F3) Key 

For 2721 Function U (F4) Key 

For 2721 Function 5 (F5) Key 

For 2721 ID X« 19» Code 

For 2721 ID X'59« Code 

For 2721 ID X*21» Code 

For 2721 ID X»61« Code 

For 2721 00 Key and for TOUCH-TONE+ (or equivalent) Phone •*• 

Key when working on the ABB 1 Code Line Interface 

+ Registered Trademark of American Telephone & Telegraph Co. 

22Z0zi U SER INPUT EDIT ROUTINE INCLUSION DURING SYSTEM DEFINITION 

IMS/360 supplies a basic input edit routine for the 7770-3 as module 
DFSI7770 in IMS2.LOAD. If the user wishes to use the supplied module, 
it is his responsibility to move the supplied module from IMS2.LOAD 
to the user library specified in the IMSGEN statement. If the user 
has written his own input edit routine, that module must be placed 
into the user library specified in the IMSGEN statement prior to system 
definition. The module must be named and have an entry point with 
the name DFSI7770. 

7770-3 SUPPLIED I NPUT EDIT ROUTINE PROGRAM LISTING 

For more information on the IMS/360-supplied input edit routine, 
see the Description of Module DFSI7770 in the I MS/360 System M anual . 
Volume I, Form LY20-0629. The source listing of the IMS/360-supplied 
module follows for reference. 



X' 


00» 


X' 


16* 


X' 


26* 


X 


•B0 1 


X 


■B1» 


X 


B2« 


X' 


B3« 


X 


B4» 


X 


■B5« 


X' 


'B6» 


X 


»B7» 


X 


•B8 1 


X" 


B9« 


X' 


1 BA« 


X 


■FA 1 
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STMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



STMT 



7770 USER INPUT EO IT MODULE SUPPLIED BY IMS 

THIS MODULE ASSUMES NO RESPONSIBILITY FOR TRANSMISSION ERROR 
DETECTION OR CORRECTION. 

A MESSAGE IS ASSUMED COMPLETE AND NO ATTEMPT WILL 3E MADE TO 
SEGMENTIZE INPUT CATA 

THE FIRST TWO CHARACTERS OF THE DATA IS ASSUMED TO CONTAIN A 
DEFINED TRANS ACTICN CODE OR LOGICAL TERMINAL NAME 



2 CFSI777C CSECT 

3 * ****** ** * ******* ****** ** ************ ***********!**:******#************** 

4 * 

5 * 

6 * 

7 * 

8 * 

9 * 

10 * 

11 * 

12 * 

13 * 

14 * 

15 * 

16 * 

17 * 

18 * 

19 * 

20 * 
?1 * 

22 * 

23 * 

24 * 

25 * 

26 * 

27 *********************** ************** ********************************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
INPUT PASSED BY ThI S MODULE WILL BE I BYTE LCNGER THAN THE DATA * 
INPUT FROM THE TERMINAL WITH A BLANK INSERTED AFTER THE SECOND * 
CHARACTER 



. ECI ONLY INPUT WILL BE SENT TO THE SYSTEM AS A NO TEXT MESSAGE 

. ANY CHARACTER FOLLOWED BY EOI WILL BE SENT AS A REPEAT REQUEST 

. AN INPUT OF 99+EOI WILL BE USED AS NORMAL SIGN/OFF; THE EDIT 
ROUTIN E WILL RETURN TO THE DDM WITH A DISCONNECT REQUEST. 



SOURCE STATEMENT 



F15QCT70 



29 SAVE (14, 12), ,1779090 

30+ B 12(0,15) BRANCH AROUND ID 

31+ DC ALU 7) LENGTH OF IDENTIFIER 

32+ DC CL7*1779C90« IDENTIFIER 

33+ STM 14,12,12(13) SAVE REGISTERS 

34 USING DFSI777CR12 

35 LR R12,R15 

36 CH RO,TWLVE 

37 BH SAOVECT 

38 LR R15,R0 

39 B ENTRY(R15> 

40 ENTRY EQU * 

41 B ENTRY1 

42 B BADVECT 

43 B ENTRY2 

44 B RETURN 



SET BASE REGISTER 

VALIDITY CHECK ENTRY VECTOR 

BRANCH IF TOO HIGH . 

COPY THE ENTY VECTOR 

GO TO PROPER ROUTINE 



00 
04 
08 
12 



READ COMPLETION FROM LINE 

GET NEXT SHOULD NOT OCCUR FOR THIS 

LINE DISCONNECT ENTRY 

NO ACTIGN ON LINE STOP OR SHUTDOWN 



00002000 
0000300 
00004000 
00005000 
00006000 
00007000 
00008000 
00009000 
00010000 
00011.000 
00012000 
00013000 
0001400C 
00015000 
00016000 
00017000 
00018000 
00019000 
00020000 
00021000 
00022000 
00023000 
00024000 
00024010 
00025000 
00026000 
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00028000 



00029000 
00030000 
00031000 
00032000 
00033000 
00034000 
00035000 
0003600C 
00037000 
00038000 
00039000 
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i-lT 


SOURCE 


STA1 Ei 


MENT 


46 


EN FRY 1 


EQU 


* 


47 




CH 


R2 »TWLVE 


48 




BNH 


SPECIAL 


49 




CH 


R2 tTHI RTEEN 


50 




3NE 


MOVER 


51 




CLC 


10(2 iRl) f=C«99» 


52 




BE 


SI G.N OFF 


53 


NGVER 


EQU 


*r 


54 




MVC 


0(2i Kl ) , 10(R1) 


55 




SH 


R2 tTWLVE 


56 




EX 


R2 , MOV TXT 


57 




MVI 


2(R1 ),X«40' 


58 




AH 


K2 t THREE 


59 




SR 


R15,R15 


60 




B 


RETURN 


6L 


f'OVTXT 


MVC 


3( l,Rl), 12(R1) 


6? 


SIGNUFF 


EQU 


* 


6 3 




SR 


R2,R2 


64 




LA 


R15, 16 


65 




13 


RETURN 



F150CT70 



CHECK NG. DATA CHARS 
LESS THAN 3 CHAR 
TWO DATA CHAR + 
BR IF NOT 



REC'D 

IS FUNCTION 

eoi ? 



REQUEST 



IS 

BR 



IT 
IF 



99 + 
YES 



EOI ? 



SET TRANSACTION CODE 
REMUVE CVERHEAO COUNT 

MOVE REMAINDER OF DATA TEXT 

TRANSACTION SEPERATOR 

SE T DATA LENGTH 
SCHEDULE SEGMENT WITH EOT R.C. 

RETURN MESSAGE TO ANALYZER 



NO MESSAGE FOR 
SET DISCONNECT 
AND GO HANG UP 



CALLER 
REQUEST RC 
THE LINE 
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00041000 
00042000 
0004300C 
00043010 
00043020 
0004303C 
00043040 
00043050 
0044 00 
00045000 
00046000 
00047000 
00048000 
00049000 
00050000 
00051000 
00051010 
00051020 
00051030 
0051040 



STMT 



SOURCE STATEMENT 



F15OCT70 
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67 


ENTRY2 


EQU 


* 


68 




LA 


R15,8 


69 


RETURN 


EQU 


# 


70 




L 


R14, 12{,P13) 


71 




LM 


R3»R12,32(R13) 


72 




3R 


R14 


73 


* 






74 


SPECIAL 


EQU 


* THIS SECT I 


75 




LA 


R15, 12 


76 




BE 


RETURN 


77 




MVI 


0(R1),E0T 


78 




LA 


R2,l 


79 




LA 


R15,0 


80 




3 


RETURN 



CANCEL ANY MESSAGE IN PROCESS 



GET RETURN ADDRESS 

ROfRi NOT RESTORED. R15.K2 

RETURN TO DEVICE MODULE 



PRESET 



DEPENDENT ON COMPARE IN ENTRY1 CODE 
SET REPEAT VECTOR 
AND 
SET 
AND 
AND 



DO REPEAT IF 2 CHARS 
EOT ONLY FOR NO TEXT 
SET DATA COUNT 
SET FOR EOT RETURN 



REC'D 
MESG 



0005300C 
0005400C 
00055000 
00056000 
00057000 
00058000 
00059000 
0006H0C0 
00061000 
0006200C 
00063000 
00064000 
00065000 
00066000 
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STMT SOURCE STATEMENT 



* 



F150CT70 



82 


F.AGVECr 


EQU 


8 3 




SR 


64 




B 


85 


* 





R15,R15 IF BAD INPUT VECTOR SET EOT R.C. 

RETURN AND TRY TO CONTINUE 

CUNSTANTS AND DSECTS F CR INPUT EDIT 
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00068000 
00069000 
H0070000 
00071000 



87 THIRTEEN CC 

88 TWLVH 

89 THREE 

90 EUT 



91 



H» 13' 
UC H'12» 
CC H'3» 
EOU 055 



REQUATE 



0007201C 
00073000 
00 74000 
00075000 
00076000 



9-3 +***********************>»** *********** ********************************** 

94 + * * 

95+* EQUATE REGISTERS * 

96 + * * 

97+*********************** ************** ********************************** 



99 + H0 


EQU 





1CC+R1 


EQU 


1 


1CI+R2 


EQU 


2 


102+R3 


EQU 


3 


1G3+R4 


EQU 


4 


10-V + K5 


EQU 


5 


1C5+R6 


EQU 


6 


106+R7 


EQU 


7 


107+R8 


EQU 


8 


108+R9 


EQU 


9 


109+PLO 


EQU 


10 


110+R11 


EQU 


11 


111+R12 


EQU 


12 


112+R13 


EQU 


13 


113+R14 


EQU 


14 


114+R15 


EQU 


15 


ITMT SOURCE 


STATEMENT 


1 16 


END 




117 




=C 



F15OCT70 3/27/72 
00077000 
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7770- 3 OUTPUT EDIT ROUTINE - DFSO777 

The user has the ability to install a 7770-3 with an installation- 
tailored vocabulary. IMS/360 support cannot, of course, predict this 
vocabulary. For this reason, an output edit exit was implemented to 
allow a user-written module to inspect system messages and terminal- 
to-terminal message switch messages and convert them at the user's 
discretion to a message that is compatible with his vocabulary. 

DATA FORMAT 

See Figure 10A in this manual. 
INTERFACE - DFSO7770 



REGISTERS 




On 


Entry: 
R1 
R2 
R7 
R8 
R9 
R10 
R11 
R13 






R14- 


R15 




Note 


> • 



Address of output message segment 

Count of output message segment length 

CTB address 

CTT address 

CLB address 

CNT address 

SCD address 

Save area address. The first three words 
in the save area may not be changed. 

Standard OS linkage registers 

The save area chain fields for the save 

area pointed to by R13 must not be modified. 

The output edit module will receive control on incore messages, 
system messages, and message switches. It will not receive control 
for a message from an application program that is a response to an 
input transaction. 

On Exit ; 

All registers must be restored except R0, R1, R2, and R15. The 
contents of R0 and R1, if any, are ignored by the device-dependent 
routine. 

R2 - Must contain the count of data now in the output 
buffer area that was pointed to by R1 on entry. 

R15 - Contains one of the following return codes: 

00 - No action taken by the output edit. The device 
module should continue sending the message and 
any further segments without routing control 
to the output edit module. 

04 - The current contents of the buffer are to be 
sent to the line, and the output edit module 
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desires to gain control for any further segments 
of this message. 

08 The contents of the buffer have been changed. 
What is now in the buffer should be sent, and 
any further segments of the message should be 
ignored (dequeued and not sent) . 

ERROR CONDITIONS 

The line will be stopped and a message generated to the master 
terminal for any one of the following output edit module error 
conditions. 

1. The return code from the output edit module exceeds 8. 

2. The count returned in R2 is negative or zero. 

3. The count returned in R2 is greater than the available buffer 
space (buffer overrun) . 

SPECIAL CONDITIONS 

The supplied output edit module makes the following assumptions: 

1. The vocabulary of the 7770-3 contains the phonetic equivalents 
for the numbers through 9 and that the translate table sup- 
plied by the user will convert the EBCDIC numbers to their 
vocabulary equivalents. 

2. The prefix phrase (in drum address form) to be sent for system 
messages follows the user translate table and the orientation 
phrase and has the form nppp, where n is a single byte containing 
the count of the number of drum address bytes (p) following. 

The orientation phrase has the format nppp. 

3. Because of the variable nature of the 7770-3 vocabulary, the 
system definition utility requires that the user supply the 
output translate table for the 7770-3. It is also the user f s 
responsibility to provide the required orientation phrase to 
be used for system message conversion. 

DATA FORMAT 

The output message will be edited into the output buffer until the 
end of message is reached or the buffer is full before control is given 
to the output edit module. The buffer contains output message data 
only and is in EBCDIC. 
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7770 z 3 OUTPUT EDIT ROUTINE INCLUSION DURING SYSTEM DEFINITION 

If the IMS/360-provided output edit routine is to be used, it is 
the user's responsibility to move the module, DFSO7770, from IMS2.L0AD 
to the user library specified in the IMSGEN statement prior to system 
definition. 

If the user is providing his own output edit routine, the module 
must be placed into IMS2.RESLIB prior to system definition. 

7770-3 OUTPU T EDIT ROUTINE PROGRAM L ISTIN G 

For more information on the IMS/360-supplied output edit module, 
see the Description of Module DFSO7770 in the I MS/360 System Manual , 
Volume I, Form LY20-0629. 

The edit routine program listing follows for reference. 



STMT SOURCE STATEMENT 



F15OCT70 3/27/72 



2 CFS0777C CSECT 

3 ************************************* ********************************** 



4 * 

5 * 

6 * 

7 * 

8 * 

9 * 

10 * 

11 * 

12 * 

13 * 

14 * 

15 * 



7770 SYSTEM MESSAGE EDIT ROLTINE SUPPLIED BY IMS 

. ANY MESSAGE SWITCHED TG THIS TERMINAL IS SENT AS IS WITH NO 
MODIFICATION BY THIS PROGRAM 

. SYSTEM 'COMMAND COMPLETED* MESSAGES ARE CONVERTED TO THE USER 
SUPPLIED ORIENTATION PHRASE 

. SYSTEM ERRUR MESSAGES ARE REPLACED BY THE USER SUPPLIED ERROR 
PHRASE PLUS THE IMS ERROR MESSAGE NUMBER 



1 6 ************************************* ************ *******************^* 



00002000 
00003000 
00004000 
000050QC 
00006000 
0000700C 
OOOOBOOO 
0000900C 
00010000 
00011000 
00012000 
00013000 
00014000 
00015000 
0001600C 
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STMT 



SOURCE STATEiMENT 



FJ.50CT70 



18 

19 + 

20 + 

21 + 

22 + 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 

45 RETURN 

46 

47 



SAVE 

3 

DC 

OC 

STM 

USING 

LR 

CH 

8L 

CLC 

BNE 

TM 

BNO 

TM 

BNO 

TM 

BNO 

USING 

L 

LA 

SR 

IC 

CLC 

BH 

EX 

LR 

LA 

L 

LM 

8R 



(14,12), 

12(0,15) 

AL1C7) L 

CL 7*0779 

14,12,12 

OF SO 77 70 

R12,R15 

R2, SEVEN 

MSGSW 

1( 3,R1), 

MSGSW 

4(R1),X» 

MSGSW 

5(R1),X' 

MSGSW 

6(R1),X« 

MSGSW 

CTT, R8 

R3,CTTSE 

R3,256(R 

R4.R4 

R4,0(R3) 

4(3,R1 ), 

ERRMSG 

R4,M0VFR 

R2,R4 

R15,8 

R14, 12(1 

3, 12,32( 

R14 



,0779090 

BRANCH AROUND ID 
ENGTH OF IDENT IFIER 
C90« IDENTIFIER 
(13) SAVE REGI STERS 
,R12 



DFS 
F0« 
F0» 
F0» 



ISD 
3) 



C59 
/SZE 



3) 
13) 



STMT SOURCE STATEMENT 



49 ERRMSG 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 * 



EQU * 

LA R3,1(R3,R4) 

IC R4,0(R3) 

LA R5,7(R1,R4) 

MVC 0(3,R5),4(R1) 

EX R4,MOVFR/5ZE 

LA R3,0(R4,P1) 

MVC 0(3,R3),0(R5) 

LA R2,3(R4) 

LA R15,8 

B RETURN 



TOO SHORT FOR SYSTEM USE 

YES 

IS IT A SYSTEM MSG? 



NO 
NO 
AND NO 



GET ACK PHRASE 

LENGTH CF PHRASE 
COMMAND COMPLETE PHRASE 
NO - ERROR MSG 

SET NEW TEXT LENGTH 

SET SKIP REST RETURN CODE 
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00018000 



00019000 
00020000 
00021000 
00022000 
00023000 
0024000 
00025000 
00026000 
00027000 
00028000 
00029000 
0003COOC 
003100 
00032000 
00033000 
00034000 
003500 
00036000 
00037000 
00038000 
00039000 
00040000 
00041 OOC 
00042000 
00043000 



F150CT70 3/27/72 



POINT TC ERROR PHRASE 

GET LENGTH 

STEP PAST POSSIBLE SELF DESTRUCTION 

SAVE ERROR NUMBER OF MESSAGE 

MOVE USER ERROR PHRASE 

SET ERRCR NUMBER 

SET NEW LENGTH 

SET SKIP REST RETURN CODE 



00045000 
0046000 
00047000 
004-8 00 
00049000 
0005000C 
00051 OOC 
00052000 
00053000 
00054000 
0005500C 
00 56 OOC 



STMT 

62 
63 
64 



SOURCE STATEMENT 



KSGSW 



EQU 
SR 

B 



R15,R15 
RETURN 



F15OCT70 
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00058000 
0005900C 

00060000 
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TrtT 


SOURCE 


STATEMENT 


F150CT70 


3/27/72 


66 


* 




CONSTANTS AND DSECTS USED BY DFS07770 




00062000 


63 


SEVEN 


DC 


H» 7» 




00064000 


69 


CFS 


DC 


C'DFS' 




00065000 


70 


C59 


DC 


C'059* 




00066000 


71 


POVFRAZE 


MVC 


0( li Rl), KR3) 




00067000 


72 




REQUATE 




00068000 



74 +******************* ajt^e a{fj}e *************************** ****s***************** 

75 + 4 * 
76+* EQUATE REGISTERS * 

77 + 4 * 

78 t ******************* *** * ***** ********* ** * *** ****** * *********** ********** 



30+RO 


EQU 





81+R1 


EQU 


1 


82 + R2 


EQU 


2 


83 + R3 


EQU 


3 


84 + R4 


EQU 


4 


8 5 + R 5 


EQU 


5 


86 + R6 


EQU 


6 


87 + R7 


EQU 


7 


88 + R8 


EQU 


8 


89 + R9 


EQU 


9 


90+R10 


EQU 


10 


91 + R11 


EQU 


11 


92+R12 


EQU 


12 


93+R13 


EQU 


13 


94+R14 


EQU 


14 


95+R15 


EQU 


15 


97 


ICLI 


CTT«3ASE=C 



00069000 



9 g + *** ************** ******** ************ ********************************** 

99+4 
100+* CTT - COMMUNICATION TRANSLATE TABLES DSECT. 
101 + 4 

J.02+ 4 4 4 4* ************ ******************** ************* ********************* 

103+CTF DSECT 
104+CTTSEND CS 
105+CTTREC OS 



106+CTTDD DS 
107+CTTEDIT OS 
108+CTTINLNG OS 
1G9+CTTBUFSZ DS 



F . LOCATION OF OUTPUT TRANSLATE TABLE 

F . LOCATION OF INPUT TRANSLATE TABLE 

F . POINTER TO DEVICE DEPENDENT ROUTINE 

F .ENTRY FOR USER EDIT OUTPUT ROUTINE 

H . INPUT LINE BUFFER LENGTH 

H . MAXIMUM OUTPUT BUFFER SIZE 



111 + C 

112 + C 

113 + C 

114 + C 

115 + C 

116 + C 

117 + C 

118 + C 

119 + C 



TT0PT1 

TUMULT 

TT1BACK 

TT1RESP 

TT1BSC 

TT1DIAL 

TT1EBCC 

TT1N0TP 

TTISEBC 



DS 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 



C . 
X« 80' 
X'40' 
X« 20* 
X' 10' 
X'08 ' 
X' 04* 
X» 02' 
X'Ol • 



THIS DEVICE HAS MULTISEG INPUT BUFFERS 

1 BACKSPACE ELIMINATION NOT REQUIRED 

2 TREAT RESPONSE TYPE AS NORMAL MESSAGE 

3 BSC 

4 SWITCHED 

5 INPUT IS IN EBCDIC 

6 NCN TP DtVICE 

7 OUTPUT IS IN EBCDIC 



L21+CTTGPT2 OS 
122+CTT2UCAS EQU 
123+CTT2SYNC EQU 
124+CTT2N0RP EQU 
125+CTT2FRSP EQU 
126+CTT21NQ EQU 



C . 

X'80« INPUT IS IN UPPER CASE 

X'40' . 1 DEVICE REQUIRES SYNC RON I Z AT I ON 

X»20« RESET POLL NOT APPLICABLE 

X'10' FORCE RESPONSE MGUE 

X«08» INQUIRY ONLY TERMINAL 



128+CTTNTRYL DS C 

129+CTTTA6I DS C 

130+CTTNLI DS C 

131+CTTLFI DS C 

132+ DS H 



LENGTH OF POLLING LIST ENTRY 

# OF IDLES FOR TAB CHAR 

U OF IDLES FOR NEW LINE CHAR 

# OF IDLES FCR LINE FEED CHAR 
RESERVED 



STMT SOURCE STATEMENT 

134 END 



F150CT70 3/27/72 

000 70000 
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7770 -3 U SER OUTPUT TRANSLATE TABLE SAMPLE LISTING 

The following is an example of a listing which might be produced 
for a user-supplied output translate table. See also User Input Edit 
Routine and User Output Edit Routine in this chapter. 



IOC OBJECT CODE 
000000 



A0DR1 AD0R2 STMT SOURCE STATEMENT 



c 15HCT7r- 

O0001O00 
*************************** 00002000 

* 00003000 

* OCC04000 

* 00005000 

6 * THIS TABLE IS DEPENDENT UPGN THE VCCAH'JLARY ORIENT * 00006000 

7 * ON THE 7770 DRUM TRACKS. * OOC07000 
B * * O0009C00 
9 *********************************************************************** 00009000 



1 nUT7770 CSFCT 

2 *************************************** 

3 * 

4 * 7770 OUTPUT TRANSLATE TABLE 

5 * 



0C0000 
000010 
0000 20 
000030 
00004C 
000050 
OC006C 
000070 
OOOOBO 
000090 
0000A0 
0C0CP0 
O000C0 
0000D0 
OCCCEC 
O000FO 



0001020304050607 
1011121314151617 
2021222324752627 
3031323334353637 

ooocoooooocooooo 
ooooonoooooooooo 
oooocoocccoooooo 

OOOOOOOOOCOOOOOO 
0001020304050607 
0011121314151617 
0000222324252627 

ooooonoooooooooo 

C0C1O2O3C4C5O6C7 
0011121314151617 
000022Z324252627 
1631323334353637 



15 


DC 


16 


DC 


17 


DC 


18 


nc 


19 


DC 


20 


DC 


21 


DC 


22 


DC 


23 


DC 


24 


DC 


25 


DC 


26 


DC 


27 


DC 



0123456739ABCCEF 
•0001C203C405C6C7C8090ACBOCCOOEOF' 

■ 10 11 12 13 1415 16 17 18 191 A IB 1C1D1E IF" 
•2021 22232425262723292 A2B2C2D2E2F* 
•303132333435363738393A3B3C3D3E3F' 
■ 000 3000000000000000000000000COOO' 
•0OC300000O00C000000O00000000C0OO' 

• OOOOOOOOOOOOOOOOOOOOOOOOIOCOOOOO ■ 

■ 00000000000000000 300000000000000' 
•OOC 10203040506 C 7 C809OC0CC0CCO00O' 
•Op 11 12131415 16171.319000000CCCOOO' 
•0000 2223242526272 9290 0000000X000' 

• 0000000000000000 OOPOCCCOCOOCOOOO 1 
'000102030405060703 09000000000000' 
• ^0 1 112 13 1415 161 71 81900000000C 000' 

• 000022 232425262728 290GOOOOOOC 000' 
•163132 33 343536373 839000000000000' 

1123 456789ABCDEF 



PRE 
FORMATTED 
"ESSAGES 



LOWER 
CASE 
ALPHA 

UPPER 
CASE 
ALPHA 
NUMERIC 



00011000 
00012000 
00013000 
00014000 
00015000 
O0C160O0 
00017000 
00018000 
00019000 
00020000 
00021000 
00022000 
00023000 
00024000 
00025000 
00C26000 
00027000 
00028000 



3Q **************************************** 

31 * * 

32 * 777C-3 IMS/360 .ORIENTATION PHRASF * 

33 * « 

14 **************************************** 



0C0300C0 
00031000 
00032000 
00033000 
00034000 



onoioo 02 

30 101 2B0F 
ODP103 



36 



38 ORIENC 



nc 



ALl(ORIEND-*-l I 
X'^B^E' 



PHRASE LENGTH 

PHRASE IS "DIAL RELEASED' 



O0C36000 
00037CCO 
00039000 



40 it************************************* 

41 * 

42 * 7770-3 IMS/360 n 'JrPUT PREFIX PH4ASF 



44 *»*******•***« 



********** 



00040000 
00041000 
00042000 
00043000 
10044000 



■lOPim 06 

■"00104 0519191619^0 



46 DC ALI(iVk = \'D-»-1 ) 

47 DC X'051'-'191619C0« 

48 CPRENC fiOU * 

49 END 



PH'kASC L r NGTH 

PHi'.ASE IS 'E fi. K Q i"( 



O0C46000 
"0047000 
0C04«1C00 
""0490C0 
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111Q.Z3 USE R OUTPUT TRANSLATE TABLE 

Please refer to the paragraph Special Conditions in the section of 
this chapter titled "7770-3 Output Edit Routine - DFSO7770" for a 
description of the requirements for the user output translate table. 
Refer also to the user output translate table listing that follows in 
this chapter. 

The orientation phrase is used by the device-dependent module. 
Before and after each read, the phrase is sent to the terminal operator 
to indicate that a read is pending on the line, and that he can now 
enter his data. 

The prefix phrase is optional. It is used only by the supplied 
Output Edit Routine - DFSO7770. See the description of module DFSO7770 
functions in this chapter. 

ZZ20 Zl USER OUTPUT TRANS LATE TABLE INCLUS ION 

Before executing Stage 2 of IMS/360 system definition, the 
user-supplied translate table must be placed in the user library 
specified in the IMSGEN statement. The table must be a load module 
with the name specified in the LINEGRP statement. 

IMS/360 DATA BASE BUFFER. POOL 

The default size of this pool is 7,000 bytes. At the beginning of 
the data base buffer pool, there exists a work area used by IMS/360 
to retain statistics on the activity in the buffer pool. These 
statistics should be of value to the IMS/360 user in determining the 
most appropriate buffer pool size for a given application program. 
The following DSECT describes this work area. There is a fullword 
aligned address in the IMS/360 System Contents Directory (SCD) control 
block named SCDDBFPL which points to the following DSECT. For IMS/360 
Version 2.3, the SCDDBFPL fullword address is offset from the beginning 
of the SCD by 276 bytes (decimal) . It is suggested that any program 
which wishes to reference this area use the DSECTS for the SCD and the 
buffer pool prefix which are in the macro library for the IMS/360 
system. The macro for the SCD DSECT is ISCD SCDBASE=0 and the macro 
for the buffer pool prefix is BFPL. The SCD is the major block within 
the IMS/360 system. The address of the SCD can be obtained by an 
application program through a GET SCD call. The format of this call 
is: 

CALL 'CBLTDLI' 

USING GSCD, any valid PCB-addr, IOAREA 

where 

GSCD 

is a four-character constant for the data base function, and 
IOAREA is an eight-byte area. The first word of this eight-byte 
area contains the SCD address upon return from a GET SCD call. 
The second word contains the address of the PST. 

WARNING: When running a MSG or BMP region type, using either the VS2 
Operating System or the VS1 Operating System with fetch protect 
specified, the GSCD call will function normally. The operating system, 
however, will not permit a program in one region (the MSG or BMP region) 
to access data in another region (the CTL region), and, therefore, the 
addresses returned on the GSCD call cannot be used in either a MSG or 
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BMP region type. An OCU System abend will result if they are used in 
the above situation. Since the SCD and buffer pool are in the same 
Operating System Region as the application program when running in a 
DLI or DBB region type, these addresses may be used by a DLI or DBB 
region. 
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The buffer pool work area format is as follows: 



BFPLID 


DS 


OF 






DC 


CW ' 


BFPLSZE 


DC 


F'O' . 


BFPLFWDT 


DC 


A(0) . 


BFPLBWDB 


DC 


A(0) . 


BFPLQCB 


DC 


2F»0' . 


BFPLEQP 


DC 


XL20«0' 


BFPLRQCT 


DC 


F'O' . 


BFPLINPL 


DC 


F»0« 


BFPLRDCT 


DC 


F'O' . 


BFPLALTR 


DC 


F'O' . 


BFPLOSWT 


DC 


F'O' 




BFPLBKWT 


DC 


F'O' . 




BFPLNWBK 


DC 


F'O' 




BFPLCHWT 


DC 


F'O' 




BFPLCHBK 


DC 


F'O' . 




BFPLTLCP 


DC 


F'O' . 




BFPLBCMB 


DC 


F'O' 




BFPLBMVD 


DC 


F'O' . 




BFPLISTL 


DC 


F»0» 


BFPLIGET 


DC 


F'O' 


BFPLGTBF 


DC 


F'O' 


BFPLWERR 


DC 


X'O' . 


BFPLWERT 


DC 


X'O'. 


BFPLSW1 


DC 


X'O'. 


BFPLCPCT 


DC 


X'0» . 


BFPLFBUF 


DS 


OD . 





ID OF POOL 

SIZE OF POOL LESS OHEAD 

ADDRESS OF LEAST RECENTLY USED BUFFER 

ADDRESS OF LEAST RECENTLY USED BUFFER 

QCB FOR USERS WAITNIG FOR OTHER TRMNATIONS 

WORK AREA FOR BUFFER NQ AND DQ MACROES 

NUMBER OF BLOCK REQUESTS RECEIVED 

NUMBER OF REQ SATISFIED FROM POOL 

NUMBER OF READ REQUESTS ISSUED 

NUMBER OF BUFFER ALTERATIONS RECEIVED 

NUMBER OF OSAM WRITES ISSUED 

NUMBER OF BLOCKS WRITTEN 

NEW BLOCKS CREATED IN POOL 

NUMBER OF CHAINED WRITES ISSUED 

NUMBER OF BLOCKS WRITTEN IN WRITE CHAINS 

NUMBER OF POOL COMPACTIONS PERFORMED 

NUMBER OF BUFFS COMBINED 

NUMBER OF BUFFERS MOVED 

NO OF RETRIEVE BY KEY CALLS REC 

NO OF GN CALLS REC 

NO OF BISAM READS OR QISAM SETLS 

NUMBER OF PRM WRT ERR BUFFS NOW IN POOL 

LARGEST NUMBER OF PRM ERR BUFFS EVER IN PL 

SWITCHES 

COUNT OF CURRENT NUMBER OF COMPACTORS 

LOCATION OF FIRST BUFF IN POOL 



The most important entries in the DSECT above are those starting 
at BFPLEQP and down through BFPLGTBF. 



BFPLRQCT 



eguals the number of requests for logical records, segments, 
or physical blocks made to the data base buffer handler by 
higher level Data Language/I modules 



BFPLINPL 



equals the number of requests defined under BFPLRQCT which are 
satisfied from data already in the data base buffer pool without 
a physical I/O operation required. This number should be a 
fraction of BFPLRQCT. This value may be increased by increasing 
the data base buffer pool size. 



BFPLRDCT 



equals the number of physical I/O read requests performed by 
the buffer handler. This number should be a fraction of 
BFPLRQCT. This value will normally be increased by a reduction 
in the data base buffer pool size. 



BFPLALTR 



equals the number of data base buffers altered because of 
deletes, replaces, or inserts to data bases 



BFPLOSWT 



equals the number of physical I/O writes performed on an OSAM 
data set or on an ISAM data set using OSAM to write back data, 
This number should be a fraction of BFPLRQCT. 
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BFPLBKWT 

equals the number of physical I/O write operations performed 

BFPLNWBK 

equals the number of new data base blocks created in the data 
base pool which are subsequently written to data base storage. 
This value is a counter of new physical blocks in all data bases 
used. 



BFPLCHWT 



is the number of OSAH write operations performed where multiple 
blocks are written with one channel program. 



BFPLCHBK 



is the number of blocks written in the mode described by the 
parameter BFPLCHWT 



BFPLTLCP 



is the number of times the data base pool needed to be compacted 
because of fragmented use of space. This value should be small 
relative to BFPLRQCT. 



BFPLBCMB 



is the number of fragmented buffer pool areas combined to obtain 
space in the buffer pool for new data from the data base 

BFPLBMVD 

is the number of buffers containing data which must be moved 
around in a fragmented pool. Both BFPLBCMB and BFPLBMVD should 
be small values. The ability to ensure these values are small 
is achieved in two ways: 

1) Common block sizes for all data bases used 

2) Large data base buffer pool 

BFPLISTL 

is the number of retrievals by key field value made by DL/I 
modules to the buffer handler. 



BFPLIGET 



is the number of QISAM GET NEXT or BISAM sequential READ calls 
received 



BFPLGTBF 



is the number of BISAM READs or QISAM SETL operations issued 
to satisfy retrieval requests. This number should be smaller 
than BFPLTSTL. 



BFPLWERR 



is the number of permanent WRITE errors currently in buffer 
pool 
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BFPLWEET 

is the largest number of permanent WRITE errors ever encountered 
in the buffer pool during the IMS/360 control or batch region 
execution. 

Just prior to the termination of an application program, it may 
be beneficial to access the contents of the data base pool work area. 
Analysis of the information should assist the user in determining the 
size of the buffer pool for subseguent executions. 

HDAM RANDOMIZING MODULES 

The Data Language/I access method called HDAM reguires the IMS/360 
user to supply a module for root segment placement in, or retrieval 
from, an HDAM data base. One or more modules, called randomizing 
modules, may be utilized within the IMS/360 system. A particular data 
base has only one randomizing module associated with it. A generalized 
module, which uses DBD generation-supplied parameters to perform 
randomizing for a particular data base, may be written to service 
several data bases. 

The purpose of a randomizing module is to convert a segment search 
argument key field value supplied by an application program for root 
segment placement in, or retrieval from, an HDAM data base into a 
relative block number and anchor point number. 

After a randomizing module has been compiled and tested, and before 
its use by the IMS/360 system, it must be placed into the IMS2.RESLIB 
data set. Each randomizing module must have a unigue name and the 
name must not conflict with the already existent members of the 
IMS2.RESLIB data set. Alternative locations for randomizing module 
storage are SYS1.LINKLIB or any operating system partitioned data set 
to which access is provided with a JOBLIB or STEPLIB job control 
language statement. 

The name given to the load module used for randomizing functions 
with a specific data base should also appear in the DBD generation 
associated with the data base. The load module name must be the value 
of the "mod" parameter of the RMNAME= operand on the DBD statement 
in the HDAM DBD generation. 

The necessary randomizing module associated with a specific data 
base is brought into core storage in either the IMS/360 online control 
program region or batch processing region at the time the associated 
data base is opened. If a single randomizing module is utilized for 
more than one HDAM data base, it must be written, compiled, and link 
edited as reentrant (RENT) . It may also be placed in LINKPACK. This 
will allow one copy of the module to service several data bases 
concurrently open. 

When an HDAM data base is to be utilized in either the IMS/360 
online control region or a Data Language/I batch processing region 
and the randomizing module does not exist in OS LINKPACK, space must 
be provided for it. Space must be provided in the IMS/360 control 
region to accommodate all randomizing modules which may be employed 
for online HDAM data bases. 
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All randomizing modules are loaded from their resident library by 
the IMS/360 open module, DFSDLOCO. The IMS/360 open module obtains 
the name of the randomizing module from the control block entitled 
RDMVTAB. This block is constructed by the utility block builder program 
and placed in IMS2.ACBLIB from parameters specified in the associated 
DBD. If the IMS2.ACBLIB data set is not being used, the block is 
constructed in core and passed to the IMS/360 open module. The OS 
LOAD macro instruction is employed. 

When an application program issues a Get Unigue, Get Next with 
gualif ication, or Insert call which operates on a root segment of an 
HDAM data base, the user- supplied randomizing module is invoked. The 
segment search argument and the segment I/O work area in the data base 
call which relates to the seguence field of a root segment provide 
the primary input parameter to the randomizing module. The following 
illustrates the format of a segment search argument. 

ROOT SEGMENT NAME (SEQUENCE FIELD NAME-OPERATOR-value) 

The root segment and seguence field names are eight-character 
alphameric values. The operator is a two-character arithmetic value. 
A description is provided in the IMS^360 Application Programm ing 
Re ference Manual (SH20-0912) . Other operators at the root level will 
give unpredictable results. The value parameter is a term whose length 
eguals the length of a root segment seguence field in the data base 
and whose content defines an already existent root segment to be 
retrieved. If the data base call consists of a root segment insert, 
the segment search argument consists only of the segment name. In 
this case, the field value is obtained from the segment I/O area 
provided in the insert call. 

This field value parameter is supplied to the randomizing module 
for conversion to a relative block number and anchor pointer number 
within the data base. In addition to the field value parameter supplied 
by an application program, parameters from the DBD generation associated 
with the data base being used are available to the randomizing module. 

When a randomizing module is invoked for the purposes of conversion, 
control is passed from the IMS/360 data base logical, retrieve function 
module, DFSDLROO. 

The parameters from DBD generation are available to a randomizing 
module in a CSECT named RDMVTAB. The address of this C5ECT is passed 
to the module each time a conversion is reguested. 
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DMBDANME 


DS 


CL8 


DMBDAKL 


DS 


0CL1 


DHBDAEP 


DS 


a 


DMBDASZE 


DS 


H 


DMBDARAP 


DS 


H 


DMBDABLK 


DS 


F 


DHBDABYM 


DS 


F 


DMBDABYC 


DS 


F 


DMBDACP 


DS 


F 



The following DSECT. defines the format of this CSECT: 
DMBDACS DSECT 

NAME OF ADDR ALGORITHM LOAD MODULE 
EXECUTABLE KEY LENGTH OF ROOT 
EP OF ADDR LOAD MODULE 
SIZE OF THIS CSECT 

NUMBER OF ROOT ANCHOR POINTS/BLOCK 
NUMBER OF HIGHEST BLOCK DIRECTLY ADDRSD 
MAX NUMBER OF BYTES BEFORE OFLOH TO 2NDARY 
CUR NUM OF BYTES INSERTED UNDER ROOT 
RESULT OF LAST ADDRESS CONVERSION 

RANDOMIZING MODULE INTERFACES 

Upon entry to any randomizing module, registers must be saved. 
Upon return to IMS/360, registers must be restored. A save area address 
is provided in Register 13 upon entry for the purpose of register save. 

The following registers upon entry to a randomizing module have 
the indicated meanings: 

Meanin g or Content 

Data Management Block address (DMB) 

DMBDACS CSECT address 

Partition Specification Table address (PST) 

Address of first byte of key field value supplied 
by an application program 

13 Save area address. The first three words in the 
save area must not be changed. 

14 Return to IMS/360 address 

15 Entry point address of randomizing module 
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Note Jk If an HDAM data base does not have a sequence field defined, 
the values supplied to the randomizing module are as follows: 

a. The executable key length field in the CSECT named 
RDMVTAB is not initialized and should not be used. 

b. The value in Register 9 at entry to the randomizing 
module contains the address of the first byte of the 
user I/O area. 

Note 2: If an HDAM data base does not have a sequence field defined 
at the root level, the randomizing module will only be given 
control on an insert call. All retrieval-type calls will 
result in a scan mode operation to satisfy the root level 
qualification. On GU type calls, the scan is begun at the 
beginning of the data base. On GN type calls, the scan 
is begun at the current root level position within the data 
base. 

Internal IMS/360 control blocks which are of value to a randomizing 
routine are: the Partition Specification Table (PST) , the Data 
Management Block (DMB) , Physical Segment Description Block (PSDB) for 
the root segment, and the first Field Description Block (FDB) , which 
is the root segment key field format description. DSECTs of these 
blocks are provided in the examples which follow later in this section. 

The result of a randomizing module conversion must be in the form 

BBBR 

where: 



is a one-byte binary number of the appropriate anchor point 
within a relative block within an OSAM data set of the data 
base. 

BBB 

is a three-byte binary number of the block into which a root 
segment is to be inserted or from which it is to be retrieved. 

This result must be placed in the CSECT addressed by Register 1 
in the four-byte fixed name DMBDACP. If the result exceeds the content 
of the field DMBDABLK, the result is changed to the highest block and 
last anchor point of that block. 
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HDAM RANDOMIZING MODULE EXAMPLES 

Three randomizing module examples are provided as guidance to the 
IMS/360 system user. Each of the examples uses one of the following 
techniques: 

1. Modulo or division method 

2. Binary halving method 

3. Hashing method 

The intent of a randomizing module is to convert a root segment 
key field value to a relative block number and anchor point number 
in an HDAM data base. The relative block number may range from 1 to 
22*-i. «phe anchor point number may range from 1 to 255. 

MODULO OR DIVISION METHOD EXAMPLE 

This module uses the principle that the remainder of a divide can 
only range from zero to the divisor minus one. Thus, any number divided 
by four can only yield a remainder of 0, 1, 2, or 3. To determine 
the base location for a root segment, multiply the number of blocks 
in the root segment addressable area by the number of anchor points 
per block. This is effectively the number of base locations for root 
segments in the root segment addressable area. Then, divide the root 
segment key field value by the result of the multiplication. The 
remainder indicates the appropriate base location. 

To convert the base location to relative block and anchor point 
numbers, divide the base location by the number of anchor points per 
block. This last division leaves the relative block number as the 
quotient and the anchor point number as the remainder. Since both 
numbers are relative to zero, both must be incremented by one to yield 
the correct block and anchor point. 

Example: 

Assume a) root segment addressable area is 50 blocks 

b) 2 anchor points per block 

c) root segment key value is 23 

Result a) number of base locations = 50 x 2 = 100 

b) appropriate base location = 23/100 = 23 remainder 

c) appropriate block = 23/2 =11 (the quotient), 
appropriate anchor point = 1 (the remainder) 

d) adjust both numbers by one; thus, relative 
block = 12 and anchor point = 2 

Notice that external keys 123, 223, 323, etc. will be synonyms. As 
the number of base locations is increased, the distance between root 
segments increases. This may waste direct access space. However, the 
number of synonyms decreases as the number of base locations approaches 
or exceeds the largest key value. If the root segment key field value 
is numeric and the number of base locations equals or exceeds largest 
key value, no synonyms will be produced. 
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STMT 



SOURCE STATEMENT 



F150CT70 3/27/72 



2 


hDCNVRT 


3 


* * * * 


4 


* 


5 


* 


6 


* 


7 


* 


8 


* 


9 


* 


10 


* 


il 


* 


12 


* 


13 


* 


14 


* 


15 


* 


16 


* 


17 


* 


18 


* 


19 


* 


20 


* 


21 


* 


22 


* 


23 


* 


24 


* 


25 


* * * * 


26 




27 




2B 




29 




30 




31 




32 




33. 




34 




35 




36 




37 




38 




39 




40 




41 




42 




43 




44 




45 




46 




4 7 




'♦8 




49 




50 


PACK 


51 





1 CSECT 
*************** 



****** ******** * * 



SAMPLE 



CONVERSION 



PROGRAM 



RECNC/DMBDAR 
MODI RECNO,DM 
ASSUMES THAT 
ASSUMES THAT 



THIS CSECT CONVERTS AN 

BLOCK AND ROOT ANCHOR POINT. 

FOLLOWS RECNO= MOD(KEY,DMBD 

BLOCK= 

RAP = 

THE CSECT 

THE CSEC1 

LESS. NON -NUMERIC CHARACTER 

FOUR LOW ORDER BITS WILL BE 

CALLING SEQUENCE 

RO - DMB 

Rl - DMBCACS 

R7 - PST 

R9 - KEY ADDRESS 
ON RETURN 



EBCDIC NUMERIC KEY TO A RELATIVE 
THIS RESULT IS OBTAINED AS 

ABLK*DMBDARAP) 

AP + 1 

HDARAPJ+1 
THE EXTERNAL KEY IS 10 BYTES OR 
THE EXTERNAL KEY IS 15 BYTES OR 

S ARE VALID, HOWEVER ONLY THE 

USED. 



DMBDACP - BB3R 



* * sje - 

STM 

USING 

USING 

USING 

XC 

IC 

EX 

SR 

01 

CVB 

L 

MH 

DR 

LR 

SR 

LH 

DR 

LA 

LA 

SLL 

OR 

ST 

LM 

8R 

PACK 



: * 

14 
PS 
DM 
HD 
PS 
R5 
R5 
R4 
PS 
R5 
R6 
R6 
R4 
R5 
R4 
R6 
R4 
R4 
R5 
R5 
K4 
R4 
14 
Rl 
PS 
REQUATE 



********** 
,12,12(13) SAV 

T,R7 

BDACS,R1 
CNVRT1,R15 
TUECB(8) ,PSTOECB INI 
,DMBDAKL GET 

,PACK 
,R4 

TDECB+7,X'0F • 
,PSTDECB 

, DMB DA ELK HIG 

,DMBDARAP HIG 

,R6 

,R4 RECNUM 

,R4 

,DMBDAPAP 
,R6 

,1(,R4) ROO 

,1(,R5) BLO 

tS 

,R5 BBB 

, DMBDACP RES 

,12,12(13) RES 

4 RET 

TDECB( 8) ,0(0,R9) 



****** ********** 



T FOR CVB 
EXECUTABLE KEY FLD LENGTH 



FORCE SIGN 



EST BLOCK NUMBER DIRECTLY ADDR 
HEST RECORD NUMBER 



T ANCHOR POINT 
CK 

R 

ULT 
TORE 
URN 



0000100C 
00004000 
00005000 
00006000 
00007000 
00008000 
00009000 
00010000 
00011000 
00012000 
00013000 
00014000 
00015000 
00016000 
00017000 
00018000 
00019000 
00020000 
00021000 
00022000 
00023000 
00024000 
00025000 
0002600C 
00027000 
00028000 
00029000 
00030000 
00031000 
00032000 
00033000 
00034000 
00035000 
00036000 
00037000 
00038000 
00039000 
00040000 
00041000 
00042000 
00043000 
00044000 
00045000 
00046000 
00047000 
00048000 
00049000 
00050000 
00051000 
00052000 



1,3+ *******#****#***!******* ************** ********************************** 
t»4 + * * 



5.105 



STMT 



SOURCE STATEMENT 



F 15 OCT 70 



3/27/72 



55 + * EQUATE REGISTERS * 

56 + * * 



59+RO 


EQU 





6C + R1 


EQU 


1 


61+R2 


EQU 


2 


62 + R3 


EQU 


3 


63 + R4 


EQU 


4 


64 + R5 


EQU 


5 


65 + R6 


EQU 


6 


66 + R7 


EQU 


7 


67 + R8 


EQU 


8 


68 + R9 


EQU 


9 


69+R10 


EQU 


10 


7C+R11 


EQU 


11 


71+R12 


EQU 


12 


72+R13 


EQU 


13 


73+R14 


EQU 


14 


74+R15 


EQU 


15 



5.106 



■TMT 



SOURCE STATEMENT 



76 IULI PST3ASE=C f DMBBASk=0 

77+* * * * IDLI 

7b + * CHANGES TO IDLI SINCE LAST UPDATED 



F150CT70 3/27/72 

O0053O00 



18 DEC 69 



# # * 



8C+*...P A R T I T I U N 

82+PST USECT 

83+FSTDECB DS 8F DECB 

84+FSTDGPE DS 12F DOPE 

85+PSTSYMBG DS CL8 TERM 

86+PSTCODE DS CL1 CODE 

87+PSTLOSEO EQU X'80' LO 

88+* EQU X'40' RE 

89+PST1SPCE EQU X'20' TH 

90+PSTPCBIN EQU X« 10 • PC 

91+PSTSMBCE EQU X'04' DE 

92+* EQU X«02' RE 

93+* EQU X'Ol' US 

94+PSTRFFU DS CL1 CODE 

95+PSTRGU EQU X'BJ' TH 

96+FSTSPAR EQU X'40' SC 

97+FSTSPAA EQU X'20 1 SC 

98+PSTRESP EQU X» 10' RE 

99+PSTSPAP EQU X»08' 29 

10C+PSrSTAT DS CL2 STAT 

101+PSTPREl OS CL4 PREF 

102 + PSTPRE2 DS CL4 PREF 

103+PSTPRE3 DS CL4 PREF 

104+PSTOQPCB DS OF OUTPU 

105+FSTOPQCR DS F DRRN 

106+ DS 2F QMGR 

107+PSTCNT DS A 0/P DE 

108+ DS 2H QMGR 

109+PSTIQPCB DS OF INPUT 

110+PSTIPQCR DS F DRRN 

111+ OS 2F QMGR 

112+PSTSMB OS F SMB AD 

113+ DS 2H QMGR 

114+PSTPREF DS F SAVED 

115+PSTPREFC DS H PREFIX 

116+PSTPREFI DS ri PREFIX 

117+PSTIQE DS 0CL20 SP 

llb+PSTIQLNK DS A SP S IQ 

119+PSTIQPRM DS A SPS IQ 

120+PSTIQIRB DS A SPS IQ 

121+PSTPROT DS 0CL1 PAR 

122+PSTIQTCB DS A SPS IQ 

123+PSTIQECB DS A SPS IQ 

124+PSTSEG DS A SEGMEN 

125+PSTSEGL DS F SEGMEN 

126+PSTMI DS OC 

127+PSTDVIND EQU X'BO 1 CU 

128+PSTLAST EQU X'40' LA 

129+PSTMULTI EQU X>20» . 

130+PSTUSER DS A ADDR 



SPECIFICATION TABLE 



CF THIS PST ENTRY 
VECTORS FOR I/O TERMINAL 
INAL SYMBOLIC 



PCB 



SE AL 
SERVE 
IS IS 

e is 

STINA 

SERVE 

ED IN 

S 

IS IS 

HATCH 

RATCH 

SPONS 

CS 



L OUTPUT MESSAGES (RESTART) 
D 

A PCB 
IN PST 
TION IS S 
D 

ALTERNAT 



MB (0 IF CNT) 

E TERMINAL PCB ONLY 



CO 

DA 

DA 

DA 

POR 



F 0/P 
CURRE 
STINA 
CFFST 
PORT 
F I/P 
CURRE 
CR 

CFFST 
INPUT 
OUTP 
INPU 
S IQE 
E LIN 
E PAR 
E INT 
TITIO 
E PAR 
E PAR 
T ADD 
T LEN 



A GU CAL 
PAD HAS 
PAD HAS 
E HAS BEE 

DES 

TA TO BE 
TA TO BE 
TA TO BE 
TION OF I 

MSG IF I 
NT BFFR £ 
TION (CNT 

£ MSGLNG 
■ICN OF 1/ 

MSG IF S 
NT BFFR L 

£ MSGLNG 
PREFIX T 
UT USE CO 
T USE COU 
IS 5 WOR 
K FIELD 
M FIELD 
ERRUPT RQ 
N STORE P 
T I TION TC 
TITION EC 
R 
G'TH 



L, NOT A GN CALL 

BEEN INSERTED 

BEEN INSERTED TO ALTERNATE PCB 

N SENT TO ALTERNATE PCB 



SCANNED BY USER 

SCANNED BY USER 

SCANNED BY USER 

/0 PCB TO INTERFACE W/QMGR 

SRT DONE 

USER CHAIN 
» 

PCB TO INTERFACE W/QMGR 
UCCESSFUL GU MADE 
USER CHAIN 



ERMTYP-COMPADD 
UNT (QMGR UPDATES) 
NT (QMGR UPDATES) 
DS 



BLOCK ADDR 
ROTECT KEY 
B ADDR 
B ADDR 



RRENT PCB IS TERMINAL PCB 
ST OF MULTI-BUFF SEGMENT 

MULTI BUFFER SEGMENT 
F USERS I/O AREA 



5.107 



STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



131+PSTPSB OS 
132+PSTCLASS DS 
133+PSTQE DS 
134+PSTCGUNT OS 
135+PSTNJGB OC 
136+FSTNSTEP DC 
137+PSTACCT DS 
138+PSTDGU DC 
139+PSTDGN DC 
140+PSTOGNP DC 
141+PSTDGHU OC 
142+PSTDGHN DC 
143+PSTDGHNP DC 
144+PSTDISRT DC 
145+PSTDDLET DC 
146+PSTDREPL OC 
147+PSTMMOVE DS 
148+PSTMGU DC 
149+PSTMGN DC 
150+PSTMISRT DC 
151+PSTMDLET DC 
152+PSTACCTL EQU 
153+PSTTERM DC 
154+PSTMSG EQU 
155+PSTBMP EQU 
156+PSTCAN EQU 
157+PSTINT EQU 
158+PSTREP EQU 
159+PSTBTCH EQU 
160+PSTMVR EQU 
161+PSTPRTY DS 
162+ DS 

163+FSTTPPCB DS 
164+PSTDBPCB DS 
165+PSTTSKIC DS 
166+PSTC0DE1 OS 
167+PSTINTNT EQU 
168+PSTWDMB EQU 
169+PSTSCHEC EQU 
170+PSTP3RGN EQU 
171+PSTWPSB EQU 
172+PSTBLKBL EQU 
173+PSTBLDDB EQU 
174+* 
175+PSTSCDAD DS 



A DIRECT 
CL4 MESS 
2F QE OF 
F COUNT 
CL8 1 ' C 
CL8« • C 
OF BEGIN 
A(O) GU 



A(O) 
A(O) 
A(O) 
A(O) 
A(O) 
A(O) 
A(O) 
A(O) 
A(OJ 
A(O) 
A(O) 
A(O) 
A(O) 



GN 

GNP 

GHU 

GHN 

GHN 

ISR 

DLE 

REP 

MOV 

GU 

GN 

ISR 

DLE 



*-PSTACC 
ALKO) S 
128 PST 
64 PST R 
32 THIS 
16 PST 1 
8 A REPL 
4 EXTERN 
1 REGION 
X INITIA 
2X RESER 
A ADORES 
A AODRES 
F 



CRY ENTRY OF P 
AGE CLASS SCHE 

PST ENTRY 

CF I/P MSGS SU 

LRRENT JOB NAM 

L'RRENT STEP NA 

MING OF ACCOUN 

DATA BASE CA 

DATA BASE CA 

DATA BASE CA 

DATA BASE CA 

DATA BASE CA 

F DATA BASE CA 

T DATA BASE CA 

T DATA BASE CA 

L DATA BASE CA 

E CALLS ISSUED 

MESSAGE ICAL 

MESSAGE ICAL 

T MESSAGE ICAL 

T MESSAGE ICAL 

T LENGTH OF AC 

CHEDULER FLAG 

REPRESENTS A M 

EPRESENTS BATC 

REGION TO BE S 

INTERCEPTED FLA 

Y IS OUTSTANDI 

ALLY SCHEDUALE 

CANCELLED - M 

TOR CUTOFF PRI 

VED 

S OF CURRENT 
S OF CURRENT 



SB SCHEDULED 
DULING USE 

CCESSFULLY DEQUEUED 
E 

ME 

TING DATA AREA 
LLS ISSUED 
LLS ISSUED 
LLS ISSUED 
LLS ISSUED 
LLS ISSUED 
LLS ISSUED 
LLS ISSUED 
LLS ISSUED 
LLS ISSUED 
FROM MSG REGION 



COUNTING AREA 




BYTE 




ESSAGE REGION 


2728 


H MESSAGE REGION 


2728 


TOPPED 


2728 


G CS 




NG CS 




D PST 




OVER WAITING CS 




ORITY CS 





2 72 8 



OCL1 
X»40 
X'20 
X» 10 
X»08 
X»04 
X'02 
X«01 
DDIR 



BIT 

• CA 
« PS 

• OK 

• TH 

• PS 

• BL 

• CA 
ADD 



A ADORES 



MEAN 
NNOT 
T ON 

TO C 
IS IS 
T ON 
CCK B 
LL TO 
PESS 
S OF 



INGS IF S 
SCHEDULE 
DMB WAIT 
OMPLETE S 

A TYPE 3 
PSB WAIT 
UILDER CA 

BLOCK BU 
IN PSTDBP 
SCO 



R LAST USED TERMINAL PCB 
R LAST USED OATA BASE PCB 

ET TO 1 

- INTENT NOT SATISFIED 

QUEUE 

CHECULE FUNCTION 

BATCH REGION 
QUEUE 

LLED - REPLY NECESSARY 
ILDER FOR A SPECIAL DBD 
CB 



177 + * 



BUFFER HANDLER SECTION OF PST 



180+* 



BUFFER HANDLER FUNCTION CODES 



182+PSTFNCTN DC 
183+PSTBKLCT EQU 
184+PSTBYLCT EQU 
185 + * 



XL1»0» CALLERS FUNCTION 

X«01« LOCATE BLOCK, BLOCK # AT PSTBLKNM, RET=PSTDATA 

X»02« LOCATE REL BYTE OR REL RECORD 

REL BYTE OR RECORD AT PSTBYTNM, RET = PSTDATA 



5.108 



STMT 



SOURCE STATEMENT 



F15QCT70 



3/27/72 



186+PSTISRCH 


EQU 


X'03' 


187+PSTFCWRT 


EQU 


X*04» 


188+PSTPGUSR 


EQU 


X'OS 1 


189+PSTBFALT 


EQU 


X'06 1 


190+PSTSRCH 


EQU 


X«07« 


L91 + * 






192 + * 






193 + * 






194+* 






L95+PSTGBSPC 


EQU 


X'08« 


196 + * 




PS TO MB 


197+PSTFBSPC 


EQU 


X»09» 


198 + * 




PSTDCB 


199+PSTDMGNX 


EQU 


X'OA 1 


200+PSTBYALT 


EQU 


X«OB« 


201+PSTBFMPT 


EQU 


X'OC 1 


202 + * 






203 + * 






204+PSTSTLBG 


EQU 


X'FO 1 


205+PSTSTLGT 


EQU 


X«F1» 


206+PSTSTLEC 


EQU 


X'F2« 


207+PSTSTLIS 


EQU 


X»F4» 


208+PSTGETNX 


EQU 


X»F8« 



CHECK FOR DUPLIC 
WRITE BUFFER AT 
WRITE ALL BLOCKS 
MARK BUFFER ALTE 
SEARCH POOL FOR 
PSTISAMW, IF FOU 
PSTDATA HAS ADDR 
IS 0, IF NOT FOU 
ANC PSTRTCDE IS 
GET SPACE IN BUF 
NM S PSTCCBNM US 
FREE SPACE IN BU 
NM 6 PSTBLKNM HA 
PUT BLOCK AT BOT 
LOCATE BLOCK AND 
MARK ALL BUFFERS 
OR A GIVEN DCB 
PARAMETERS - PST 
RETRIEVE BY KEY 
RETRIEVE BY KEY 
RETRIEVE BY KEY 
RETRIEVE BY KEY 
GET NXT SEQUENTI 



ATE ISAM BLOCK, 
PSTBFUSE 

MODIFIED BY THI 
RED, ADDR IN PST 
ISAM BLOCK, KEY 
ND, PSTBYTNM HAS 
ESS OF ISAM WORK 
ND, SPACE ADORES 
PSTNOTFD. 
FER POOL, # OF B 
ED, ID RETURNED 
FFER POOL, PSTDM 
VE ID OF SPACE 
TOM OF USE CHAIN 
MARK ALTERED, R 
EMPTY. USED FOR 
R A GIVEN BLOCK. 
CMBNM,PSTDCBNM A 
BEGIN AT STAR 
GT KEY ADDR A 
EQ OR GT KEY 
REC TO CHAIN 
AL ROOT (KEY) 



ADDR IN PSTBFUSE 

S USER 
BFUSE 
ADDRESS AT 

ISAM RLAD, 

AREA, PSTRTCDE 
S IS PSTDATA, 

YTES IN PSTBYTNM 
IN PSTBLKNM 
BNM L 

& DO PSTGETNX 
EL BYTE=PSTBYTNM 
A GIVEN DMB 

ND PSTBLKNM. 
T OF DATA BASE 
T PSTBYTNM 
ADDR AT PSTBYTNM 
THIS ONE FROM 



210 + * 



SPACE MANAGEMENT FUNCTION CODES 



212+PSTGTSPC 


EQU 


X'Ol* 


213+PSTFRSPC 


EQU 


X»02« 


214+*PSTBTMPFEQU 


X«03« 


215+PSTGTRAP 


EQU 


X'04 1 


217 + * 




OPEN 


218+PSTOCCSG 


EQU 


X^O 1 


220+PSTOCLD 


EQU 


X'20' 


221+PSTOCDCB 


EQU 


X» 10* 


222 + * 






223+PSTOCOPN 


EQU 


X«08' 


224+PSTOCCLS 


EQU 


X'OO* 


225+PSTOCALL 


EQU 


X'04« 


226+PSTOCPCB 


EQU 


X«02« 


227+PSTOCDMB 


EQU 


X'Ol* 


228+PSTOCBAC 


EQU 


X»80» 



GET SPACE FOR SEGMENT, R5 POINTS TO PSDB 

FREE SPACE FOR SEGMENT, R5 POINTS TO PSDB 

TURN OFF BIT FOR PSTBLKNM (ALSO RETURN CODE) 

GET SPACE CLOSE TO ROOT ANCHOR POINT IN PSTBYTNM 



OPEN CLOSE FUNCTION CODES 

OPEN THE DSG FOUND IN 



PSTDSGA 



V610 



OPEN FOR LOAD 

DSG ADDRESS IN PSTDSGA - OPEN/CLOSE ONLY THE DCB 

IN PSTDCBNM 

THIS IS AN OPEN CALL 

THIS IS A CLOSE CALL (BIT 4=0) 

CLCSE ALL DMB'S IN THE SYSTEM 

CLCSE PCB, ADDRESS OF PCB IN R2 

CLCSE DMB, ADDRESS OF DMB IN R2 

OPEN NOT SUCCESSFUL 



230 + * 



INDEX MAINTAINANCE FUNCTION CODES 



V911 



232+PSTXMDLT 


EQU 


X^O 1 PERFORM 


233+PSTXMRPL 


EQU 


X'Al' •• 


234+PSTXMISR 


EQU 


X«A2» ■» 


235+PSTXMUNL 


EQU 


X'A3» •• 



INDEX MAINTENANCE FOR SEG 
ii it ii 

ii ti it 

ii ii ii 



TO 



BE DLET 
REPL V911 
ISRT V911 
UNLD V911 



237 + * 



BLOCK LOADER FUNCTION CODES 



239+PSTDMBRD EQU 
240+PSTPSBRC EQU 



L READ Dm FROM ACBLIB 
2 READ PSB FROM ACBLIB 



5.109 



3TMT 



SOURCE STATEMENT 



F15OCT70 



3/27/72 



241+PSTINTRD 


EQU 


243 + * 




245+PSTRTCDE 


DC 


246+PSTCLOK 


EQU 


247+PSTGTDS 


EQU 


248+PSTRDERR 


EQU 


249+PSTNOSPC 


EQU 


250+PSTBDCAL 


EQU 


251+PSTENDDA 


EQU 


252+PSTNOTFD 


EQU 


253+PSTNWBLK 


EQU 


254+PSTNPLSP 


EQU 


255+PSTTRMNT 


EQU 



3 READ INTENT & DMB NAME LISTS FROM AC8LIB 

BUFFER HANDLER RETURN CODES 

1XL1»00» STATUS OF CALL 
OOO EVERYTHING COPASET IC 

004 RBN BEYOND DATA SET 
008 PERMANENT READ ERROR 

012 NO MCRE SPACE IN DATA SET 

016 ILLEGAL CALL 

020 END CF DATA SET ENCOUNTERED, NO RECORD RETURNED 

024 REQUESTED RECORD CANNOT BE FOUND 

028 NEW ELOCK CREATED IN BUFFER POOL 

03 2 INSUFFICIENT SPACE IN POOL 

036 USER MUST TERMINATE, NO SPACE IN POOL 



257 + * 



ISAM SIMULATOR RETURN CODES 



259+PSTKEYHI EQU 
260 + * 



012 ON SETL FOR I SRT ISAM KEY WAS HI, RETURN 
CODE IN R15 WAS ZERO 



262 + * 



SPACE MANAGEMENT RETURN CODES 



264+PSTBTMPF EQU 003 TURN OFF BIT FOR PSTBLKNM (ALSO FUNCTION CODE) 



266+ 

267 + 

268 + 
269+ 

270 + 

271 + 

272 + 

273 + 
274+ 
2 75 + 

276 + 

277 + 

278 + 

279 + 

280 + 

281 + 



PSTOFFST 

PSTDSGA 

PSTBLKNM 

PSTDMBNM 

PSTDCBNM 

PSTBYTNM 

PSTDATA 

PSTBUFFA 

PSTOBSZE 

PSTRQSZE 

PSTDSBKC 

PSTBFPDQ 

PSTBFUSE 

PSTLFMST 

PSTRTMST 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



H«0 

F'O 

F»0 

H"0 

XL1 

XL1 

F»0 

F«0 

OF* 

F«0 

F'O 

F'O 

F»0 

A(0) 

A(0) 

A(0) 



OFFSET OF SEGMENT OR RECORD FROM PSTDATA 
ADDRESS OF DATA SET GROUP PORTION OF JCB 
RELATIVE BLOCK NUMBER 
DMB NUMBER 

00* CCB NUMBER 

00* RESERVED FOR ALIGNMENT 
RELATIVE BYTE ADDR OR RELATIVE RECORD NUMBER 
CGRE ADDRESS OF REQUESTED DATA (RECORD OR SEGMENT) 

• COPE ADDR OF BUFFER HEADER 
SPACE OBTAINED BY USE OF EXISTING BUFF(S) 
SPACE REQUIRED TO HOLD BLOCK + OP CHNL PGM 
OQ FTR FOR REQUESTED BLOCK 
DQ PTR FOR BUFFER POOL 

ADDR OF BUFF TO BE USED OR COMPACTED, 2NDTM 
COMPACTED BUFFER WITH LOWEST CORE ADDR 
COMPACTED BUFFER WITH HGHEST CORE ADDR 



283 + * 

284 + * 



DATA BASE LOG FUNCTION CODES 
FUNCTION IN HI BYTE OF PSTWRK1 



286 + 

287 + 

288 + 

289 + 

290 + 

291 + 

292 + 

293 + 

294 + 

295 + 



CBLNDXC 

DBLCMC 

U8LNC1R 

CBLLGDLT 

CBLPHYI 

CBLPHYD 

DBLPHYR 

D8LLASTC 

CHLFSfcl 

C8LFSE2 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



X»80 
X'OO 
X»70 
X'60 
X'40 
X«20 
X* 10 
X«08 
X'OO 
X 1 04 



INCEX MAINTENANCE CALL 

BITS 1-3 = CHAIN MAINTENANCE CALL 

COUNTER MAINTENANCE 

LOGICAL DELETE 

PHYSICAL INSERT 

PHYSICAL DELETE 

PHYSICAL REPLACE 

LAST CHANGE FOR THIS USER CALL 

BIT 5=0 ONE FSE (IF »40' OR «20» 

TWG FSE'S (IF '40' OR «20» 



ON) 
ON) 



5.110 



STMT 



SOURCE STATEMENT 



F150CT70 3/ '27/72 



296+DBLPHYRG EQU 
297+DBLNEWBL EQU 
298+CBL00PS EQU 
299+CBLBUFW7 EQU 



X'02* OLC COPY OF A PHYSICAL REPLACE 

X»01« NEW BLOCK LOG CALL 

X'OA' NO DATA - END OF USER CALL 

X«FO» BUFFER WRITE CALL 



301 + * 



PSTWRKi,2,3,4 USAGE BY DB LOG 



303+*PSTWRKl 




PHYSICAL 


304+*PSTWRK2, 


3,4 


LOGICAL 


305 + * 




BYTE (2 


306 + * 




POINTER 


307 + * 




AND NEW 


308+PSTWRK1 


DC 


F'O 1 


309 + * 






310+* 






311+PSTWRK2 


DC 


F'O' 


312 + * 






3 13 + * 






314+PSTWRK3 


DC 


F»0« 


315 + * 






316 + * 






317+PSTWRK4 


DC 


F»0« 


318+* 






319+* 






320+PSTNUMRB 


DC 


XL1«0» N 


321+PSTNUMCP 


DC 


XLl'O' N 


322+PSTNUMWT 


DC 


XLl'O* N 


323+PSTCLRWT 


DC 


X«00» IN 


324+PSTIWAIT 


EQU 


X»80» IW 


325+FSTLOGQ 


DC 


A(0) ADD 


326+PSTLOGWA 


DC 


A(0) ADD 


327+PSTISAMW 


DC 


F«0« WOR 


328+PSTWRKT1 


DC 


F«0« WOR 


329+PSTWRKT2 


DC 


F'O* WOR 


330+PSTWRKT3 


DC 


F»0* WOR 


331+PSTWRKT4 


DC 


F^' WOR 


332+PSTWRKT5 


DC 


F«0» WOR 


333+PSTWRKD1 


DC 


F«0» WOR 


334+PSTWRKD2 


DC 


F'O' WOR 


335+PSTWRKD3 


DC 


F'O' WOR 


336+PSTWRKC 


DC 


3F*Q* IS 


337+PSTLEN 


EQU 


*-PST 


339+* COMMUNICATION AREA FO 


340 + 


ORG 


PSTDSGA 


341+PSTBFLAG 


DS 


XL1 . 


342+PRECOMP 


EQU 


X'80* . 


343+POSTCOMP 


EQU 


X«40« . 


344+PSBALL 


EQU 


X»20« . 


345+PSTDATE 


DS 


PL3 . 


346+PSTTIME 


DS 


F . 


347+PSTBLDL 


DS 


A . 


348+PSTMSGR 


DS 


A . 


349+PSTLBLMO 


DS 


A . 


350+PSTDCBAC 


DS 


A . 



SDB ADDRESS/C 
DELETE - OLD C 
BYTES), CHAIN 
(4 BYTES) , PH 
FSE'S (6 OR 12 

NEXT CHE 
TRMNATE 



SPACE CO 
PST MASK 

DO PTR F 

TEMP SAV 

DCB LAST 
TEMP SAV 
UMBER OF BLOCK 
UMBER OF POOL 
IMBER OF WRITE 
CICATORS 
AIT ISSUED ON 
PESS OF REUSE 
BESS OF WORK A 
K AREA USED BY 
K SPACE PRESER 
K SPACE PRESER 
K SPACE PRESER 
K SPACE PRESER 
K SPACE PRESER 
K SPACE FOR US 
K SPACE FOR US 
K SPACE FOR US 
ED BY CONVERSI 



OUNT IF NEW BLOCK CALL(LO 2 BYTES) 
OPY OF PHYSICAL CODE AND DELETE 

MAINTENANCE - OLD COPY OF CHAIN 
YSICAL INSERT AND DELETE - OFFSETS 

BYTES) 

CKED - COMPACT 
SIZE - FIND SPACE 

LLECTED SO FAR (HGH 2BYTES - CPS) 
WORK AREA IF WRT ERR - BFFRWRT 

OR BUFF(S) BEING WRITTEN - BFFRWRT 
E OF BLOCK NUMBER -SPC1AA 



BLOCK WRITT 
E OF OQ PTR 
S READ ON TH 
COMPACTS ON 
S ISSUED ON 

THIS CALL 
QUEUE QCB IN 
REA FOR LOG 

ISAM SIMULA 
VED ACCROSS 
VED ACCROSS 
VED ACCROSS 
VED ACCROSS 
VED ACCROSS 
E BY DELETE/ 
E BY DELETE/ 
E BY DELETE/ 
CN ROUTINES 



EN BEFORE WRITE -BFWRT 
- SPC1AA 
IS CALL 
THIS CALL 
THIS CALL 

V878 

V878 
POOL 
0/P 
TOR 

CALLS TO BUFF HANDLER 
CALLS TO BUFF HANDLER 
CALLS TO BUFF HANDLER 
CALLS TO BUFF HANDLER 
CALLS TO BUFF HANLLER 
REPLACE 
REPLACE 
REPLACE 



BLOCK BUILDER UTILITY - DFSUACBO 

BUILDER INTERNAL FLAGS 

PRE-COMPRESS REQUESTED 

POST COMPRESS REQUESTED 

PSB=ALL REQUESTED 

DATE FOR THIS RUN 

TIME AT START OF THIS RUN 

A(LCB) FOR DBD & PSB BUILD LIST 

ENTRY POINT TO MESSAGE ROUTINE 

ENTRY POINT TO BLK BUILDER MSG ROUT 

ADDRESS OF DCS FOR IMSACB OUTPUT 
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351+PSTDCBSC 


DS 


A . 


352+PSTPNAME 


OS 


CL8 . 


353+PSTPTTR 


OS 


XL3 . 


354+PSFPMBRC 


OS 


X . 


355+PSTPTTRI 


OS 


XL 3 . 


356+PSTPTTN1 


DS 


X . 


357+PSTPFLAG 


DS 


X . 


358+PSTPDATE 


DS 


PL3 . 


359+PSTPTIME 


DS 


F . 


360+PSTPSIZE 


DS 


H . 


361+PSTPBFR 


DS 


H . 


362+PSTPOMOP 


DS 


F . 


363+PSTPXWA 


DS 


H • 


364+PSTPEND 


EQU 


* . 


365 + * 






366+* ACBLIB 


DIRECTORY ENTR 


367 + * 






368 + 


DS 


OF 


369+PSTDNAME 


DS 


CL8 . 


370+PSTDTTR 


DS 


XL 3 


371+PSTDMBRC 


DS 


X 


372+PSTDTTRI 


DS 


XL3 . 


373+PSTDTTN1 


DS 


X . 


374+PSTDFLAG 


DS 


X . 


375+PSTDOATE 


DS 


PL3 


376+PSTOTIME 


OS 


F 


377+PSTDSIZE 


DS 


H 


378+PSTOBFR 


DS 


H 


379+PSTDLSIZ 


DS 


H . 


380 + 


DS 


2H . 


381+PSTDEND 


EQU 


* 


382 + 


ORG 


PSTBLKNM 


383+PSTMFLGS 


DS 


XL1 . 


384+PSTMLDMB 


EQU 


X«01» . 


385+PSTMSSTC 


EQU 


X'02« . 



ADDRESS OF DCB 
PSB NAME 
PSBMEMBER TTR 
01 RECTORY FLAG 
INTENTSDBD NAM 
RESERVED— (ALW 
BI T 7 0N= THIS 
JULIAN RUN DAT 
BINARY RUN TIM 
# OF DBLWORDS 
CORE SIZE IN D 
DATA MGMT OPTI 
SIZE OF INDEX 
END OF ACBLIB 



CMB— FIELDS COMPARABLE TO PSB ENTRY 



FOR IMSACB 


INPUT 




♦MBRNAME * 




*MBRTTR * 


BYTE 


*MBRC * 


E LIST TTR 


*MBRTTRI * 


AYS ZERO) 


*MBRTTRN1* 


IS A DMB 


*MBRFLAG * 


E 


*MBRDATE * 


E 


*MBRTIME * 


IM MEMBER 


*MBRSIZE * 


BLWORDS 


*MBRBFR * 


ONS 


*MBRDMOPT* 


WORK AREA 




PSB DIR. ENTRY 



DMB NAME 



TTR OF DMB SEQ LIST - ZERO IF NONE 

ALWAYS ZERO 

BIT 7 ON FOR DMB 



SI ZE OF DMB SEQ LIST 
UNUSED 



LOADER FLAG BYTE 
«LCADDMB« MUST BE CALLED 
RESOURCES RESERVED FOR AT LEAST ONE DMB 



388+*. ..0 ATA 



MANAGEMENT 



BLOCK: 



390+DMB 


DSECT 


391+DMBSIZE 


DS 


392+CMBLENTB 


OS 


393+DM8SECTB 


DS 


394+CMBQRG 


DS 


396+CMBISAM1 


EQU 


397+CMBISAM2 


EQU 


398+DMBSSAM 


EQU 


399+DM8HSAM 


EC'J 


400+CMBHD 


EC i 


401+DMBHI 


EQU 


402+CMBNDEX 


EQU 



H DMB SIZE 

H OFFSET FROM DMB TO 
H OFFSET FROM DMB TO 
XL1 DMB ORGANIZATION 



F IRST PSDB (OMBPSDB) 

F IRST SECONDARY LIST (DMBSEC) 



001 ISAM CASE 1 

002 ISAM CASE 2 (MULT DSG'S) 

003 SSAM (SEQ WITH ONE SEG TYPE) 

004 HSAM (SEQ WITH MULT SEG TYPES) 
00 5 HO DIRECT 

006 HD If\DEXED 

007 INDEX DATA BASE 



404+CMBLDDCB DS 
405+CMBRES1 DS 



0XL1 DCB PREFIX NO FOR FELATIONSHI PS AND NDEX ON LOAD 
XL1 RESERVED FOR ALIGNMENT 
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406+DMBNREF DS OXL1 NUM 

407+CMBUALGR DS F ADDR 

408+DMBPPRND EQU * END OF 

409+OMBPPRLN EQU DMBPPRND 

410+CMBDCBOF DS H OFFSET 

411+CM8DCBDL DS XL 1 DELT 

412+CMBDCBAP DS XL1 NUMB 

413+CMBOCBMX DS H LENGTH 

414+DMBDCBMN DS H LENGTH 

415+0MBDCBLN EQU *-DMBPPR 

416+DMBPSCB DSECT 

417+DMBSC DS XL1 

418+DMBPSC DS XL1 

419+DMBLEV DS XL 1 

420+DMBXNULL DS XLL 

421+CMBPPFD DS XL 1 

422+CMBPPBK DS XL 1 

423+DMBDCB DS XL1 

424 + CMBPTR DS XL 1 



EER OF ENTRIES IN EXTERNAL REFERENCE TABLE 
F DIRECT ALGORYTHM CSECT 

PRE PREFIX SECTION OF DMB 
-DMB LENGTH OF PRE PREFIX SECTION OF DMB 

FROM * TO DCB 
fi CYLINDERS TO SCAN 
ER GF ROOT ANCHOR POINTS IN EACH BLOCK 

OF LARGEST SEGMENT STORED IN DATA SET 

OF SMALLEST SEGMENT STORED IN DATA SET 
ND LENGTH OF EACH DCB SECTION OF DMB 



SEGMENT CODE 

PARENT 

LEVEL 

DO NCT 

PTR NO 

PTR NO 

DCB NO 

PREFIX FLAGS 



CREATE INDEX ENTRY 
IN PARENT TO FIRST 
IN PARENT TO LAST 



IF FIELD = THIS BYTE 



426+DMBCTR EQU X«80 

427+CMBPTFD EQU X'40 

428+DMBPTBK EQU X«20 

429+DMBPP EQU X 1 10 

430+DMBLTFD EQU X» 03 

431+DMBLTBK EQU X»04 

432+DM8LP EQU X'02 

433+OMBHIER EQU X»01 



CTR PRESENT 

PT FWD 

PT BKD 

PP 

LT FWD 

LT BKD 

LP 

HIER 



435+DMBPRSZ DS 
436+CMBDL DS 
437+DMBISRT DS 



H PREF IX SIZE 

H DATA LENGTH OF 

XLL INSERT RULES 



SEGMENT AS USER SEES IT 



439+DMBXNLP EQU X«80 

440+DMBIHERE EQU X»30 

441+DMBILST EQU X» 20 

442+CMBIFST EQU X» 10 

443+CMBIRL EQU X» 03 

444+DMBIRP EQU X«02 

445+DMBIRV EQU X« 01 



INSERT RULE FOR INDEX, NULL BYTE PRESENT 



FOP NON KEYED SEGMENT, 
FOR NON KEYED SEGMENT, 
FOR NON KEYED SEGMENT, 
INSERT RULE IS LOGICAL 
INSERT RULE IS PHYSICAL 
INShRT RULE IS VIRTUAL 



INSERT AT CURRENT POSITION 
INSERT AFTER EXISTING SEG 
INSERT BEFORE EXISTING SEG 



447+CMBDLT 



DS 



XL1 DELETE REPLACE RULES 



449+ DM 
450+DM 
451+OM 
452+DM 
453+DM 
454+OM 
455+CM 
456+DM 
457+DM 



BDRLC 

BDRPC 

BDRVC 

BRRL 

8RRP 

BRRV 

BDRL 

BDRP 

BDRV 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



X»30 
X«20 
X» 10 
X»OC 
X» 08 
X«04 
X»03 
X«02 
X«01 



INCUCED DELETE RULE IS LOGICAL 
INCUCED DELETE RULE IS PHYSICAL 
INDUCED DELTTE RULE IS VIRTUAL 
REPLACE RULE IS LOGICAL 
REPLACE RULE IS PHYSICAL 
REPLACE RULE IS VIRTUAL 
DELETE RULE FOR SEG IS LOGICAL 
DELETE RULE FOR THIS SEG IS PHYSICAL 
QELFTE RULE FOR SEG IS VIRTUAL 



459+CMBCKL DS H CONCATENATED KEY LENGTH TO SEG 

460+CMBUSE DS 0CL1 
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F150CT70 
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462+DMBEX 
463+DMBUP 
464 + * 



EQU 
EQU 



466+CMBFDBA DS 
467+DMBFSDB DS 
468+DMBFLAG DS 

470+DMBPAIR EQU 

471+DMBLPEX EQU 

472+DMBLCEX EQU 

473+DMBNXEX EQU 

474+CMBXDEX EQU 

476+ CM BL ST DS 
477+DMBPSDBN EQU 
478+CMBPLEN EQU 
479+DMBSEC DSECT 
480+CMBSCDE DS 

482+CMBSLP EQU 
483+DMBSLC EQU 
484+DMBSRCH EQU 
485+CMBSLCF EQU 
486+DMBSLCPR EQU 
487+DMBSOURC EQU 
488+DMBSUBSQ EQU 
489+OMBEXTRN EQU 
490+DMBINDXD EQU 
491+DMBNXISS EQU 
492 + * 
493+DMBNXXDS EQU 

494 + * 

495 + * 
496+CMBSND EQU 



X»80« THIS PSDB IN 
X^O* THIS PSDB IN 
BITS 2-7 CONTAIN A 



USE EXCLUSIVELY 
USE FOR UPDATE 
COUNT OF READ ONLY 



USERS 



F ADDRESS OF FOB'S FOR THIS SEGMENT 
A FIRST SDB FOR THIS SEG 
OXL1 SECONDARY LIST FLAG 

X»48« A FHYSICAL PAIR EXISTS 

X»40» A LOGICAL PARENT EXISTS 

X«20» ONE OR MORE LOGICAL CHILDREN EXIST 

X«10» ONE OR MORE INDEXES EXIST 

X»04» AN INDEXED SEGMENT EXISTS 

F ADDRESS OF SECONDARY LIST FOR THIS SEGMENT 

* END OF ONE SEGMENT ENTRY 

DMBPSDBN-DMBSC LENGTH FO EACH SEGMENT DESCRIPTION 



IN DMB 



XL1 CODE BYTE 



X«01» 
X'02 1 
X*04» 
X«08* 
X» 11 ■ 
X»20« 
X'24 1 
X»40« 
X«44« 
X»60' 

X«64» 



X«80» 



SEC 
SEC 
SEC 
SEC 
SEC 
SEC 
SEC 
SEC 
SEC 
SEC 
AS 
SEC 



LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
LIST 
SEEN 
LIST 
FROM IN 
PRESENT 
LAST IN 



DESCRIB 
DESCRIB 
DESCRIB 
DESCRIB 
DESCRIB 
DESCRIB 
DESCRIB 
DESCRIB 
DESCRIB 
DESCRIB 
FROM IN 
DESCRIB 

DEXED SE 
IF ISS 

SECOND AR 



ES A LOGICAL PARENT 

ES A LOGICAL CHILD 

ES INDEX SEARCH FIELD(S) 

ES LT SEQUENCE FIELD 

ES PHY PAIR OF LOGICAL CHILD 

ES INDEX SOURCE FIELD(S) 

ES INDEX SUBSEQ FIELD(S) 

ES USER INDEX EXIT ROUTINE 

ES INDEXED SEGMENT 

ES INDEX RELATIONSHIP 

DEX SOURCE SEGMENT (ISS) 

ES INDEX RELATIONSHIP AS SEEN 

GMENT (XDS) THIS LIST NOT 

= XDS 

Y LIST 



498+DMBSFLDS EQU 

500 + * 

502+DMBSFLG DS 
503+DMBVKY EQU 
504+DMBPKY EQU 
505+DMBSFD DS 
506+DMBSECSC DS 
507+DMBSECDB DS 
508+DMBSECNP DS 
509+ ORG 

511 + * 



* FOLLOWING FIELDS LISTED BY CODE TYPE 

**** C C D E 1 **** 

XL1 

C"V« KEY OF LP IS VIRTUAL 

C»P» KEY OF LP IS PHYSICAL 

H LP KEY LENGTH 

0CL1 SEGNENT CODE OF REFERENCED SEGMENT 

A DDIR ACDR OF REFERENCED DATA BASE 

CL8 SEGMENT NAME OF EXTERNAL SEGMENT 

DMBSFLDS 



*#** 



C C D F 



2 **** 



513+ DS XL1 NOT LSED 

514+CMBSL.CFL DS H NO OF FIRST AND LAST LC PTRS IN LP PREFIX 

515+* REMAINDER SAME AS CODE 1 
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STMT SOURCE STATEMENT 
516+ ORG DMBSFLDS 
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518 + * 

520+CMBFDFLG DS 
521 + * 

523+DMBSYM1 EQU 
524+CMBSYMN1 EQU 
525+CMBSYSFC EQU 
526+CMBFOUSE EQU 
527+DMBFDOFF DS 

528 + * 

529 + 



531 + * 



541 + * 

543 + * 

545 + * 

547 + * 

549 + * 

551 + * 

553 + * 

555+DMBSFLG1 

557+DMBSNULL 
558+CMBEXIT 
559+DMBNLXIT 
560+OMBEXLOD 

562 + 

563+DMBNBYTE 
564+ DM BX IT AC 
565+DMBXITNM 
566 + 

568 + * 

570+DMBSKYLN 



ORG 



DS 



533 + 
534+DMBSFNAK DS 
535+CMBSFGFF DS 
536+CMBSFCEN DS 
537+CM8SFLEN DS 
538+CMBXSOFF DS 
539+ ORG 



DS 

EQU 
EQU 
EQU 
EQU 

DS 
DS 
DS 
DS 
ORG 



DS 



###* 



C C D E 



4 #*** 



5XL1 5 ONE BYTE FLAGS ASSOCIATED WITH THE 
THE FOLLOWING 5 ,H ALF WORD .FD8 OFFSETS 

X«08' FIRST PART OF SYMBOLIC POINTER 

X«04« NOT FIRST PART OF SYMBOLIC PTR (MIDDLE OR LAST) 

X'02' THIS SLOT FOR SYSTEM RELATED FIELD 

X'Ol 1 THIS SLOT IN USE 

5H OFFSET TO FOB FROM 1ST FDB OF ISS IF 

THIS SLOT IN USE, OTHERWISE ZERO 
DMBSFLDS 



#*## 



C C D E 



8 **** 



XL1 NOT LSED 

CL8 FDB FIELD NAME 

H OFFSET TO FIELD START 

XL1 CODE BYTE (SAME AS FDBDCENF) 

XL1 EXECLTABLE FIELD LENGTH 

H OFFSET OF FIELD IN INDEXED SEGMENT 

DMBSFLDS 



*### C C D E 
SAME AS CODE 1 

**#* C C D E 
SAME AS CODE 4 

*##* C C D E 
SAME AS C0DE4 

*##* C C D E 

XL1 FLAG BYTE 



1 1 



* ### 



2 o * ** * 



2 4 #*** 



4 **** 



X«01» NULL FIELD PRESENT 

X , 02 i EXIT ROUTINE PRESENT 

X»03* BOTH NULL FIELD AND EXIT ROUTINE PRESENT 

X«04« EXIT ROUTINE HAS BEEN LOADED 

H NOT USED 

0CL1 IF INDEX FIELD = THIS BYTE BYPASS INDEXING 

A ENTRY POINT OF EXIT ROUTINE 

CL8 NAME OF INDEX EXIT ROUTINE 

DMBSFLDS 

**** C C D E 4 4 ***# 

XL1 EXECUTABLE LENGTH OF KEY 
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571+CMBSOFF 


OS 


H OFFSET TO CODE 60 OR 


64 FROM START 


OF SECON 


572 + * 






LIST OF INOEXED 


SEGM 




573+CMBXDSSC 


OS 


0XL1 


SEGMENT CGDE OF INDEXED SEGMENT 




574+0MBXDSDB 


OS 


A DDIR ACDR OF INDEXED 


SEGMENT 




575+CMBXDSC 


OS 


0XL1 


SEGNENT CGDE OF INDEXED SEGMENT 




576+DMBXPSDB 


DS 


A PSDB ACDR OF INDEXED 


SEGMENT 




577+CMBXDFLG 


DS 


XL1 CODE BYTE FROM ASSOCIATED FDB 




579+DM8XDLST 


EQU 


X«80< 


IN FDB LIST LAST 


FOB 




58C+UMBXDSYM 


EQU 


X«40 


INCEX POINTER IS 


SYMBOLIC 




581+CM8XDSSS 


EQU 


X»20 


PTB CONTAINED IN 


SOURCE/SUBSEQ 


DATA 


582+DMBXDSPC 


EQU 


X" 10 


SPECIAL FDB 






583+CMBXDCON 


EQU 


X»08 


' COI^STANJ PRESENT 






584+DMBXDSSC 


EQU 


X » 04 « 


SUESEQ PRESENT 






585 + CM8XDSOP- 


EQU 


X»02 


RESERVED 






586+CM6XDEQ 


EQU 


X»Q1 


XDS = ISS 






588+DMBXDPAL 


DS 


XL1 PADDING CONSTANT 






589+CMBSYMOF 


DS 


H OFFSET TO SYMBOLIC POINTER INDEXINC 


, SEGMENT 


590 + 


ORG 


DMBSr 


r LDS 







592 + * 



**** 



C C D E 



6 *♦** 



594+ DS XL3 SAME AS CODE 44 

595+DMBXNSSC DS 0XL1 SEG^ENT CODE OF INDEXING SEGMENT 

596+DMBXNSDB DS A DDIR ACDR OF INDEX 

597+* REMAINDER SAME AS CODE 44 

598+ ORG DM3SFLDS 



600 + * 



#*♦* CODE 



6 4* *** 



602+ DS 

603+DMBISSOF DS 
604+ DS 

605+DMBISSSC DS 
606+CMBIPSDB OS 
607+ DS 

608+DMBSECND EQU 
609+DMBSECLN EQU 



XL1 SAME AS CODE 44 

H OFFSET TO CODE 60 FROM START OF ISS SEC LIST 

A SAME AS CODE 60 

0XL1 SEGNENT CODE OF 

A PSDB ACDR OF INDEX 

F SAME AS CODE 44 

* END OF EACH SECONDARY LIST ENTRY 

DMBSECND-DMBSEC LENGTH OF EACH SECONDARY LIST 



INDEX SOURCE SEGMENT 
SOURCE SEGMENT 



6L1+CMBDACS 


OSECT 




612+DMBDANME 


DS 


C 


613+OMBDAKL 


DS 





6L4+CMBDAEP 


DS 


A 


615+DMBDASZE 


DS 


H 


616+CMBDARAP 


DS 


H 


617+DMBDABLK 


DS 


F 


618+DMBDABYM 


OS 


F 


619+CMBDABYC 


CS 


F 


620+CMBOACP 


DS 


F 


621 


END 





NAME OF ADDR ALGORYTHM LOAD MODULE 
0CL1 EXEC ROOT KEY FLD LNGTH 
E P OF ADDR LQAD MODULE 
SIZE OF THIS CSECT 

NUMBER OF ROOT ANCHOR POINTS/BLOCK 
NUMBER OF HIGHEST BLOCK DIRECTLY ADDRSD 
MAX NUN OF BYTES BEFORE OFLOW TO 2NDARY 
CUR NUN OF BYTES INSERTED UNDER ROOT 
RESULT OF LAST ADDR CONVERSION 



00055000 



5.116 



BINARY HALVING METHOD EXAMPLE 

This module attempts to distribute root segments across the root 
segment addressable area according to the bit pattern of a root segment 
key field value after it has been converted to a binary value. This 
distribution is performed as follows: A result register is set to zero. 
After a key field value has been converted to binary, the number of 
base locations (number of blocks in the root segment addressable area 
times number of anchor points per block) is computed and divided by 
two. The low-order bit of the converted key field value (ckey) is 
tested for one. If egual to one, the current number of base locations 
is added to the result register. If the low-order bit is zero, no 
addition to the result register is performed. 

The number of remaining base locations is again divided by two and 
the quotient tested for zero. If nonzero, the next higher bit position 
in the ckey is tested for a one or zero and the appropriate action 
taken. This process continues until the number of remaining base 
locations divided by two yields a quotient of zero. At this point, 
the appropriate base location is in the result register. In order 
to produce the proper relative block number and anchor point number, 
divide by the number of anchor points per block. The division yields 
a quotient of relative block number and remainder of anchor point 
number. As in the previous module, the results are both relative to 
zero and must be incremented by one to yield the appropriate values. 

Example: 

Assume a) 10 blocks in root segment addressable 
area 

b) 2 anchor points per block 

c) root segment key field value of 29 

After initialization: 

No. of remaining Result 

CKEY base l ocations Register 

1110 1 (10x2)/2 =10 

After bit tested 

.... x 10 10 

. . . x . 5 10 

. . x . . 2 12 

. x . . . 1 13 

At this point, the number of remaining base locations is reduced to 
zero. Hence the appropriate base location is 13. To get the actual 
relative block number and root anchor point, divide 13 by 2 and add 
1 to both the quotient and the remainder to yield a relative block 
number of 7 and an anchor point number of 2. 

Notice that the number of base locations determines when testing ceases. 
Hence, in this example, all key field values ending in the same four 
bits will be synonyms. Additional bits of the key are tested when 
the number of base locations exceeds another power of two. If the 
number of base locations is not a power of two, some of the base 
locations will never be used. 

The major advantage of this method is that the relative order of 
root segment placement is disturbed very little when the number of 
base locations is changed. 
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SOURCE STATEMENT 



F150CT70 



3/27/72 



3 
4 
5 
6 
7 
8 
9 
10 
il 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
595 
620 



* * * * * * 



* * $ * * *$$$$:(:$'$$$$$ ####£:$:#)$:$# 



* * 



CVTLP 



XIT 



PACK 



B I NARY 



HALVING 



CONVERT 



THIS CSECT DETERMINES THE RELATIVE BLOCK AND ROOT 
ANCHOR POINT BY A BINARY HALVING TECHNIQUE. THIS APPROACH 
IS SLOWER THAN THE MODULO SCHEMES, BUT IT DOES TEND TO KEEP 
THE SAME PHYSICAL SEQUENCE WHEN THE NUMBER OF ADDRESSABLE 
BLOCKS IS CHANGED. SINCE THE ROUTINE USES SHIFTS ON INTEGER 
NUMBERS, SOME RECORD NUMBERS WILL BE INACCESSABLE IF THE 
TOTAL NUMBER OF DIRECTLY ADDRESSABLE RECORDS (BLCCKS*ROOT 
ANCHOR POINTS) IS NOT A POWER OF 2 



* * * : 


>^$$$$$ jjt # 


* $ 


#$***:$$$ * 


STM 


14,12,12(13) 






USING 


PST,R7 






USING 


DMBDACS,R1 






USING 


DFSHDC20,R15 






XC 


PSTDECB(fi) ,PSTDECB 


IN IT FOR CVB 


IC 


R5,DMBDAKL 




GET EX KEY LENGTH 


EX 


R5,PACK 






01 


PSTDECB+7, X»OF< 


i 


FORCE VALID SIGN 


CVB 


R2,PSTDECB 






L 


R4,DMBDAELK 






MH 


R4,DMBDARAP 




HIGHEST RECORD IN 


SR 


R5,R5 




CLEAR RESULT REG 


SRL 


R4,l 




CUT RANGE IN HALF 


LTR 


R4,R4 




RANGE EXHAUSTED 


BZ 


XIT 




YES 


SR 


R3,R3 




NO 


SRDL 


R2,l 




TEST MASK FOR 1 


LTR 


R3,R3 






BZ 


CVTLP 




NO ONE 


BXH 


R5,R4, CVTLP 




ONE - ADD IN RANGI 


DS 


OH 






LH 


R6,0MBDARAP 






DR 


R4,R6 






LA 


R4 , 1 { , R4 ) 




ROOT ANCHOR POINT 


LA 


R5,1(,R5) 




BLOCK 


SLL 


R5,8 






OR 


R4,R5 






ST 


R4,QMBDACP 




RESULT 


LM 


14,12,12(13) 






BR 


R14 






PACK 


PSTDECBC 8) ,0(0, 


rR9) 




PRINT 


NO GEN 






IDLI 


PSTBASE=C,DMBBASE= 





REQUATE 






END 









RANGE 



0000200C 
00003000 
00004000 
00005000 
00006000 

* 00007000 

* 00008000 

* 00009000 

* 00010000 

* 00011000 

* 00012000 
00013000 
00014000 
00015000 
00016000 
00017000 
00018000 
00019000 
00020000 
00021000 
00022000 
00023000 
0002400C 
00025000 
00026000 
0027000 
00028000 
00029000 
00030000 
00031000 
00032000 
00033000 
00034000 
00035000 
00036000 
00037000 
00038000 
00039000 
00040000 
00041000 
00042000 
00043000 
00044000 
00045000 
00046000 
00047000 
00048000 
00049000 
00050000 
00051000 
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HASHING METHOD EXAMPLE 

This module uses a shift and add technique to develop a 31-bit 
binary number which should have a fairly even distribution from to 
2 31 . The number is developed as follows: The result register is 
initialized to zero. The first character of a key field value is added 
to the result register and the register is shifted left three 
hexadecimal digits. The bits of the register shifted left and off 
the register are then added back to the register containing the previous 
shift result. This partial result is tested to be odd or even. If 
odd, the contents of the register are complemented. The original 
character is then added to the register. This process is repeated 
for each character in the key field value. Instead of starting off 
with a zero content in the result register, the result of the previous 
content is used. When the key field value characters are exhausted, 
the result is adjusted to guarantee a 31 -bit positive result. 

Example: 

a) Key field value = ABCD 

Result Registe r 

OC 100000 After test for complement 
0C10C100 After completion of A 

B 1C20C10C After test for complement 

1CE1C20C After completion of B 

C 2CF1CE1C After test for complement 

EDF2CF1C After completion of C 

D FE0EDF2C After test for . complement 

FF0FE0ED After completion of D 

7F0FE0ED Positive number 

The result can then be used as input to the modulo or binary halving 
technique. The latter technique is used in this example. 




5. 119 



STMT 



SOURCE STATEMENT 



F150CT70 



3/27/72 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 



****************** * * * * * * 

SAMPLE HASHING 



T E C H N 



14 * 

15 * 



16 
17 

18 
19 
20 
21 
22 



* 

* 

* 

* 

* * * * 
23 CFSHDC3C 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 

36 LOOP 
37 
38 
39 
40 
41 
42 
43 
44 
45 

46 PASS 
47 
48 
49 
50 
51 

52 * 
53 
54 
55 
56 CVTLP 



THIS CSECT IS A ONE METHOD OF HASHING AN EXTERNA 
INTO A 31 BIT BINARY NUMBER WHICH CAN THEN BE USED AS 
TO THE BINARY HALVING ADDRESSES RESOLUTION OR A MODULO 
TO DETERMINE THE BLOCK AND ROOT ANCHOR POINT. 

THIS ROUTINE PLACES FEW RESTRICTIONS ON THE EXTE 
KEY E.G. IT CAN BE 156 BYTES LONG, IT CAN CONTAIN ANY 
PATTERN. THE KEY SHOULD BE LONGER THAN 3 CHARACTERS TO 
SOME SPREADING, HOWEVER IT WILL WORK ON SHORTER KEYS. 

CALLING SEQUENCE 
RO - DMB 

1 - DMBCACS 

7 - PST 

9 - KEY ADDRESS 
ON RETURN 



DMBDACP - BBBR 



* * * 
CSECT 
STM 
USING 
USING 
SR 

BCTR 
SR 
LA 
SR 
IC 
AR 
LA 
SR 
OS 
IC 
ALR 
SR 

SRDL 
OR 
STC 
TM 
BZ 
XR 
SR 
ALR 
SRDL 
OR 

BXLE 
N 

USE 
L 

MH 
SR 
SRL 



****** * 



* * * * 
I Q U E* 

L KEY * 

INPUT * 

SCHEME* 

RNAL * 

BIT * 

INSURE* 

* 
* 

* * * * 



R14,R12, 
DFSHDC30 
DMBDACS, 
R12.R12 
R12,0 
RlltRll 
R9,0(,R9 
R7,R7 
R7,DMBDA 
R7,R9 
R6,l 
R2,R2 
OH 

RU,0( ,R 
R2,R11 
R3,R3 
R2,12 
R2,R3 
R2,DMBDA 
DMBDACP, 
PASS 
R2,R12 
R3,R3 
R2,R11 
R2,12 
R2,R3 
R9,R6,L0 
R2,N0SIG 
2 AS INPU 
R4,0MBDA 
R4,DMBDA 
R5,R5 
R4,l 



i2 ( Rl 

,R15 

Rl 



) 

KL 



S) 



CP 
X»01' 



CP 

N 

T TO 

ELK 

RAP 



*********** ******* 
3) 

SET TO ALL FF S 

CLEAR ANY HIGH ORDER BITS 
INIT . 

FOR 

LATER 

BXLE 



GET GROUP OF 8 BITS 
ADD TO HASH 

BREAK UP CHAR PATTERNS 
ADD INTO HIGH PORTION 
COMPLEMENT 

ON 

MODERATELY 
CHANGING 
BIT 
DO SECOND PASS 
WITHOUT 
COMPLIMENT 
EXHAUST KEY 

FORCE POSITIVE 31 BIT RESULT 
HALVING OR MODULO SCHEME - HALVING SHOWN 

HIGHEST RECORD IN RANGE 

RESULT REG 

CUT RANGE IN HALF 



00001000 
00002000 
00003000 
00004000 
00005000 
00006000 
00007000 
00008000 
00009000 
C0010000 
00011000 
00012000 
00013000 
00014000 
00015000 
00016000 
00017000 
00018000 
00019000 
00020000 
00021000 
00022000 
00023000 
00024000 
00025000 
00026000 
00027000 
00028000 
00029000 
00030000 
0003100C 
00032000 
00033000 
00034000 
00035000 
00036000 
00037000 
00038000 
00039000 
00040000 
00041000 
00042000 
00043000 
00044000 
00045000 
00046000 
00047000 
00048000 
00049000 
00050000 
00051000 
00052000 
00053000 
00054000 
0005500C 
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STMT 



SOURCE STATEMENT 



F150CT70 3/27/72 



57 




LTR 


R4,R4 


RANGE EXHAUSTED 


58 




BZ 


XIT 


YES 


59 




SR 


R3,R3 


NO 


60 




SROL 


R2,i 


TEST MASK FOR ONE 


61 




LTR 


R3,R3 




62 




BZ 


CVTLP 


NO ONE 


63 




BXH 


R5,R4,CVTLP 


ONE - ADD IN RANGE 


64 


XIT 


LH 


R6,DMBDARAP 




65 




DR 


R4,R6 




66 




LA 


R4 , 1 ( , R4 ) 


ROOT ANCHOR POINT 


67 




LA 


R5,1(,R5) 


BLOCK 


68 




SLL 


R5,8 




69 




OR 


R4,R5 




70 




ST 


R4,DMBDACP 


RESULT 


71 




LM 


R14,R12, 12(R13) 




72 




BR 


R14 


RETURN 


73 




DS 


OF 




74 


NOSIGN 


DC 


X»7FFFFFFF» 




75 




PRINT 


NOGEN 




76 




IDLI 


DMB3ASE=C 




313 




REQUATE 




338 




END 







00056000 
00057000 
00058000 
00059000 
00060000 
00061000 
00062000 
00063000 
00064000 
00065000 
00066000 
00067000 
00068000 
00069000 
00070000 
00071000 
00072000 
00073000 
00074000 
00075000 
00076000 
00077000 
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DATA BASE LOG TAPE RECORD FORMAT 

The following DSECT provides an image of the log tape record format 
for all data base modifications. This log tape record format is 
provided to facilitate the writing of any user-written statistics, 
recovery analysis, or batch checkpoint/restart programs. 



DBLOG 

DLENGTH 

DSPACE 

DLOGCODE 

DL0GFLG1 

* 



DSECT 

DS 

DS 

DS 

DS 



H 
H 

CL1 
CL1 



LENGTH OF LOG RECORD 

ZEROS 

LOG RECORD I.D. 

BITS 0-3 = REGION PROTECT KEY 

BITS 4-7 = COUNT OF FSE»S IN LOG RECORD 



DLOGFLG2 

DNDXC 

DCMC 

DPHYI 

DPHYD 

DNCTR 



DS 

EQU 

EQU 

EQU 

EQU 

EQU 



CL1 

X^O* 

X»00» 

X'UO 1 

X«20« 

X»70» 



INDEX MAINTENANCE RECORD 

BITS 1-3 = 000 CHAIN MAINTENANCE RECORD 

PHYSICAL INSERT 

PHYSICAL DELETE 

COUNTER MAINTENANCE CALL 



DPHYR 

DLASTREC 

DOSAM 

DISAM 

DHS 

DHD 

DNEWBLK 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



X« 10» 
X»08» 
X'OO* 
X»04 f 
X«00« 
X«02» 
X»01» 



PHYSICAL REPLACE 

LAST RECORD FOR THIS USER CALL 
BIT 5=0 OSAM DATA SET 
BIT 5=1 ISAM DATA SET 
BIT 6=0 HS ORGANIZATION 
BIT 6=1 HD ORGANIZATION 
NEW BLOCK CALL 



DLOGFLG3 DS CL 1 

DRCALL EQU X«80« REPL CALL 

DDCALL EQU X f 40» DLET CALL 

DICALL EQU X«20' ISRT CALL 

DREG0 EQU X»00» BITS 3-4 = 00 MOD BY TYPE REGION 

DREG3 EQU XM0» MOD BY TYPE 3 REGION 

DREG 12 EQU X'OS* MOD BY TYPE 1/2 REGION 

DRSV2 EQU X«04» UNUSED 

DFIRSTSG EQU X'02« FIRST LOG RECORD OF A SEGMENT 

DLASTSEG EQU X'OV LAST LOG RECORD OF A SEGMENT 

DIDLN DS CL2 LENGTH OF DDATAID FIELD 

DOFFSET DS CL2 DATA OFFSET FROM BEGINNING OF A BLOCK 

DDATALN DS CL2 LENGTH OF DDATA FIELD 

DCCODE DS CL2 DL/I COMPLETION CODE 

DDBDNAME DS CL8 DATA BASE NAME 

DDPGMNAM DS CL8 PROGRAM NAME 

DDSID DS CL1 DATA SET I.D. 

CDATE DS CL3 DATE 

DTIME DS CL4 TIME 

DSEQ DS CL2 SEQUENCE NUMBER 

DDATAID DS 0CL1 ISAM PRIME KEY OR OSAM RBN 

DDATA DS 0CL1 SEGMENT DATA 

DFSEOFF DS 0CL2 FREE SPACE ELEMENT OFFSET 

DFSE DS 0CL4 FREE SPACE ELEMENT 
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29 72/2 980 INPUT EDIT ROUTINE 

A 2980 input edit routine is required by IMS/360 2972/2980 device 
support to perform terminal-related functions inherent in the design 
of the 2972/2980 General Banking Terminal system. Usage and value 
of these functional characteristics are installation oriented and are 
therefore not performed by normal IMS/360 procedures. The entry (CSECT) 
name of this routine must be DFS29800 and must be link edited with 
the IMS/360 control region nucleus, since it will be called directly 
by the IMS/360 2972/2980 device-dependent module (DFSDN110). Control 
is passed to the 2972/2980 Input Edit routine to process each entered 
message segment after that message segment has been translated by 
IMS/360. 

The 2972/2980 Input Edit routine must perform the following 
functions: 

1. Determine the IMS/360 destination (SMB or CNT) of messages 
entered from a 2980 teller or administrative station. 

2. Determine end-of-message of multisegment messages (by setting 
DECCSWST bit 7 to indicate EOM) . 

3. Reposition the entered data to the beginning of the input buffer 
for IMS/360 processing (the entered segment must be in standard 
IMS/360 input message format after edit processing) . 

In addition to performing the above required functions, the 2972/2980 
Input Edit routine may add inputting terminal status information to 
the entered segment, such as the presence or absence of a passbook 
or auditor key on the inputting terminal. The Input Edit routine may 
initiate retransmission of the last successfully transmitted message 
to a 2980 logical terminal through a return code to the calling routine. 

If the INTERACTIVE Query Facility (IQF) is incorporated into the 
IMS/360 system and will receive input from the 2980, the following 
additional steps must be taken by the input edit routine: 

1. The inputting terminal status information must be separated 
from IQF elements by at least one blank. 

2. If the inputting terminal status information is appended to 
the end of a segment, any preceding carriage return must be 
removed (replaced with a blank) . 

3. The inputting terminal status information must be defined to 
IQF as a null word. 

4. In the edited segment, the inputting terminal status information 
must not be the initial characters of the segment. 

Familiarization with IMS/360 terminal handling procedures and control 
blocks is required for a user to write an input edit routine which 
must interface with IMS/360 routines in the IMS/360 control region. 
Examination of these control blocks may be required; however, 
modification of IMS/360 control blocks by a user-written routine 
seriously endangers the integrity of the entire system. A sample 
2972/2980 Input Edit routine appears later in this chapter. The IMS/360 
interfaces to the 2972/2980 Input Edit routine are as follows: 
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RO Input buffer length 

R1 Start of input area- The first nine bytes of 
this area are blanks (X'UO 1 ) followed by the 
terminal address character, followed by the 
entered text, (The first byte of text if the 
data was entered from a 2980 Model 4 is the 
teller identification character.) 

R2 Input data length. (The length of the area 
pointed to in Register 1.) 

R7 CTB Address 

R9 CLB Address 

R11 SCD Base 

R13 Caller , s save area address in the IMS/360 
prechained save area set. 

R14 Return Address 

R15 The 2972/2980 Input Edit routine base address 

Registers at return to the calling program must be as follows: 

R2 Data length after edit (a zero length signifies 
a no data segment) 

R10 The inputting CNT address if a retransmission 
of the last successfully outputted message is 
reguired. 

R15 Return Code: 

- Process the entered segment 

4 - Resend the last message to the CNT in 
Register 10 

IMS/360 provides a sample 2972/2980 Input Edit routine which is 
described in this chapter. 

The format of the buffer pointed to in Register 1 at entry to the 
2972/2980 input edit routine is as follows: 



, 1 ,. 



9 Blanks Entered Text 



T 

E 

R The first character of the entered 

M text if entry is from a 2980 Model 4 is 

I the teller identification character. 

N 

A 

L 

A 
D 
D 
R 
E 
S 
S 
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SAMPLE USER SUPPLIED 2980 
INPUT EDIT ROUTINE 



PAGE 



STMT 



SOURCE STATEMENT 



F150CT7C 



1/14/72 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



E0IT298C CSECT 

*********************************************************************** 



THIS IS A SAMPLE OF THE 2980 INPUT EOIT ROUTINE REQUIRED BY 
IMS/360 2972/2980 DEVICE SUPPORT. THE INPUT EOIT ROUTINE MUST PER- 
FORM THE FOLLOWING FUNCTIONS: 

1. DETERMINE THE IMS/360 DESTINATION (SMB OR CNT ) OF MESSAGES 
ENTERED FROM A 298G TELLER OR ADMINISTRATIVE STATION. 



2. DETERMINE END-OF-MESSAGE OF MULTI-SEGMENT MESSAGES AND SET 
DECCSWST BIT 7 AT END-OF-MESSAGE. 

3. REPUSITION THE ENTERED DATA TO THE BEGINING OF THE INPUT 
BUFFER FOR IMS/360 PROCESSING. THE ADDRESS OF THE INPUT 
BUFFER IS PASSED TO THE EDIT ROUTINE IN REGISTER 1. 

IN ADDITION TO PERFORMING THE ABOVE FUNCTIONS THIS SAMPLE 
ROUTINE ALSO DOES THE FOLLOWING: 

1. DETERMINES THE INPUTING LOGICAL TERMINAL (CNT) FOR MESSAGES 
ENTERED FROM A 2980-4 TO BE USED FOR SECURITY VALIDATION AND 
AS THE I/O PCB FOR THE APPLICATION PROGRAM. 



2. 



INITIATES RE-TRANSMISSION OF THE LAST SUCCESSFULLY OUTPUTED 
MESSAGE TO ANY PHYSICAL TERMINAL. 



DETERMINATION OF INPUT DESTINATION IS NOT PERFORMED ON DATA * 
ENTERED FROM A 2980-2 ADMINISTRATIVE STATION AS THIS TERMINAL CAN * 
READILY USE THE STANOARD IMS/360 MESSAGE FORMAT. DATA ENTRY FROM A * 
2980-1 OR 2980-4 TELLER STATION REQUIRE THE ENTRY OF A TRANSACTION * 
CODE SEQUENCE IN THE FIRST SEGMENT OF ALL ENTERED MESSAGES ( IMS/360 * 
COMMANDS MUST BE ENTERED IN STANDARD IMS/360 FORMAT). THE TRANSACT-* 
ION SEQUENCE MAY OCCUR ANYWHERE IN THE FIRST SEGMENT AND CONSIST OF * 
A DESIGNATED BEGIN CHARACTER, FOLLOWED BY A VALIO IMS/360 TRANSACT- * 
ION CODE TERMINATED BY ANY CHARACTER WHICH WHEN TRANSLATED BY IMS * 
HAS A HEXADECIMAL VALUE LESS THAN X»C1». OR END OF MESSAGE SEGMENT. * 
IF A SCAN OF THE FIRST MESSAGE SEGMENT DOES NOT ENCOUNTER A VALIO * 
TRANSACTION SEQUENCE (IE: A BEGIN CHARACTER FOLLOWED BY NO MORE * 
THAN EIGHT (8) CHARACTERS BEFORE THE TERMINATION CHARACTER), THIS * 
ROUTINE ASSUMES THE MESSAGE WAS ENTERED IN STANOARD IMS/360 INPUT * 
MESSAGE FORMAT AND BYPASSES THE DESTINATION EDIT FUNCTION. THE 
OESIGNATEO BEGIN CHARACTERS SCANNED FOR ARE: 



X«41» NUMERIC ENTRY OF KEY (MSGACK) FROM A 2980-i. 
X»59« NUMERIC ENTRY OF KEY 15 (CODE) FROM A 2980-4. 

END-OF-MESSAGE IS DETERMINED BY THE ENTRY OF A PERIOD!.) AS 
THE LAST CHARACTER OF THE LAST SEGMENT OF A MULTI-SEGMENT MESSAGE. 
OR AS THE LAST CHARACTER OF A SINGLE SEGMENT MESSAGE. 

INPUTING TERMINAL STATUS INFORMATION IS APPENDED TO EACH MSG 
SEGMENT IN THE FOLLOWING FORMAT: 



00002C00 
000U3000 
G0004000 
00005C00 
O0CO6G00 
OGQC7000 
000C8000 
CG0C9C00 
00010000 
00011000 
GO012G00 
00013000 
00014G0G 
00G15G00 
OC016COC 
C0017000 
GOO 18000 
00019000 
00G20GC0 
00021000 
00G22C00 
0G023C00 
00024000 
00025000 
00026000 
G00270G0 
00028000 
OO029GG0 
00030000 
0003100G 
00032000 
00033000 
00034000 
00035000 
00036000 
000 37000 
00038000 
00039000 
00040000 
00041000 
00042000 
00043000 
00044000 
00045000 
00046000 
00047000 
00048000 
00049000 
000 50000 
00051000 
00052000 
00053000 
00054000 
00055000 
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PAGE 



TMT 



SOURCE STATEMENT 



F150CT70 1/14/72 



57 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 



* 

* AABC 

* WHERE: 

* 
* 

* 
* 
* 

* ■ 

* 
* 
* 

* DETERMINATION OF THE INPUTING LOGICAL TERMINAL CCNTI IS MADE * 

* BY EXAMINATION OF THE NAMES OF THE CNTS ASSIGNED TO THE INPUTING * 

* PHYSICAL TERMINAL, EACH CNT IS EXAMINED TO FIND ONE WITH A NAME * 
♦WHOSE FIRST CHARACTER MATCHES THE TELLER IDENTIFICATION CHARACTER; * 

* IF ONE IS FOUND THE CNT CHAIN IS ALTERED TO MAKE THAT CNT THE FIRST * 

* CNT IN THE CHAIN OF CNTS. THE CNT CHAIN REMAINS UNALTERED IF NO CNT* 

* IS FOUND. * 

* * 

* ENTRY OF THE CHARACTERS •SRESEND* AS THE ONLY CHARACTERS OF * 

* A MESSAGE WILL CAUSE THE LAST SUCCESSFULLY OUTPUTED MESSAGE TO BE * 

* RE-TRANSMITTED TO THE INPUTING TERMINAL. * 



AA- IS A TWO (2) BYTE HEXADECIMAL FIELD CONTAINING 
TWO NINES CX'FgFg 1 ) 
B- IS A »P« (X'D7«) TO INDICATE A PASSBOOK WAS 
PRESENT AT SEGMENT ENTRY IOR THE AUDITOR'S 
KEY WAS INSERTED ON A 2980-2); OTHERWISE 
THIS CHARACTER IS AN »N» CX^DS'l. 
C- IS THE TELLER IDENTIFICATION CHARACTER FOR A 
2980-4. 

A - TELLER A WITHOUT SUPERVISOR KEY 

B - TELLER B WITHOUT SUPERVISOR KEY 

J - TELLER A WITH SUPERVISOR KEY 

K - TELLER B WITH SUPERVISOR KEY 
IF ENTRY WAS NOT FROM A 2980-4 THIS CHARACTER 
IS BLANK (X«40«). THE TELLER IDENTIFICATION 
CHARACTER IS REMOVED FROM THE INPUT TEXT. 



REGISTERS AT ENTRY: 



RO 
Rl 



R2 

R7 

R9 

Rll 

R13 

R14 

R15 



INPUT BUFFER LENGTH 

POINTS TO THE INPUT MESSAGE SEGMENT; PREFIXED BY 

NINE BLANKS, THE TERMINAL ADDRESS CHARACTER, THE 

TELLER IDENTIFICATION CHARACTER! IF ENTERED FROM 

A 2980-4), AND THE ENTERED TEXT. 

DATA LENGTH 

CTB BASE 

CLB BASE 

SCD BASE 

CALLER'S SAVE AREA (MY SAVE AREA IS PRE-CHAINED) 

RETURN ADDRESS 

ENTRY POINT ADDRESS 



RETURN REGISTERS: 

R2 DATA LENGTH AFTER 
RIO CNT BASE 
R15 RETURN CODE 



EDIT 



««#«^^«^%<c#««««#^«^«^«^4c^%«^^^^^^«^««^«c^««^««^«^^^«#^*<<««»4<*«l(<4<4<:«A^«^«« 



00057000 
00058000 
00059000 
00060000 
00061000 
00062000 
00063000 
00064000 
00065000 
00066000 
00067000 
00068000 
00069000 
00070000 
00071000 
00072000 
00073000 
00074000 
00075000 
00076000 
00077000 
00078000 
00079000 
00080000 
00081000 
00082000 
00083000 
00084000 
00085000 
00086000 
00087000 
00088COO 
00089000 
00090000 
00091000 
00092000 
00093000 
00094000 
00095000 
00096000 
00097000 
00098000 
00099000 
00100000 
00101000 
00102000 
00103000 
00104000 
00105000 
00106000 
001G7000 
00108000 
00109000 
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PAGE 3 

STMT SOURCE STATEMENT F15OCT70 1/14/72 

111 REQUATE OOlllOOO 



1144-* * 

115+* EQUATE REGISTERS * 

116** * 



119+RO 


EQU 





120+R1 


EQU 


1 


121+R2 


EQU 


2 


122+R3 


EQU 


3 


123+R4 


EQU 


4 


124+R5 


EQU 


5 


125+R6 


EQU 


6 


126+R7 


EQU 


7 


127+R8 


EQU 


8 


128+R9 


EQU 


9 


129+R10 


EQU 


10 


130+R11 


EQU 


11 


131+R12 


EQU 


12 


132+R13 


EQU 


13 


133+R14 


EQU 


14 


134+R15 


EQU 


15 
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PAGE 



STMT 



SOURCE STATEMENT 



F150CT70 



1/14/72 



136 


USING 


CTB.R7 




00112000 


137 


USING 


IECTDECB,R9 




00113000 


138 


USING 


CNT,R10 




00114C00 


139 


USING 


SCD,R11 




00115000 


140 


USING 


EDIT2980,R12 




00116000 


141 


SAVE 


(14,12),,EDT298C 


SAVE INPUT REGISTERS 


00117C0O 


142 + 


B 


12(0,15) BRANCH AROUNO ID 




143 + 


OC 


AL1C7J LENGTH OF IDENTIFIER 




144+ 


DC 


CL7«EDT2980» IDENTIFIER 




145 + 


STM 


14,12, 12(13) SAVE 


REGISTERS 




146 


LR 


R12,R15 


SET PROGRAM BASE 


00118000 


147 


L 


R13,8(,R13) 


STEP TO NEXT SAVE AREA 


0GU9000 


148 


SR 


R15,R15 


CLEAR RETURN CODE 


Q0120C00 


149 


LR 


R5,R1 


SAVE MESSAGE POINTER 


00121000 


150 


SH 


R2,=H« 10* 


REMOVE BLANKS FROM LENGTH 


00122000 


151 


LTR 


R6 V R2 


SET LENGTH REG 


00123000 


152 


BNP 


ZEROLNG 


BRANCH IF NO DATA 


00124000 


153 


MVI 


DESTLNGtO 


SET DESTINATION LENGTH TO ZERO 


00125000 


154 


MVI 


TELLERIO,C» • 


CLEAR TELLER ID 


00126000 


155 


LA 


R14,10( ,R5) 


SET BEGIN OF TEXT 


00127000 


156 


TM 


CTBFEAT.CTBFM0D4 


2980-4? 


00128000 


157 


BZ 


CKRESEND 


NO 


00129000 


158 


MVC 


TELLERID(1),0(R14) 


SAVE TELLER ID 


00130000 


159 


LA 


R14,K,R14J 


STEP TO TEXT 


00131000 


160 


BCTR 


R6,0 


DECREMENT DATA LENGTH 


00132000 


161 


LTR 


R6,R6 


NO DATA? 


00133000 


162 


BNP 


ZEROLNG 


YES 


00134000 


163 CKRESEND 


EQU 


* 




00135000 


164 


CLI 


0{R14),C , St t 


POSSIBLE RESEND REQUEST? 


00136000 


165 


BE 


RESEND 


YES 


00137000 


166 SETSCAN1 


EQU 


* 




00138000 


167 


TM 


CTBFEAT,CTBFM0D2 


2980-2? 


00139000 


168 


BO 


SETSTAT 


YES 


00140000 


169 


BCTR 


R6,0 


REDUCE LENGTH FOR SCAN 


00141000 


170 


EX 


R6,SCAN1 


FIND BEGIN CHARACTER 


00142000 


171 


LA 


R6*1(»R6) 


RE-ADJUST LENGTH 


00143000 


172 


BC 


iOtSETSTAT 


BRANCH IF NOT FOUND 


00144000 


173 


LA 


R4,K,R1) 


1ST CHAR OF DESTINATION 


00145000 


174 


LA 


R3,0(R6,R14) 


POINT TO END OF SEGMENT 


00146000 


175 


LR 


RltR3 


SET END OF SECOND SCAN 


00147000 


176 


SR 


R3,R4 


SCAN LENGTH 


00148000 


177 


BCTR 


R3,0 




00149000 


178 


EX 


R3,SCAN2 


SCAN FOR SECOND DELIMITER 


00150000 


179 


BC 


6, FOUNDIT 


BRANCH *F FOUND 


00151000 


180 


BCTR 


RltO 


LAST CHARACTER HAS DELIMITER 


00152000 


181 FOUNDIT 


EQU 


♦ 




00153000 


182 


SR 


R1.R4 


DESTINATION LENGTH 


00154000 


183 


CH 


R1,=H»8« 


VALID LENGTH? 


00155000 


184 


BH 


SETSTAT 


NO 


00156000 


185 


STC 


R1,DESTLNG 


STORE LENGTH 


00157000 


186 


MVC 


DEST,0(R4) 


AND DESTINATION 


00158000 


187 SETSTAT 


EQU 


♦ 




00159000 


188 


MVI 


PASSBOOK, C»N« 


INDICATE NO PASSBOOK 


00160000 


189 


CLC 


9(1, R5) ,CTBTERM+1 


NORMAL ADDRESS? 


00161000 


190 


BE 


CKEOM 


YES 


00162000 
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STMT 



SOURCE STATEMENT 



F150CT70 1/14/72 



191 




MVI 


PASSBOOKS* P» 


INDICATE PASSBOOK PRESENT 


00163000 


192 


CKEOM 


EQU 


* 




00164000 


193 




LA 


R4,0(R6,R14) 


R4 = END OF SEGMENT 


00165000 


194 




LR 


R8,R4 




00166000 


195 




CLI 


0(R8),X«15 ( 


ENDS WITH CARRIAGE RETURN? 


00167000 


196 




BNE 


♦ ♦6 


NO 


00168000 


197 




BCTR 


R8,0 




00169000 


198 




BCTR 


R8,0 




00170000 


199 




CLC 


0(2,R8),=C , ** i 


SEGMENT TO BE CANCELLED? 


00171000 


200 




BE 


TESTM0D4 


YES, DON«T ADD STATUS INFO 


00172000 


201 




CLI 


MRS), COMMA 


MORE SEGMENTS COMING? 


00173000 


202 




BE 


NOTEOM 


YES 


00174000 


203 




CLI 


KR8), PERIOD 


END-OF-MESSAGE? 


00175000 


204 




BNE 


ADDSTAT 


NO 


00176000 


205 




01 


DECCSWST,X«01» 


INDICATE END-OF-MESSAGE 


00177000 


206 


NOTEOM 


EQU 


♦ 




00178000 






LA 


R8,1(,R8) 




00178100 


207 




LR 


R4,R8 


R4 = END-OF-SEGMENT POINTER 


00179000 


208 




SR 


R8,R14 


RE-CALCULATE SEGMENT LENGTH 


00180000 


209 




LTR 


R6,R8 


AND TEST FOR NO-DATA SEGMENT 


00181000 


210 




BP 


ADDSTAT 


BRANCH IF DATA SEGMENT 


00182000 


211 


ZEROLNG 


EQU 


* 




00183000 


212 




SR 


R6»R6 


SET ZERO LENGTH 


0C184G00 


213 


RETURN 


EQU 


* 




00185000 


214 




L 


R13,4(,R13) 


GET CALLER'S SAVE AREA 


00186000 


215 




ST 


R6,28( ,R13> 


STORE LENGTH IN R2 OF CALLER 


C01870C0 


216 




L 


R14,12(,R13) 


GET RETURN ADDRESS 


00188000 


217 




RETURN (0,12) 


AND RETURN, RC IN R15 


00189000 


218* 




LM 


0,12,20(13) RESTORE 


THE REGISTERS 




2194 




BR 


14 RETURN 






221 


AODSTAT 


EQU 


* 




00191000 


222 




LA 


R6,L»STATUS(,R6) 


ADD STATUS LENGTH TO SEG LENGTH 


0C192000 


223 




MVC 


0(L«STATUS,R4) , STATUS ADD STATUS INFO TO SEGMENT 


00193000 


224 




CLI 


DESTLNG,0 


DESTINATION LENGTH ZERO? 


00194000 


225 




BE 


MOVESEG 


YES 


00195000 


226 




MVC 


C(8,R5),DEST 


PUT DESTINATION IN SEGMENT 


00196000 


227 




AH 


R5,DESTL 


UPDATE TEXT POINTER 


00197000 


228 




LA 


R5,1(,R5) 


INSURE 1 BLANK AFTER DESTINATION 


00198000 


229 


MOVESEG 


EQU 


* 




00199000 


230 




BCTR 


R6,0 


REDUCE LENGTH FOR MOVE 


0G20G00G 


231 




EX 


R6,M0VE 


MOVE SEGMENT TO FRONT OF BUFFER 


00201000 


232 




LA 


R6,1(,R6) 


RE-ADJUST LENGTH 


0C202000 


233 




CLI 


DESTLNG,0 


DESTINATION LENGTH ZERO? 


00203000 


234 




BE 


TESTM0D4 


YES 


OC204000 


235 




LA 


R6,1(,R6) 


ADD 1 FOR BLANK AFTER TRAN CODE 


002G5000 


236 




AH 


R6,DESTL 


ADD DEST LENGTH TO DATA LENGTH 


0C2C6C00 


237 


TESTM0D4 


EQU 


* 




00207000 


238 




TM 


CTBFEAT,CTBFM0D4 


2980-4? 


002C8000 


239 




BZ 


RETURN 


NO 


00209000 


240 




BAL 


R4,FINDCNT 


FIND INPUT ING CNT 


00210G00 


241 




B 


RETURN 


AND RETURN 


00211000 


243 


RESEND 


EQU 


* 




00213000 


244 




CH 


R6,=H'8' 


VALID MESSAGE LENGTH? 


00214000 
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PAGE 



STMT 



SOURCE STATEMENT 



F150CT70 



1/14/72 



245 




BNE 


SETSCAN1 


246 




CLC 


RESENDSU,0(R14) 


247 




BNE 


SETSCAN1 


248 




3AL 


R4, FINOCNT 


249 




L 


R4,4(,R13) 


250 




ST 


R10,6G< tR4) 


251 




LA 


R15,4 


252 




B 


ZEROLNG 


254 


FINOCNT 


EQU 


* 


255 




L 


R2,SCDCNT 


256 




LH 


R10,CTBCNTP 


257 




LR 


R3,R1C 


258 




AR 


R3.R2 


259 


NEXTCNT 


EQU 


4c 


26G 




AR 


R10,R2 


261 




CLC 


TELLERID(i),CNT 


262 




BE 


CNTFOUND 


263 




LH 


R10.CNTCNTP 


264 




LTk 


RIO, RIO 


265 




BNM 


NEXTCNT 


266 


CNTRET 


EQU 


* 


267 




LR 


R10,R3 


268 




BR 


R4 



NO 

RESEND REQUEST? 

NO 

GET CNT ADDRESS 

GET CALLER'S SAVE AREA ADDRESS 

STORE CNT ADDRESS IN CALLERS RIO 

SET RETURN CODE 

ZERO DATA LENGTH AND RETURN 



GET CNT BASE 

OFFSET TO 1ST CNT ON CTB 

SAVE ADDRESS OF 1ST CNT 

ADDRESS OF NEXT CNT 

NAME MATCH TELLER ID? 

YES 

OFFSET OF NEXT CNT IN CHAIN 

LAST CNT? 

NO 

USE 1ST CNT IN CHAIN 
RETURN 



G0215C00 
00216000 
00217000 
00218000 
0C21900G 
00220000 
00221000 
00222000 

OC 224000 
00225000 
00226000 
00227000 
0C228C00 
00229000 
00230000 
00231000 
00232000 
00233000 
0G234000 
00235000 
00236000 
00237000 
00238000 



270 CNTFOUND EQU 

271 CR 

272 BE 

273 XC 

274 XC 

275 XC 

276 BR 



* 00240000 

R10.R3 1ST CNT? 00241000 

CNTRET YES 00242000 

CNTCNTP-CNT(2,R3),CNTCNTP-CNT(R10) SWAP 0C243000 

CNTCNTP-CNT<2,R10),CNTCNTP-CNT(R3) CNT CHAIN 00244000 

CNTCNTP-CNT(2,R3),CNTCNTP-CNT(R10) POINTERS 00245000 

R4 AND RETURN 00246000 
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STMT 



SOURCE STATEMENT 



F150CT70 



1/14/72 



278 *** 

279 * 

280 *** 



CONSTANTS, DSECTS, AND EQUATES 



*** 00248000 

* 00249C00 

*** 00250000 



282 DESTL 

283 DEST 

284 STATUS 

285 TABLE1 
286 

287 
288 
289 
290 
291 TABLE2 



DC 

DS 

DC 

DC 

ORG 

DC 

ORG 

DC 

ORG 

DC 



292 RESENDSQ DC 



H»0' 

CL8 

X«F9F900G0« 

256XL1'0G I 

TABLE1+65 

X«41» 

TABLE1+89 

X'59 1 

192XL1 , FF» ,64XL1»00' 
C'S&RESEND ' 



00252000 
0025300C 
00254000 
00255C00 
OC 256000 
00257000 
00258000 
00259G0O 
CC26G00G 
0G261GOQ 
00262000 



294 SCAN1 TRT (0 ,R14» ,TABLE1 

295 SCAN2 TRT 0(0, R4) ,TABLE2 

296 MOVE MVC (0 ,R5 ) ,0( R14) 



0C264C0G 
00265000 
C0266000 



298 DESTLNG EQU 

299 PASSBOOK EQU 

300 TELLERID EQU 

301 PERIUD EQU 

302 COMMA EQU 

303 CTBFM0D4 EQU 

304 CTBFM0D2 EQU 



DESTL+1 

STATUS+2 

STATUS+3 

X'4B' 

X«6B' 

X«02' 

X»G1» 



305 CTBA1SEG EQU X»02» 



CTBFEAT SETTING IDENTIFING A 298C-4 
CTBFEAT SETTING IDENTIFING A 2980-2 
TO BE REMOVED 



00268C00 
0C269GC0 
00270GG0 
002 71 COO 
0O272G0O 
GG273G00 
00274000 
00275000 



307 
308 
309 
310 
311 



LTORG 



= H«1C» 
= H'8« 

= H»7» 



00277000 
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PAGE 8 

STMT SOURCE STATEMENT F150CT70 1/14/72 

313 ICLI CLBBASE=O.CTBBASE=O.CNTBASE=0 00279000 

PAGE 15 

STMT SOURCE STATEMENT F150CT70 1/14/72 

594 PRINT NOGEN 00280000 

595 ISCO SCOBASE=0 00281000 

942 *,**♦♦♦*********♦************************************* 

943 *,* IMS/360 SYSTEM 

944 *,* VERSION 2 RELEASE 1 MOD LEVEL 1 * 

945 *,**♦*******************************#***************** 

947 END 002820C0 
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CHAPTER 6. IMS/360 SAMPLE PROBLEM 



The IMS/360 basic distribution tape contains two data sets, 
IMS2.GENLIB and IMS2.L0AD. These data sets are unloaded versions of 
direct access partitioned data set libraries as produced by the 
operating system utility program IEHMOVE. Contained in these libraries 
are the program modules and macro-definitions which comprise the sample 
application. 

A series of steps are involved in the creation of the sample 
application environment. Detailed background information regarding 
these steps is available from the references shown below: 



• Copying the distribution libraries 
to direct access storage devices 

• Performing a system definition 
and related functions 



SPRM * Chapter 2 



SPRM * Chapter 3 



• Performing a data base 
description (DBDGEN) 

• Performing a program specification 
block generation (PSBGEN) 

• Performing an application control 
blocks utility execution (ACBGEN) 

• Moving sample problem programs 
and control blocks 



OTRM ** Chapter 2 



UTRM ** Chapter 3 



DTRM ** Chapter 3A 



SPRM * Chapter 6 



• Executing a print of the data 
base in a batch environment 



SPRM *** Chapter 6 



• Executing a data base load in 
the batch environment 



Orm *** Chapter 6 



Initializing the system in an online 
environment. Executing the online 
application program from user terminals. 



ORM *** Chapter 6 



* This Manual 

** IMS/360 Utilities Reference Manual 

*** IMS/360 Operator's Reference Manual 

Before proceeding with the instructions for setting up the sample 
application, a description of the application and its data bases is 
appropriate. 

DESCR IPTION OF SAMPLE PROBLEM 

The application included within the sample problem is taken from 
the manufacturing industry. This application in its full sense includes 
the creation, usage, and maintenance of the logical data bases 
associated with the product data systems. This product data can be 
contained in three subject data bases. The product data is either 
related to engineering drawings, part numbers, or systems eguipment 
structure. There are three logical data bases, each organized under 
one of the above subjects. 
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To facilitate the implementation of these three logical data bases 
(see Figured) ? lnt ° ^^ ^ baSSS ° f f ive iat * set groups ' 



LOGICAL DATA BASES 



PHYSICAL DATA BASES 



PARTS 



DRAWINGS 



END 
ITEMS 




2 DATA SET 
GROUPS 



2 DATA SET 
> GROUPS 



1 DATA SET 
GROUP 



Figure 11. Logical and physical data' bases 

Each of the five physical data bases and the segments contained 
within these data bases is described in Figures 12, 13, and 14. 
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PART MASTER 

n ~ 



DATA SET GROUP 1 



STANDARD DATA 



DRAWING RTF 



STOCK STATUS 
IN INVENTORY 



DRAWING 
CONFIG. 



MIN. /MAX. 



BACK ORDERS 



CYCLE COUNT 



SUSPENDED 
STOCK 







1 








DATA SET 


GROUP 


2 




























WORK ORDER 




RAW MATERIAL 




STANDARDS 












































OPERATION 




STOCK 




DESCRIPTION 


TOOLING 


LOCfl 


XXUrt 




R 


tir.Kv/i 


TJ.UJM 

















Figure 12. Part data base and segment 
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DRAWING/DOCUMENT NUMBER 



STD DATA 



DATA SET GROUP 1 



REVISION LTR 



ADVANCE CHANGE 
NOTICE 



APPROVAL 



DRAWING CONFIG 
CONTROL ITEM 



ACTUAL 
EFFECTIVITY 



EDRS 
SYSTEM 



X 



DATA SET GROUP 2 



PART NUMBER 



CONFIG. - 
OWNER CODE 



REFERENCE/SPEC 



REFERENCE 
DESIGNATOR 



MAPL/EAPL 
I PARTS 
LIST 



Figure 13. Drawing data base 
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END ITEM NUMBER 
































END ITEM DATA 




PART NUMBER 
















' EAP 




EFFECTIVITY 
















ACCOUNT NUMBER 














CONTRACT NUMBER 












SCHEDULES 





MASTER 
SCHEDULE 



Figure 14. End item data base 



The application portion of the IMS/360 sample problem includes the 
implementation of a small subset of this entire application. The data 
base structure of the application in the sample problem includes the 
segments and their structure described in Figure 15. 

This data base subset structure includes: 

• One part number description segment for each part within the data 
base 

• A standard data segment for each part which provides additional 
information of a standard nature about the part 

• Inventory stock status segments for each part. The application 
is designed with multiple inventory locations permissible and 
normally reguired for any particular part. 

• Zero to n cycle count and back-order segments for each inventory 
location of a particular part. 

In addition to the application data base substructure, the sample 
problem includes application programs to: 

1. Create the data base substructure in an IMS/360 batch processing 
region. The input data for part, inventory, cycle count, back 
order, and standard part data to load into the data base 
substructure is provided. 

2. Message processing programs and associated transactions to 
execute in an IMS/360 online control region to: 

a. Inguire about a part and its description 
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b. Inquire about a part»s total inventory in all locations 
or by specific inventory location 

c. Add a new part and its description 

d. Add part inventory information by location to an existing 
part description 

e. Delete part inventory information by location 

f. Delete a part after deletion of all its subordinate part 
inventory information 

g. Close a part order to increase the part inventory at a 
specific location 

h. Disburse a specific quantity of a particular part on a 

planned or unplanned basis at a particular part inventory 
location, thereby reducing inventory. 





PART MASTER 




























STANDARD 
DATA 




STOCK STATUS 
IN INVENTORY 
































CYCLE COUNT 




BACK ORDERS 



Figure 15. Sample problem application data base 

The foregoing describes the application aspects of the sample 
problem. 

Figure 16 interrelates the sample problem transactions, programs, 
and data bases. 
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Inquire on 
Part Descr. 



Display 
Inventory 
of a Part at 
all Locations 



Decrease a 
Part's Inventory 



Add Part 
Inventory 
Location 




Display 
Inventory 
Status of a 
Part Location 



Increase a 

Part's 

Inventory 



A DDPAj2- 

Add New Part 
to Data Base 



Delete Part 
from Data Base 



Part Descr. 
Program 



Single Location 

Inventory 

Program 



All Location 

Inventory 

Program 



Increase a 
Part's Inventory 
Program 



Decrease a Part's 

Inventory 

Program 



Add/Delete 
Part and 
Inventory 
Location 
Program 




DATA BASE HIERARCHICAL STRUCTURE 



PART 
MASTER 



STANDARD 
DATA 



STOCK STATUS 
IN INVENTORY 



CYCLE 
COUNT 



BACK 
ORDERS 



TRANSACTIONS 



PROGRAMS 



Figure 16. Sample problem transactions, programs, and data bases 



CREATING SAMPLE PROBLEM E NVIR ONMENT 

As outlined in the introduction to this chapter, a series of steps 
must be performed to create the sample problem environment. The 
remainder of this chapter describes these in detail or provides 
references for the required steps. 

COPYING IMS/360 DISTRIBUTION LIBRARIES 

Figure 17 is an example of the JCL necessary for the allocation 
and cataloging of the data sets required for IMS/360 system definition 
and execution. 

The tape move described in Chapter 2 of this manual should move 
the data sets into libraries created by the JCL example. 
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PERFORMING AN IMS/360 SYSTEM DEFINITION 

Prior to performing Stages 1 and 2 of IMS/360 system definition, 
certain data sets must be allocated and cataloged. Figure 17 is an 
example of the JCL required to. allocate and catalog the data sets 
required by the sample problem. Space requirements should be adjusted 
if devices other than 2311 are to be used. 

If a batch-only execution is planned, the message queue data sets 
need not be allocated. 
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//ALLOCATE JOB 1,IHS,HSGCLASS=A,HSGLEVEL= 1,PRTY=12 

// EXEC PGH=IEHPROGH 

//TWO DD VOL=SER=222222,UHIT=2311,DISP=OLD 

//THR DD VOL=SER=333333,UHIT=2311,DISP=OLD 

//ILIB01 DD VOL=SER=ILIB01,UHIT=2311,DISP=OLD 

//ILIB02 DD VOL=SER=ILIB02,UHIT=2311,DISP=OLD 

//SYSPRIHT DD SYSOOT=A 

//SYSIN DD *,DCB=BLKSIZE=80 
SCRATCH VTOC,VOL=231 1=222222, PURGE 
SCRATCH YTOC,VOL=231 1=333333, PURGE 
SCRATCH VTOC,VOL=2311=ILIB01, PURGE 
SCRATCH VTOC,VOL=2311,ILIB02, PURGE 

//LIBRARYS EXEC PGH=IEHPRQGH 

//SYSPRINT DD SYSOUT=A 

//SIDC01 DD UHIT=2311,VOL=SER=SIDC01,DISP=OLD 

//OBJDSET DD DSH=IHS2.0BJDSET,UHIT=231 1, VOL=SER=222222,DISP=(, KEEP) , 

// SPACE=(CYL, (1,1,1)) 

//CATALOG DD DSH=SYSCTLG, UHIT=231 1, VOL=SER=ILIB02, DISP= (,KEEP) , 

// SPACE=(TRK, (2, 1) ) 

//RESLIB DD DSH=IHS2.RESLIB,UHIT=2311,VOL=SER=ILIB02,DISP=(,KEEP) , 

// SPACE=(CYL, (40,5,20)) ,DCB=SYS1 .LIHKLIB 

//HACLIB DD DSH=IHS2. HACLIB, UHIT=23 1 1 ,VOL=SER=ILIB01, DISP= (,KEEP) , 

// SPACE=(CYL, (30,5,15)) ,DCB=SYS1. HACLIB 

//PGHLIB DD DSH=IHS2. PGHLIB, UHIT=2311,VOL=SER=ILIB01,DISP=(, KEEP) , 

// SPACE=(CYL, (10, 2,10)), DCB=SYS1. LIHKLIB 

//PSBLIB DD DSH=IHS2.PSBLIB,UHIT=2311,VOL=SER=ILIB02,DISP=(,KEEP) , 

// SPACE=(CYL, (10,2,5)) ,DCB=SYS1. LIHKLIB 

//DBDLIB DD DSH=IHS2.DBDLIB,UHIT=231 1 , VOL=SER=ILIB02, DISP= (,KEEP) , 

// SPACE=(CYL, (10,2,5)) ,DCB=SYS1. LIHKLIB 

//IHSACB DD DSH=IHS2.ACBLIB,UHIT=2311,VOL=SER=ILIB02,DISP=(,KEEP) , 

// SPACE=(CYL, (10, 2,5)), DCB=SYS1. LIHKLIB 

//PROCLIB DD DSH=IHS2. PROCLIB, UHTT= 23 11,7OL=SER=ILIB02,DISP=(, KEEP) , 

// SPACE=(CYL, (1,1,5)) ,DCB=SYS1. PROCLIB 

//QBLKS DD DSH=IHS2. QBLKS, VOL=SER=ILIB0 1 ,DISP=(, KEEP) ,UHIT= 2311, 

// SPACE=(CYL,1) ,DCB=DSORG=PS 

//SHHSG DD DSH=IHS2.SHHSG,VOL=SER=ILIB01,DISP=(,KEEP) ,UHIT=2311, 

// SPACE=(CYL,5) ,DCB=DSORG=PS 

//LGHSG DD DSN=IHS2.LGHSG,VOL=SER=ILIB02,DISP=(,KEEP) ,UHIT=2311, 

// SPACE=(CYL,5) ,DCB=DSORG=PS 

//DBLLOG DD DSH=IHS2. DBLLOG, YOL=SER=SERHUH, DISP= (, KEEP) , 

// UHIT=2311,DCB=DSORG=PS,SPACE= (512,50) 

//SYSIH DD *,DCB=BLKSIZE=80 
RELEASE IHDEX=IHS2 
DLTX IHDEX=IHS2,CVOL=2311=SIDC01 

COHHECT IHDEX=IHS2,CVOL=2311=SIDC01,VOL=2311=ILIB02 
CATLG DSHAHE=IHS2.GEHLIB,VOL=231 1=222222, CVOL=231 1=ILIB02 
CATLG DSHAHE=IHS2. LOAD, VOL=231 1=333333, CVOL=2311=ILIB02 
CATLG DSHAHE=IHS2.RESLIB,VOL=2311=ILIB02,CVOL=2311=ILIB02 
CATLG DSHAHE=IHS2. DBLLOG, VOL=231 1=SERHUH,CVOL=231 1=ILIB02 
CATLG DSHAHE=IHS2.HACLIB,YOL=2311=ILIB01,CYOL=2311=ILIB02 
CATLG DSHAHE=IHS2* PGHLIB, VOL=231 1=ILIB0 1 , CYOL=23 1 1=ILIB02 
CATLG DSHAHE=IHS2.PSBLIB,YOL=2311=ILIB02,CVOL=2311=ILIB02 
CATLG DSHAHE=IHS2.DBDLIB,VOL=231 1=ILIB02,CVOL=231 1=ILIB02 
CATLG DSHAHE=IHS2. ACBLIB,YOL=231 1=ILIB02,CYOL=231 1=ILIB02 
CATLG DSHAHE=IHS2. PROCLIB, VOL=2311=ILIB01,CVOL=2311=ILIB02 
CATLG DSHAHE=IHS2. QBLKS, VOL=23 1 1=ILIB0 1 ,CVOL=23 1 1=ILIB02 
CATLG DSHAHE=IHS2.SHHSG,VOL=2311=ILIB02,CVOL=2311=ILIB02 
CATLG DSHAHE=tHS 2. LGHSG, YOL*23 1 1=ILIB0 1 , CVOL=23 1 1=ILIB02 
CATLG DSHAHE=IHS2.0BJDSET,VOL=231 1=222222, CYOL=2311=ILIB02 



Figure 17. Example of allocation and cataloging 

After having completed the allocation of required data sets. Stage 
1 of IHS/360 system definition is performed, figure 18 describes the 
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control cards needed as input to system definition for an online system. 
The TRANSACT, PROGRAM, and DATABASE cards describe the resources of 
the application sample. For the sake of simplicity, only one 
telecommunications line group, one line, and one physical terminal 
(27t|0) are described. Two logical terminals, the MASTER and one named 
HOWARD, are described. Logical terminal HOWARD is used by the 
application as a destination for exception messages. 

If the user of the sample problem desires to perform the sample 
problem by means of a 2260 Display Station, it must be included in 
his Stage 1 system definition. The user must follow the rules of" 
Chapter 3 of this manual for system definition and modify the Figure 
18 control cards accordingly. 

WAR NIN G; IHS/360 does not support the 2260 Display Station as a 
master terminal. Prior to Stage 1 of IMS/360 system definition, 
IMS2.GENLIB and IMS2.LOAD must be cataloged. Those parameters in the 
system definition control cards which are und erlin ed can be redefined 
by the IMS/360 user to meet the reguirements of his data processing 
environment with no effect on the application. 

If a batch-only execution is planned, a batch system definition 
as described in Chapter 3 of this manual may be executed. 

If assistance is reguired in making control card changes, refer 
to Chapter 3 of this manual. In particular, the message gueue data 
set DD names and the IMS/360 library names should be reviewed. 

The communication line and terminal operands may be modified as 
reguired to conform to the user's system and the operating system 
specifications. Chapter 3 of this manual provides information on the 
various operands permitted. 

Once Stage 2 of system definition is successfully completed, the 
IMS/360 user must perform the following. 

1. Include the one Type 1 and the one Type 2 IMS/360 SVC interface 
modules in the operating system nucleus. This can be done with 
a relink-edit of the operating system nucleus if available user 
SVC numbers were generated at time of operating system 
generation. If available SVC numbers do not exist, the user 
must perform at least an operating system nucleus-only system 
generation to provide the reguired SVC numbers. In addition, 

a Type 4 SVC number must exist or be made available. The Type 
1 and Type 2 SVC interface modules are placed into IMS 2.RESLIB 
by system definition. The user must link e'dit these modules 
from this library. The Type 1 SVC module has the name IGCXXX, 
and the Type 2 SVC module, IGCYYY. (The Type 1 and 2 SVCs are 
reguired only for an online execution.) 

2. Link edit the OSAM channel end appendage IGG019Z8 or the 
equivalent to SYS1.SVCLIB and link edit the OSAM open modules 
into SYS1.SVCLIB. The names of the Type A SVC modules are 
listed in Chapter 3 of this manual as specified in system 
definition. Both the channel-end appendage and the OSAM Type 
4 SVC modules exist in IMS2.RESLIB after system definition is 
performed. These modules must be link-edited as RENT and RFER. 

3. Allocate and catalog the four sequential data sets used for 
message gueuing in this example. Their data definition statement 
names are IMSDBL, QBLKS, SHMSG, and LGMSG. The associated data 
set names must be IMS2.DBLL0G, IMS2. QBLKS, IMS2. SHMSG, and 

IHS2. LGMSG. Chapter 3 of this manual provides information on 
the allocation of these data sets. 
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//IMSDEF 
//STEP 
//SYSLIB 
//SYSPRINT DD 
//SYSPUNCH DD 
//SYSDT1 DD 
//SYSDT2 DD 
//SYSUT3 

// 

//SYSIN 

IMSCTRL 
IMSCTF 



JOB 1,IMS,MSGLEVEL=1 

EXEC PGM=IEUASM,PARM=«DECK,NOLOAD«,REGION=130K 

DD DSN=IMS2.GENLIB,DISP=SHR 

SYSOOT=A 

SYSODT=B 

UNIT=SYSDA,SPACE= (1700, (500 r 50) ) 

UNIT=SYSDA,SPACE= (1700, (500,50) ) 

UNIT=(SYSDA,SEP=(SYSUT1,SYSOT2) ) , 
SPACE= (1700, (500,50) ) 

DD * 

SYSTEM= (MV1* ALL) , MAXIO=7, M AXREGN=1 
SVCNO= (24 3, 244*245) ,APNDG=Z8, 
CPLOG=500, COR E= (,2000) 



DD 



MSGQOEUE DSETS= (231 1) ,RECNG=Q76, JLQ56) , X 

BUFFERS= (9 , 1056) , SHDTDWN=50 
DATABASE DBD=DI21PART 
APPLCTN PSB=DFSSAM02 

TRANSACT CODE=PART, PRTY= (7,10,2) ,INQDIRY=YES 
APPLCTN PSB=DFSSAM03 

TRANSACT CODE=DSPINV, PRTY= (7,10,2) ,INQUIRY=YES 
APPLCTN PSB=DFSSAH04 

TRANSACT CODE= ADDPART,PRTY= (7 , 10 , 2) , INQUIRY=NO 
TRANSACT CODE=ADDINV,PRTY= (7, 10 ,2) ,INQUIRY=NO 
TRANSACT CODE=DLETPART, PRTY= (7, 10,2) , INQUIRY=NO 
TRANSACT CODE=DLETINV,PRTY= (7, 1 0, 2) ,INQUIRY=NO 
APPLCTN PSB=DFSSAH05 

TRANSACT CODE=CLOSE, PRTY= (7 , 1 0, 2) ,INQDIRY=NO 
APPLCTN PSB=DFSSAH06 

TRANSACT CODE=DISBDRSE,PRTY= (7 , 1 0, 2) ,INQOTRY=NO 
APPLCTN PSB=DFSSAM07 

TRANSACT CODE=DSPALLI,PRTY= (7 , 10 , 2) ,INQUIRY=YES 
LINEGRP DDNAME=DD2740,UNIT=2740 
LINE ADDR=032 
TERMINAL ADDR=E2 
NAME (CTRL, MASTER) 

NAME HOWARD 
IMSGEN ASMPRT=ON,LKPRT=(XREF,LIST) ,OBJDSET=IMS2.0BJDSET,X 

PRTY=8 
END 



Figure 18. Input to system definition 



4. Move the IMS/360 cataloged procedures named IMS (online only) 
and IMSRDR from IMS2.PROCLIB to SYS1 . PROCLIB. The instructions 
for Executing Jobs Using Procedures from IMS2. PROCLIB are in 
Chapter 3 of this manual. 

5. Link edit the IMS/360 region control module from IMS2.RESLIB 
to SYS1.LINKLIB. The name of this module is DFSRRC00 and it 
should be marked (RENT, RFER) in the link edit. 

6. Change the operating system privileged name list module in 
SYS1.LINKLIB to include DFSRRC00. How to perform this operation 
is described in Chapter 3 of this manual. (This is reguired 
only for an online execution.) 

A narrative is provided at the end of the output listing from IMS/360 
system definition Stage 1. This narrative describes the functions 
a system user must perform prior to execution of his IMS/360 system. 
Please read this narrative. 
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PERFORMING A DATA BASE DESCRIPTION (DBDGEN) GENERATION 

Part of the sample problem is the generation of a data base 
description which is used by the sample application. The generation 
process consists of an assembly and linkage edit. A member in 
IMS2.GENLIB titled, DI21PART , contains the source input to generation 
of a DBD. A procedure is placed in IMS2. PROCLIB by system definition 
to perform DBD generation. The following JCL should be used to invoke 
this procedure and use the DBD source input to create the DBD. The 
output of the DBD generation becomes a member in the partitioned data 
set IMS2.DBDLIB. 

//DBD JOB SAMPLE, MSGLEVEL=1 

// EXEC DBDGEN, MBR=DI21PART 

//C.SYSIN DD DSNAME=IMS2.GENLIB(DI21PART) ,DISP=SHR 

The operating system reader used to read this JCL must have access 
to IMS2. PROCLIB. The suggested START command is START IMSRDR, XXX, 
where XXX is the card reader unit address. 

PERFORMING A PROGRAM SPECIFICATION BLOCK GENERATION (PSBGEN) 

An optional part of the sample problem involves generation of a 
program specification block (PSB) . The generation process is called 
PSBGEN. Like DBDGEN, the process consists of an assembly and linkage 
edit. A member of IMS2.GENLIB, named DFSSAPOU, contains the source 
input which will generate the PSB for the online application program 
named DFSSAM04. IMS/360 system definition placed a procedure named 
PSBGEN in IMS2. PROCLIB. The following JCL uses this procedure to place 
the output PSB in the partitioned data set IMS2.PSBLIB as defined in 
the PSBLIB statement of system definition. 

//PSB JOB 1,IMS,MSGLEVEL=1 

//STEP EXEC PSBGEN, MBR=DFSSAMOU 

//C.SYSIN DD DSN=IMS2.GENLIB(DFSSAP04) ,DISP=SHR 

Not e; The input member DFSSAP04 creates an output PSB named DFSSAM04. 

The OS reader used to read this JCL must have access to IMS2. PROCLIB, 
The suggested START command is START IMSRDR, XXX, where XXX is the 
card reader unit address. 

MOVING SAMPLE PROBLEM PROGRAMS AND CONTROL BLOCKS 

The next step in the sample problem is to have the IMS/360 user 
relink edit the remaining PSBs and programs for data base creation 
and message processing from IMS2.L0AD into their respective IMS/360 
libraries (that is, IMS2. PSBLIB and IMS2.PGMLIB) . 

A load module exists within IMS2.L0AD for each PSB and application 
program. The following JCL and link edit control statement are used 
to copy the PSBs from IMS2.L0AD to IMS2. PSBLIB. 

//PSBMOVE JOB 1,IMS,MSGLEVEL=1 

// EXEC PGM=IEWL,REGION=110K, X 

// PARM=»XREF, LIST, LET, NCAL,SIZE=(100K, 7248) ' 

//SYSLIB DD DSNAME=SYS1.C0BLIB,DISP=SHR 

//SYSLIN DD DDNAME=SYSIN 

//SYSLMOD DD DSNAME=IMS2. PSBLIB, DISP=OLD 

//SYSPRINT DD SYSODT=I 

//SYSOBJ DD DSNAME=IMS2.L0AD,DISP=SHR 

//SYSDT1 DD UNIT=23 VI, DISP= (NEW, DELETE) , X 
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// SPACE=(CYL, (10, 1) ,RLSE) 

//SYSIN DD * 

INCLUDE SYS0BJ(DFSSAM11) 

NAME DFSSAM01(R) 

INCLUDE SYSOBJ(DFSSAM12) 

NAME DFSSAM02(R) 

INCLUDE SYS0BJ(DFSSAM13) 

NAME DFSSAM03(R) 

INCLUDE SYSOBJ(DFSSAM15) 

NAME DFSSAM05(R) 

INCLUDE SYSOBJ(DFSSAM16) 

NAME DFSSAM06(R) 

INCLUDE SYS0BJ(DFSSAM17) 

NAME DFSSAM07(R) 

INCLUDE SYSOBJ(DFSSAM18) 

NAME DFSSAMOB(R) 



//SYS LIN DD 
//SYSLMOD DD 
//SYSPRINT DD 



DD 
DD 



If a batch-only execution is desired, only DFSSAM11 and DFSSAM18 
are required. 

The parameters underlined in the JCL statements should be modified 
to conform to the user's system configuration. 

The following JCL and control card statements are used to relink 
edit the application program load modules from IMS2.LOAD to IMS2.PGMLIB, 

//PGMMOVE JOB 1,IMS,MSGLEVEL=1 

// EXEC PGM=IEWL r REGION=110K r X 

// PARM=»XREF, LIST, LET, NCAL,SIZE=(100K, 7248) • 

//SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR 

DDNAME=SYSIN 

DSNAME=IMS2.PGMLIB,DISP=OLD 

SYSOUT=I 

DSNAME=IMS2.LOAD,DISP=SHR 

UNIT=23JM,DISP= (NEW, DELETE) , X 

SPACE=(CYL, (10,1) ,RLSE) 

DD * 

SYSOBJ(DFSSAMOI) 

ENTRY DLITCBL 
DFSSAM01 (R) 

SYSOBJ(DFSSAM02) 

ENTRY DLITCBL 
DFSSAM02(R) 

SYSOBJ(DFSSAM03) 

ENTRY DLITCBL 
DFSSAM03(R) 

SYSOBJ(DFSSAM04) 

ENTRY DLITCBL 
DFSSAM04(R) 

SYSOBJ(DFSSAM05) 

ENTRY DLITCBL 
DFSSAM05(R) 

SYSOBJ(DFSSAM06) 

ENTRY DLITCBL 
DFSSAM06(R) 

SYSOBJ(DFSSAM07) 

ENTRY DLITCBL 
DFSSAM07(R) 

SYSOBJ(DFSSAM08) 

ENTRY DLITCBL 
DFSSAM08(R) 



//SYSOBJ 
//SYSUT1 

// 

//SYSIN 

INCLUDE 

NAME 
INCLUDE 

NAME 
INCLUDE 

NAME 
INCLUDE 

NAME 
INCLUDE 

NAME 
INCLUDE 

NAME 
INCLUDE 

NAME 
INCLUDE 



NAME 

If a batch-only execution is desired, only DFSSAM01 and DFSSAM08 
are required. 
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EXECUTION OF THE APPLICATION CONTROL BLOCKS UTILITY PROGRAM 

After the sample PSBs and DBDs are stored in their respective 
libraries, the IMS2.ACBLIB data set must be created. This is done 
using the Application Control Blocks utility program. A procedure 
is placed in IHS2.PROCLIB at system definition to accomplish this. 
The following JCL will invoke this procedure. The output from this 
execution is placed in the IMS2.ACBLIB data set. 



//BLKS 


JOB 


1,IMS,MSGLEVEL 


//STEP 


EXEC 


ACBGEN 


//G.SYSIN 


DD * 






BUILD 


PSB=ALL 



The OS reader used to read this JCL must have access to IMS2. PROCLIB. 
The suggested START command is "START IMSRDR,XXX", where XXX is the 
card reader unit address. 

EXECUTING AN IMS/360 DATA BASE LOAD IN A BATCH ENVIRONMENT 

IMS/360 system definition has placed into IMS2. PROCLIB a procedure 
to execute the data base load. The input data for the data base load 
execution, which contains the SYSIN for load, is a member of 
IMS2.GENLIB. The name of the member is MFDFSYSN. This procedure 
contains DD statements for the prime and OSAM data sets, the names 
of which are IMS2.DI21PART and IMS2.DI21PAR0 respectively. The 
following JCL statements will invoke the procedure to create the data 
base. 

//DBLOAD JOB 1 ,IMS , MSGLEVEL=1 

//STEP EXEC MFDBLOAD,PSER=333333,PUNIT=2311,OSER=222222,OUNIT=231.1 

The symbolic parameters designate the volume serial" and unit for 
the prime and OSAM data sets. 

The data base must be scratched if a second execution of the MFDBLOAD 
procedure is desired, since this procedure allocates the data base. 

A message is printed on the operating system console when the data 
base load is started and another when the load is completed. 

PRINTING THE SAMPLE DATA BASE IN A BATCH ENVIRONMENT 

IMS/360 system definition has placed into IMS2. PROCLIB a procedure 
to print the sample problem data base. This procedure contains the 
DD cards necessary to read and print the data base. The following 
JCL statements will invoke the procedure to print the data base. 

//DBPRINT JOB 1,MSGLEVEL=1 
//STEP EXEC MFDBDUMP 



6.14 



INITIALIZING IMS/360 IN AN ONLINE ENVIRONMENT 

At this point, the IMS/360 system has been defined for the user's 
environment, the application sample DBD has been created, the PSBs 
and programs have been created, the PSBs and programs have been relink- 
edited to their respective libraries, and the data base has been built. 

We are now ready to execute the IMS/360 telecommunications region 
control program and perform message processing in an IMS/360 message 
region. 

The system user should review the I MS/ 36 Operator's Re ferenc e 
Manujil (SH20-0913) for information concerning IMS/360 cold start. 
The procedure named IMS, which is described in this manual, should 
be used to start the IMS/360 control program. 

After the IMS/360 contrcl program region has been initiated, a 
message is printed on both the operating system system console and 
the IMS/360 master terminal indicating IMS READY. 

At this point, the master terminal operator should enter the restart 
command message 

/NRESTART CHKPT FORMAT ALL 

The FORMAT ALL parameter will cause the IMS/360 message gueues to 
be formatted. Formatting is only reguired at the initial cold start 
or after an I/O error occurs in the gueue data sets. Formatting 
reguires about .75 seconds per 2311 cylinder and 1.5 seconds per 2314 
cylinder. These times are approximately doubled if write-checking 
is included. Immediately upon entry of the cold start command, the 
IMS/360 system responds with a message 

*NRESTART IN PROGRESS 

After completion of the restart, which includes opening the message 
log and message gueue data sets and formatting the message gueue data 
sets, the following message is generated: 

*IMS COLD START COMPLETE, ENTER START COMMANDS 

The system, through the operating system console, will reguest the 
mounting of a standard label, nine-track tape for the system log during 
cold start. 

Although the IMS/360 control program is now available for message 
entry, no message region exists for message processing. This may be 
accomplished by means of the /START REGION command entered from the 
master terminal. 

The /START REGION command causes an operating system reader, which 
will read the JCL packet for a message region into the Operating 
System/360 job gueue, to be started. The JCL packet for the message 
region is obtained from the IMS2.PR0CLIB library. Once the message 
region has been started and communicated with the IMS/360 online control 
region, a message, IMS MESSAGE REGION STARTED, is transmitted to the 
master terminal. Message processing may now begin. 

EXECUTING ONLINE APPLICATIONS FROM USER TERMINALS 

At this point, each transaction code is discussed. Both input and 
output information and format are included in the discussion. Figure 
19, at the end of this discussion, provides a list cf some part number 
records placed into the data base at time of data base load. Those 
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part numbers may be used by the system user to enter transactions. 
The general format of all transactions is transaction code, blank, 
and each transaction operand separated only by a comma from the next 
operand. No blanks should appear between one operand and another. 
Most of the transaction codes have been defined as multiple line 
transactions and will require an EOT or equivalent to complete input. 

The first transaction, PART, allows the terminal operator to inquire 
into the part number data base for information from the part master 
and standard information segments of a particular part number. The 
input format is: 

transaction code part number 

part an960C10 

The output or response format is: 

par t n umbe r d esc riptio n p rocur e me n t co de 



PART=AN960C10 



INV C0DE=2 



DESC=WASHER 



MAKE DEPT= 12-00 



PROC CODE=74 



PLAN REV NUM= MAKE TIME= 63 COMM CODE=14 



The second transaction, DSPALLI, allows the terminal operator to 
display all inventory, cycle count, and back order information for 
a particular part. The input format is: 

transa ction co de part number 

dspalli an960c10 

The output format is: 

part nu mbe r descri ptio n procu remen t code 

PART=AN960C1"0 ; DESC=WASHER ; PROC C0DE=74 
followed by inventory description and detail information 





AREA 


INV. 


PROJ 


DIV 


UNIT 


CURRENT 


ON 


IN 


TOTAL 


COUNT 


BACK 






DEPT 


CD 




PRICE 


REQMTS 


ORDER 


STOCK 


DISBURSE 


TAKEN 


ORDR 


1. 




AA 


165 


11 




146 


20 


126 


104 


N 





2. 




AK 


287 


7F 




88 





88 


37 


N 





3. 


2 


80 


091 


26 




630 





680 


1157 


N 






The third transaction, DSPINV, allows the terminal operator to 
display inventory information at a particular inventory location. 
Assume it is wished to display only the third inventory entry listed 
in the above output. Inventory location key is obtained by 
concatenating AREA, INVDEPT, PROJCD, and DIV. 

The input format for this transaction is: 

transaction code £§rt number inventory item 

dspinv an960c10, 28009126 
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The resultant output is: 



PART=AN960C10 ; 


DESC=NASHER ; PROC CODE=74 


AREA=2; INV DEPT=80; 


PRJ=091; DIV=26; PRICE= .000; STK CT DATE=513; ONIT=EACH 


CURR REQMTS= 630 ; 


ON ORDER= ; TOTAL ST0CK= 680 


DISB PLANNED= 1053 


; DISB DNPLANNED= 10U ; STK CT VARIANCE= 



The fourth transaction, ADDPART, allows the terminal operator to 
add a new part into the data base with its associated description. 

The input format is: 

^E§B§5ctipn cod e part number description, pro c T cod e 

addpart ab960c10, rivet, 7U 

The resultant terminal output is: 



PART NUMBER AB960C10 ADDED TO DATA BASE 



The fifth transaction, ADDINV, allows the terminal operator to add 
inventory information to an existing part in the data base. 

The input format is: 

transaction code part n umbe r i nventor y k e y , 

addinv ab960c10, 8009126 

The resultant output 1st 

INVENTORY 8009126 ADDED TO PART NUMBER AB960C10 | 



If we wished to display the partes inventory information, we could 
enter 

DSPIN7 ab960c1 0,8009126 

The resultant output would be: 



PART=AB960C10 ; DESC=RIVET ; PROC CODE=7ft 

AREA=8; INV DEPT=00; PBJ=912; DIV=6 ; PRICE= «000; STK CT DATE= ; BNIT= 

CORR REQMTS= ; ON ORDER= ; TOTAL STOCK= 

DISB PLANNED= ; DISB DNPLANNED= ; STK CT VARIANCE= 



The sixth transaction code, DLETINV, allows the terminal operator 
to delete a specific inventory item for a specific part. The input 
format is: 

trans actio n code part number invent or y K e y 

dletinv ab960c10, 8009126 

The resultant output is: 



INVENTORY 8009126 DELETED FROM PART NUMBER AB960C10 
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If all the inventory items are deleted, then a particular part 
number may be deleted from the data base with the transaction code 
DLETPART. 

The input format is: 

transaction code £art nu mbe r 

dletpart ab960c10 

The resultant output is: 



PART NUMBER AB960C10 DELETED FROM DATA BASE 



The terminal operator may now wish to close an open order for a 
specific part in a specific inventory item. The transaction to close 
an open order is CLOSE. The input format is: 

guantity 
transaction code part number inventory key receiv ed 

close an960c10 r 28009126, 15, 15 

The resultant output is: 



UPDATE COMPLETE 



The terminal operator may now wish to display inventory item 28009126 
for part AN960C10. The input format is: 

transaction code £art number inventory key 

dspinv an960c10, 28009126 

The resultant output is: 



PART=AN960C10 ; DESC=WASHER ; PROC CODE=7U 




AREA=2; INV DEPT=80; PRJ=091; DIV=26; PRICE= .000; STK CT DATE=513; 


UHIT=EACH 


CUPR REQMTS= 630 ; ON ORDER= 15-; TOTAL STOCK= 695 




DISH PLANNED= 1053 ; DISB UNPLANNED= 104 ; STK CT VARIANCE= 






Notice that the on-order guantity has been reduced by 15 and the 
total stock guantity has been increased by 15 to 695 from the earlier 
display of this inventory information. 

The final transaction code, DISBURSE, allows the terminal user to 
allocate a guantity on a planned or unplanned basis of a given part 
from a given inventory item. The input format is: 

disbursement 
transaction part inventory planned or guantity 
code number key unp lanne d di sburse d 

DISBURSE an960c10, 28009126, u, 10 

The resultant output is: 



UPDATE COMPLETED 
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Tf the terminal operator now wishes to display the inventory 
information for key 28009126 and part number AN960C10, the input would 
be: 

Transaction Part Inventory 
Code Number Key 

dspinv an960c10 r 28009126 

The resultant output is: 



PART= 


=AN960C10 




; DESC= 


=WASHER 




; PROC 


CODE=74 








AREA= 


=2; INV DEPT=80; 


PRJ=091; 


DIV=26; 


PRTCE= 


.000; 


STK CT DATE= 


513; 


UNIT= 


=EACH 


CURR 


*EQMTS= 


630 ; 


ON ORDER= 


15- 


-; TOTAL 


STOCK= 


685 








DISB 


PLANNED= 


1053 


; DTSB UNPLANNED= 


114 


; STK 


CT VARIANCE= 










The user may now terminate the IMS/360 system with a checkpoint command 
such as described below. 

Terminal input: 

/checkpoint purge 

Resultant output: 



CHECKPOINT COMMAND IN PROGRESS 



♦CHKPT ° 9365/1 32 102**IMSDBS**PURGE** 

The following is a list of available part records in the data base 
which the user may employ for message processing. Those parts marked 
with an asterisk have dependent back-order segments. All parts have 
at least one dependent inventory status segment. 



Part Numbers 


Back Order Segments 


AN960C10 




3003806 


♦ 


3007228 




30 13412 




652799 




7438995P002 




7618032P101 


* 


922399-001 




82125-869 





figure 19. Part number records 

A complete listing of the part numbers available on the data base 
nay be obtained by executing the procedure MFDBDUMP as follows: 

//DBDOMP JOB 1, IHS,MSGLEVEL=1 
//STEP EXEC MEDBDUMP 
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APPENDIX JU DATA MEG U AGE/I TEST PROGRAM: DF SDDL TO 



The Data Language/I (DL/I) test program is basically an IMS/3 60 
application program that issues calls to DL/I based upon control card 
information. It also has the facility to compare the results of those 
calls with expected results which are also provided in control cards. 
Its primary purpose is to provide a facility for testing of DL/I by 
the issuance of calls based on control card information and, optionally, 
to compare the results of those calls to anticipated results. 

To a limited extent, this test program may also be used as a general 
purpose data base utility program. However, the control card language 
does not lend itself well to executing large volumes of calls. It is 
useful as a debugging aid, since it has the facility to display DL/I 
control blocks, and provides an easy method of executing any call 
against any data base. 

GENERAL DESCRIPTION 

This test program is intended to be a control card processor. There 
are four different types of control cards: 

• Status cards - establish print options and select processing PCB 

• Comments cards - conditionally or unconditionally print comments 

• Call cards - format the desired DL/I call 

• Compare cards - compare anticipated results with actual results 

The status card is used to establish print options and to select 
which PCB within a PSB will be used. The call to be issued is provided 
in the call card. A compare card is optional and is used to tell the 
program what the results of this call should be in the data base PCB 
and in the user input/output area. Various print and display options 
are available; these are based on whether the results of the call agree 
with the data in the compare card. Comments cards are also optional. 
As the name implies, they are only comments and can be used by the 
programmer at his discretion. As will be seen later, there are two 
types of comments: conditional and unconditional. 

The general seguence of operation is to read call cards until a 
noncontinued call card is detected. The DL/I call is issued based on 
data in the call card(s). The program then reads the next control 
card. If a compare card is read, it compares the contents of the 
compare card with the corresponding field in the PCB, or, if a data 
compare card, with the data in the user input/output area. The 
comments, call, compare, PCB, input/output area, and compare data are 
printed if requested. If any control card other than a compare card 
is read after a call was issued, the results of the prior call are 
printed first and the new control card is then processed. 
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DL/I TEST PROGRAM JCL REQUIREMENTS 



JOB 



This statement initiates the job, 



EXEC This statement specifies the program name or may 

invoke a cataloged procedure. The required format 
is: 

PGM=DFSRRCOO,PARM='AAA,DFSDDLTO,BBBBBBBB, 
CCCCCCCC,DDDDDDDD' 

where AAA is the region type and BBBBBBBB is the 
name of the PSB to be used. Parameters CCCCCCC and 
DDDDDDD are optional and can be used to specify 
symbolic input terminal and output terminal names 
respectively. 



IMS This statement is comprised of two concatenated 
DD data sets. The first DD statement normally defines 
the library containing the PSB to be used by the 
test program. The second DD statement defines the 
library containing the DBD of the data base to be 
processed^ 



database This DD statement (s) references the data base to be 
DD processed. The DDNAME must agree with the DDNAME 
specified in the DBD. 



IEFRDER This statement defines the log data set, if one is 
DD desired. A DD DUMMY statement may be used if a log 
is not required. 



PRINTDD This DD statement defines the output data set 
DD for the test program, including displays of control 
blocks using the SNAP macro. 



SYSUDUMP This statement is optional and is used by the 
DD test program only when normal termination is 
unavailable. 



SYSIN This statement defines the control card input data 
DD set. 
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CONTROL CARD FORMATS 

In the card formats below, the $ indicates those fields which are 
nornally filled in; the absence of the $ indicates that normally the 
field can be left blank and the default value will be accepted. If 
COL 1 is left blank on any control card, the card type defaults to 
the prior card type. 

STATUS CARD FORMAT - establish print options and PCB selection 



ICOL 01 
COL 02 



COL 03 



COL 04 
$COL 05 



COL 06 
COL 07 



COL 08 
$COL 9 



COL 10 
$COL 11 



COL 12 thru 15 
ICOL 16 thru 23= 



$COL 24 



= S identifies this as a status card 
= output device option 
blank - use DD card PRINTDD when in a DLI region; 

use I/O PCB in the MSG region. 
1 - use DD card PRINTDD in MSG region if the DD 

card is provided; otherwise, use I/O PCB. 
A - same as if 1, and disregard all other fields 
in this status card. 
= print comment option 
blank - dc not print 

1 - print always 

2 - print only if compare done and unegual 
= not used 

= print call option 
blank - do not print 

1 - print always 

2 - print only if compare done and unegual 
= not used 

- print compare option 
blank - do not print 

1 - print always 

2 - prin-t only if compare done and unegual 
; blank 

= print PCB option 
blank - do not print 

1 - print always 

2 - print only if compare done and unegual 
= not used 

= print segment option 
blank - do not print 

1 - print always 

2 - print only if compare done and unegual 
= reserved 

=DBD Name 

This must be one of the Data Base PCBs in 
the PSB. This determines which PCB in the PSB to 
issue subseguent calls against. If blank, the 
current PCB will be used. The default PCB is 
the first Data Base PCB in the PSB. 
If DBD name is 7 blanks and non blank, non blank 
is number of which relative data base PCB in the 
PSB to use. 
: print status option 

1 do not use print options in this card 

2 do not print this status card 

3 do not print this status card or use print option 
blank - use print options and print this card. 
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COL 25 thru 28 =PCB processing option - This is optional and 

is only used when two PCBs have the sane DBD name 
but different processing options. If non blank, it 
is used in addition to the DBD name in COL 16 
thru 23 to select which PCB in the PSB to use. 

COL 29 thru 80 =not used 

If no status card is read, default PCB is first data base PCB in 
the PSB and print options are 2: New status cards may occur at any 
point in the SYSIN stream, changing either the data base to be 
referenced or options. 

COMMENTS CABD FORMAT - unconditional or conditional 

Unconditional Comments: 

$COL 01 = identifies this as an unconditional Comments Card 
COL 02 thru 80 is comments - any number of unconditional commments 

are allowed; they are printed when read. Time and date 
are printed with each unconditional Comments card. 

Conditional Comments 

COL 01 = T identifies this as a conditional Comments card 

COl 02 thru 80 is comments - up to 5 conditional Comments, cards per 

call are allowed; no continuation in COL 72 is required. 
Printing is conditioned on the status card. Printing 
is deferred until after the following call and optional 
compare are executed but prints prior to the printing of 
the following call. 



CALL CARD FOBHAT - establish IMS/360 call 



$COL 
COL 
COL 



01 
03 
04 



COL 


05 


thru 


08= 


$C0L 


10 


thru 


13= 


$COL 


16 


thru 


23= 


COL 


24 




=s 


$C0L 


25 




= 


$COL 


26 


thru 


33= 


COL 


34 




= 


$COL 


35 


thru 


36= 


COL 


37 




a 


$COL 


38 


thru 


xx= 


$COL 


XX 


+ 1 


.' ss 


$C0L 


72 




s 



L identifies this as a call card 

SSA level (optional) - see below 

Format options 

if from COL 16 is unformatted; no blanks 

separating fields 

blank for formatted calls with intervening 

blanks in columns 24, 34, and 37 

Number of times to repeat this call (optional) in the 

range of O0C1 thru 9999 

DL/I application program call function 

SSA segment name 

not used 

( if segment is qualified 

SSA field name 

not used 

DL/I call operator or operators 

not used 

Field value 

) end character 

Nonblank if more SSAs 
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This program does no decking for errors in the call; invalid 
functions, segments, fields, operators, or field lengths will not be 
detected by this program, 

COL 03, the SSA level is normally blank, in which case the first 
call card fills SSA 1 and each following call card fills the next lower 
SSA. If the SSA level, CCL 3, is nonfclank, the card fills the SSA 
at that level and the following call card fills the next lower SSA. 

COL 04 can contain a to indicate an alternative format for the 
call card, in which case COL 16 on is the exact SSA with no intervening 
tlanks in columns 24, 34 and 37. 

COL 05 thru Ofi are normally blank, but, if filled, must be right- 
justified with leading zeros. The identical call will be repeated 
equal to the value in 5-8. 

COL 10 thru 13 - the DL/I call function is only required on the 
first SSA of the call. 

COL 16 thru 23 - the segment name is not filled for unqualified 
calls. 

If multiple SSAs in the call, put nonblank in COL 72 of prior call 
card and put next SSA in next card using same format; COL 1 and COL 
10—13 are not required. 

If field value extends past 71, put nonblank in 72 and 'CONT 1 in 
10 through 13 of next card and continue field value starting in COL 
16. Maximum field value is 256 bytes. 

Maximum number of levels for this program is IMS/360 limit of 15. 

On insert or replace calls, data must follow last (noncontinued) 
call card with an L in COL 1, •DATA 1 in COL 10 thru 13, and the segment 
data in 16 thru 71. Data may be continued with a nonblank in 72 and 
data starting in COL 16 of the next card. Maximum length of segments 
is 1500 bytes. Note: On insert calls, last SSA should have segment 
name only with no qualification and may not be continued. 

Since this program is unaware of segment lengths, the length of 
the segment displayed on HEPL or ISRT calls is the number of data cards 
read times 56 (the data portion of the call card, continued to a maximum 
cf 27 cards) . IMS/360 knows the segment characteristics and will use 
the proper length. 
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COL 


04 






= 


COL 


05 


thru 


C6 


a 


COL 


07 






is 


CO I 


08 


thru 


09 


= 


COL 


TO 






g_ 


COL 


11 


thru 


18 


SS 


COL 


19 






■=- 


COL 


20 


thru 


22 


ss 


COL 


23 






ss 


COL 


24 


thru 


XX 


SS 



GdSPARE CARE FORMAT (PCB COMPARE) 

COL 01 = E identifies this as a compare card 

COL 02 =* H indicates hold compare card (see 

below for details) 

blank indicates a reset of the hold 
condition or a single compare card 
COL 03 - Option requested if compare results are unegual 

1 request print of I/O buffers 

2 request SNAP of entire region 

4 request SNAP of DLI blocks 

8 abort this step; go to end of job. 
Multiple functions of the first three 
options may be obtained 
by summing their respective numeric 
values. For example, a value of 5 
is a request for a print of the I/O 
buffers and the BL/I blocks* 

5 SNAP subpools 
not used 
Sagment level 
not used 
Status code 

XX - do not check status code 
OK - allow blank, GA, or GK 
not used 
Segment name 
not used 

Length of feedback key 
not used 
Concatenated key feedback 

COL 72 - Nonblank to continue key feedback 

The compare card is optional and is normally used to do regression 
testing of known data bases or to call for print of blocks or buffer 
pool. 

Any fields left blank are not compared to the corresponding field 
in the PCB. Since a blank is a valid status code, to net compare 
status code put XX in COL 08 and 09. To accept any valid status code, 
(that is blank, GA, or GK) , make status code in COL 8 and 9 = C , OK». 

To execute the same compare after each call, put an H in COL 2. 
This is useful when loading a data base to compare to a blank status 
cede only. Since the compare was done, the current control card type 
is E in COL 1; the next control card read must therefore have its type 
in COL 1 or it will default to E. The hold-compare card will stay 
in effect until another compare card is read. If a new compare card 
is read, two compares will be done for the preceding call, since the 
hold compare and optional printing are done prior to reading the new 
compare card. 

CGMPARE CARD FORMAT (USER I/O AREA COMPARE) 

COL 01 = E identifies this as a compare card 

COL 05 thru 08 = Length of data in card(s) to be compared 

(optional) to a maximum of 27 cards 
COL 10 thru 14 = The character string 'DATA 1 
COL 16 thru XX = Data to be compared with segment in user 

input/output area 
COL 72 = Nonblank to continue data in next card 
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This compare card is optional. Its purpose is to compare the segment 
returned by IMS/360 to the data in this card to verify that the correct 
segment was retrieved. 

The length in COL 5 thru 8 is optional; if present, this length 
will be used in the compare and in the display. If no length is 
specified, the shorter of either the length of data moved to the I/O 
area by IMS/360, or the number of data cards read times 56 is used 
for the length of the compare and display. 

If both a compare data and a compare PCB card are present, the 
compare data card must precede the compare PCB card. 

The conditions for printing the compare data card are the same as 
for printing compare PCB card; COL 7 of the status card is used. The 
same unegual switch is set for either the compare data or PCB. However, 
if ccntrol block displays are reguested for unegual compares, a compare 
PCB card is reguired to reguest these options. 

SPECIAL CONTROL CARD FORMATS 

EUNCH Card 

The PUNCH control card provides the facility for this program to 
produce an output data set consisting of the PCB compare cards, the 
user I/O area compare cards, all other control cards read, or any 
combination of the above. An example of the use of this facility would 
te to code only the call but not the compare cards for a new test. 
Then, after verifying that the calls were executed as anticipated, 
another run would be made where the punch control card is used to cause 
the test program to merge the proper compare cards, based on the results 
of the call, with the call cards read, producing a new output data 
set which would then be used as input for subsequent regression tests. 
If segments in an existing data base were changed, the use of this 
control card could cause a new test data set to be produced with the 
proper compare cards, rather than having to manually change the compare 
cards because of a change in the segments of the test data base. 

The PCB compare cards are produced based on the information in the 
PCB after the call is completed. The data compare cards are produced 
based on the data in the I/O area after the call is completed. All 
input ccntrol cards, other than compare cards, may also be produced 
to provide a new composite test with the new compare cards properly 
merged in. The data set produced may also be seguenced. 

Since the key feedback area of the PCB compare card could be rather 
long, two options are provided for producing these compare cards. 
Either the complete key feedback can be provided or the portion of 
the key feedback which will not fit in one card may be dropped. Forty 
sight bytes of key feedback fit in the first card. 

Producing the full data in the I/O area into the data compare card 
might also be excessive and here the option again is to put it all 
in the data compare cards or put only the first 56 bytes in the first 
card and drop the rest. The test program will only compare the first 
56 bytes if it only receives one data compare card. 
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POUCH CARD FORMAT - produce compare cards 



$COt 0-1 thru 03 - 
$COL 10 thru 14 = 



$COI 16 



CTL - identifies this card type. 

PUNCH - further identifies this card type as 

controlling the punch output data set 

starts keyword parameters controlling the 
various options. These keywords are - 
PCEL - Produce the full PCB compare card. 
PCES - Produce the PCB compare, dropping the 

key feedback if it exceeds one card. 
DATAL - Produce the complete data compare cards, 
DATAS - Produce only one card cf compare data. 
OTHER - Reproduce all control cards except 

fcr^corapare control cards. 
STABT - starting seguence number to be punched 
in CCL 73 through 80. Eight numeric 
characters must follow the START= 
parameter; leading and/or trailing 
zeros are reguired. 
INCB ■.*• Increment to be added to the seguence 
number of each card. Four numeric 
characters must follow the INCR= 
parameter; leading and/or trailing 
zeros are reguired. 



An example of the POUCH control card: is: 
CTL EOHCH PCBL,BATAL,OTHEH r START=0C0000l0,INCR*O0l0 

The DD card for the output data set is called PONCRDD; the data 
Set characteristics are fixed, unblocked, LRECL*80. 

DD Example: 

//POHCHDD DD SYSOOT-B 

Cther control cards: 

COL 01 « WTOR - puts message in remainder of card on 

system console and waits for any reply, 
then continues. 

COL 01 «. uto same as WTOR but does not wait for reply 

COL 01 * ■•■ or N; disregard this card 

COL 01 * a&FND - issue ABEND 252 with the DOMP option 



SPECIAL CALL CARD FORMAT 



$C0L 01 

$COL 05 thru 08 

$COL 10 thru 13 



L identifies this as a call card 

Hunber of times to repeat series of calls 

with a range from 0001 thru 9999 

STAR - Start stacking control cards for 

later execution 
END - Stop stacking control cards and 

begin execution 
STAT - Print the current buffer pool statistics 
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The purpose of this "format is to provide the facility of repeating 
a series of calls which have been read from SYSIN and held in storage. 
All ccntrol cards between the STAR card and the END card are read and 
saved. When the END card is encountered, the series of calls is 
executed as many times as the number punched in COL 5 through 8 of 
the STAK card. This can be used to test exclusive control and 
scheduling ty having two different regions executing stacks of calls 
concurrently. 

FORMAT OF DISPLAY OF DL/I BLOCKS 

The OS SNAP macro is used to display the DL/I blocks. The first 
block in the snap is the first part of module DFSBNOCO. Within this 
first block, the first decimal HO bytes are the PSB directory. 
Following the PSB directory is the PST. The format of the remaining 
blocks displayed by the snaps will vary depending upon whether the 
blocks came from the ACB library or were dynamically built. The fields 
in the PST, such as PSTSCEAD and PSTDBPCB, can be used to locate 
relevant information in the subsequent blocks. 

IXECUTION IN DIFFERENT TYPE REGIONS 

This program is primarily designed to operate in a DLI or BMP type 
legion but can also be executed in a HSG region. The input and output 
devices are dynamically established based on the type of region in 
which the program finds itself executing. In a BMP or DLI region, 
the execute card allows the program name to be different from the PSB 
name. There is therefore no problem with executing calls against any 
data base in a BMP or a DLI region. In a MSG region, the program name 
must be the same as the PSB name so, in order to execute in a MSG 
region, the program must be given the name or an alias of the PSB named 
in the IMS/360 definition. 

When in a DLI region, input is read from SYSIN and output is written 
to PRINTDD. 

When in a BMP region, if a symbolic input terminal was specified 
as the fourth parameter of the execute card, input will be obtained 
from that SMB, and output will be sent to the I/O PCB. The name of 
the I/O PCB may be specified as the fifth parameter of the execute 
card. If no SMB is specified on the execute card, SYSIN is used for 
input and PRINTDD is used for output just as in the DLI region. 

In the MSG region, the I/O PCB is used for both input and output 
unless COL 2 of the status card is either a 1 or an A, in which case 
ERINTDD is used for output if the DD card is present in the JCL for 
that message region. A limit of 50 lines per schedule is sent to the 
I/O PCB and, after that, PRINTDD will be used for output if present; 
if not present, the program terminates. 

Since the input is fixed fcrm, it is difficult to key it from a 
terminal. The technique used by the development group to test DL/I 
in a message region using this program is to first execute another 
message program which, based on the message from the terminal, reads 
ccntrol cards which are stored as a member of a partitioned data set 
and insert the control cards to an SMB. This program is then scheduled 
by IMS/360 to process those transactions. This allows the same control 
cards to b€ used to execute in any region type. 
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HINTS OH USAGE 

1* To load a data base: 

This program is only applicable for loading very small data 
bases, since all the calls and data must be provided to it 
rather than it generating data, it could be used to load large 
volume data bases if the control cards were generated as a 
seguential data set. 

2. To display a data base: 

To display a data base, the following seguence of control cards 
may be used. 

S 1 2 2 2 1 DBDNAHE Display comments and segment 

I GN 00 1 Get Next 

EH8 OK Hold compare, GA, OK, OK, terminate on GB 

L 9999 GN DO 9,999 Get Next calls 

3. To do regression testings 

This program is well suited to regression testing. By using 
a krcwn data base, calls can be issued and the results compared 
to expected results using compare cards. The program then can, 
in effect, determine if DL/I calls are being executed correctly. 
By making the print options of the status card all twos, only 
those calls not satisfied properly will be displayed. 

4. To use as a debugging aid 

When doing debugging work, usually a print of the DL/I blocks 
is reguired. By use cf compare cards, the blocks may be 
displayed at appropriate times. Sometimes the blocks are needed 
even though the call is executed correctly, such as the call 
before the failing call. In those cases, an extra incorrect 
compare card may be inserted. This causes the blocks to be 
displayed even though the call was executed correctly. 

5. To verify how a call is executed 

Since it is easy to execute a particular call, this program 
can be used to verify how a particular call is handled. This 
can be of value when DL/I is suspected of not operating correctly 
in a specific situation. The calls which are suspected can 
be issued using this program and the results examined. 

SAMPLE JCL 

//JCLSAMP JOB ACCOUNTING, NAME, MSGLEVEL=(1 ,1) , MSGCLASS=3 ,PRTY=8 

//GET EXEC PGM=DFSBRCOO,PAHM- , DLI,DFSDDLTO,PSBNAMEE , 

//IMS DD DSN=IMS2.PSBLIB,DISP= (SHE, PASS) 

// DD DSN=IMS2.DBDLIB,DISP= (SHE, PASS) 

//DDCARD DD DSN=DA1ASET ,DISP= (OLD, KEEP) 

//IEFRDER DD DUMMY 

//PRINTDD DD SYS0UT=A 

//SYSUDUMP DD SYS0UT=A 

//SYSIN DD * 

S 1 1 1 1 EBDNAMEE 



A. 10 



SAMPLE CONTROL CABD INPUT 
1. Data base load: 

//SYSIN DD * 

START TEST LOAD 

1 ISRT ROOT SEGMENT AO60000111 
L ISRT A1 11 11 11 

L DATA A0600011 

EH 

1 ISRT ROOT SEGMENT A06C00511 



/* 



ISRT 
DATA 
ISRT 

DATA 



A111111 

A060000511 
A111111 
AA222222 
XAA040511Z 



1069999888 ROOT SEG1 



1069999488 ROOT SEG2 
(A11111H = A060000511) X 



2. 



//SYSIN DD * 
S 1 1 1 1 1 

L GHO 



Data base retrieve and update 

1 



S 1 1 1 1 1 

L ISRT 

L DATA 

S 1 1 1 1 1 

L REPL 

L DATA 



JHNXXX (J11NXXX = A10H1020CO) * 
JM2PABCX (JM2PABCX = DI0HI02A10) 

2 
J11NXXXX (J11NXXXX = A10H02000) C 
JK2PADXX 
A10HDC2000D10HD02A1U 

1 

A10HD0 200DB10HD02A10 
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APPENDIX B. FILE SELECT AND FORMATTING PRINT PROGRAM: DFSERA10 



PROGRAM DESCRIPT ION 

The File Select and Formatting Print Program is provided as a service 
aid to be used with IMS/360 and its related data bases. Its primary 
function is to act as a utility to assist in the examination and display 
of data from the IMS/360 log data set. The program has the ability 
to: 

• Print an entire log data set 

• Print from multiple log data sets based upon control card input 

• Select and print log records on the basis of seguential position 
in the data set 

• Select and print log records based upon data contained within the 
record itself, such as the contents of a time, date, or 
identification field 

These features are selected and controlled by a series of statements 
that allow the user to define the input options and selection ranges 
as well as to specify various field and record selection criteria. 

PROGRAM INPUTS AND OUTPUTS 

All data input is processed using QSAM and may reside on either 
tape or direct access storage devices. Data set organization should 
be physical seguential, while the record format may be fixed or variable 
in length, blocked or unblocked, or of undefined length. Since multiple 
log data sets can be used as input, multiple ddnames may be defined 
or, in the case of only one input, the default ddname of SYSUT1 can 
be used. The data set containing control information must be in card 
image form. 

Parameter cards and related error messages are produced on the 
output print data set in the same format and sequence as they are 
processed. Data output is displayed in both hexadecimal and EBCDIC 
form, 32 bytes per line, with the hexadecimal relative offset value 
preceding each line. 

PROGRAM CONTROL 

The flow of control for the program passes through two major stages: 

Control card processing - where construction of record test 
and selection parameters takes place and control card errors 
are diagnosed 
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Record selection and print processing - where the input data 
is read, analyzed, and compared with the selection parameters 
to determine the applicability of the record for printing 

During the first phase, parameter cards are read and examined, and 
the required test or test series is constructed to create a test group. 
This test group is then used in record selection when control passes 
to the next phase of the program. In the second phase, the input data 
records are read, and disposition is decided by the results of each 
test in the group. When the end of the input data is reached, either 
by an end-of-file condition being encountered or the indicated record 
count being satisfied, program control shifts back to phase one, where 
the next group of tests is constructed. 

CONTR OL STATEMENTS 

Three types of control statements are used to guide the program 
through the described phases. An additional card type can be ur^ed 
to provide titles or comments on the output listings. Operands on 
these cards may be extended to additional cards, to a maximum of nine, 
by placing a nonblank character in column 72 and continuing the operand 
in column 16. 

The CONTROL statement defines the beginning and ending limits of 
the data set to be scanned; it also provides the ddname of the data 
input if the default name of SYS0T1 is not used. Inclusion of this 
card is optional if the default operands are satisfactory. 

The OPTION statement defines the test or series of tests to be 
performed upon the data of the candidate record to determine its 
qualification for selection. One or more tests can be executed on 
each logical record by the appropriate number of OPTION cards, creating 
the logical "OR" function. Records can be analyzed with the logical 
"AND" function by using the multifield test capability of the COND 
operand and the necessary number of OPTION cards, creating a test 
series. The operands COND=H and COND=E are used to denote the beginning 
and ending, respectively, of a series for multifield testing of a 
record. The maximum length of selection parameters that may be specifed 
by the VALUE= operand is 510 bytes. 

The END statement is a delimiter used to separate one group of tests 
(comprised of one or more OPTION statements) , from subsequent groups 
of tests on the next data set. When an END statement is encountered 
in the control input stream, the construction of record selection 
parameters ceases and the processing of input data records starts. 
Proper use of the END statement allows one execution of the utility 
program to perform a varied number of tests on one or more IMS/360 
log data sets. 

The * or Comments statement may be used to include any information 
deemed helpful by the user to identify tests or data and has no effect 
on the utility program. 
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JCL REQUIREMENTS 

The File Select and Formatting Print program executes as a standard 
operating system job and, as such, requires a JOB card as defined by 
the users installation. Additionally, an EXEC and appropiate DD cards 
to define inputs and outputs are required. 



1 '-'" ■ 1 

I EXEC | This statement must be of the format | 
| | PGM=DFSERA10 or may be included in a cataloged | 
( | procedure. I 


| SYSPRINT | This statement describes the output data set | 
| | to contain the formatted print records and | 
| | control messages. It will usually be defined | 
[ | as SYSOUT=A. | 


| SYSIN | This statement describes the input control | 
I | data set. This file must be in card image | 
| | format. | 


I input | These statements define the input data set(s) | 
| data | to be examined to produce the formatted print | 
| DD | records. | 

| | These data sets must be standard labeled files, | 
\ | either direct access or tape. They may be | 
1 1 of any record format (F, FB, V, VB, VBS, or U) , j 
| | as long as they are of DSORG=PS. | 

I | If a file with RECFM=U is used, the DCB BLKSIZE | 
\ | parameter must be specified. These files are | 
I | processed using QSAM. Therefore, any file that j 
1 | QSAM supports can be described as input. | 


| SYSUT1 | This statement defines the default ddname used j 
\ DD j for data input if explicit reference is not j 
I | used. I 
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Paramete r Card Descript ions 
CONTROL Card Format 



1 



10 



CONTROL 



CNTL 



16 



SKIP 



( 2 

= (aa 



aaaj 



167772 15 
, STOP AFT -) bbb 
EOF 
(bbb,E) 



,DDNAME = 



(SYSUTl) 
= {ddnamej 



This card is optional. If not specified, the default values cause 
the SYSUT1 input file to be examined. 



SKIP= 



This keyword is used to define the first record tested, 
prior records are ignored. 



All 



aaa 



If this keyword is not specified, a default value of zero is 
used and causes the first record on the input file to be tested. 



The value specified must be in the range of zero to 999999 and 
cannot have embedded commas. 



ST0PAFT= 



bbb 



This keyword is used to define the last record to be tested. 
When this value has been reached by counting processed records, 
the current group of tests is terminated. 

If this keyword is not specified, a default value of 16777215 
is used. 



The value specified must be in the range of 1 to 99999999 with 
no embedded commas. If the value zero is specified, one record 
will be processed. The word EOF, which denotes end-of-file 
condition, will allow record processing beyond the stated maximum 
of 99999999 records. 



This parameter causes records to be counted for test seguence 
termination only if they satisfy selection criteria. Otherwise, 
all records read (after the SKIP value) will be counted. 



DDNAME= 



This keyword is used to identify the input data set for the 
current group of tests. A corresponding DD statement must be 
supplied. 
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ddname 



If this keyword is not specified, a default of SYSUT1 is used 
and the appropriate DD statement must be supplied. 



This name must be the DDNAME of the input file if the default 
of SYS0T1 is not used. 



OPTION Card Format 

i 



OPTION 



10 



PRINT 



16r 



OFFSET 



= (aaaj 



,VALUE = bbb 



r COND = 



HT 



ET 



,FLDTYP = 



{§} 



, pldleh = \aaaj 



{1} 



This card causes one set of tests to be constructed. One or more 
OPTION statements can be defined for one or more sets of tests to be 
performed against each input record. When all operands of this 
statement are omitted, all records processed by phase two of the program 
are printed. 



PRINT 



This parameter is used to cause records satisfying this test, 
and prior tests in this series if this is a multifield test, 
to be displayed on the SYSPRINT data set. 



OFFSET= 



This keyword is used to define the location of the first byte 
of the field to be tested in the record. Default value is 
position one of the record. 



aaa 



Note: 



This value can be in the range from one up to and including 
the length of the record under test. Maximum value is 32767 
bytes, and no checking is performed to determine if the logical 
record length is exceeded. 

If DSECTs are used to locate values in control records or blocks, 
the user must adjust the starting value for the OFFSET 
parameters. Most DSECTs start with a relative value of ZERO, 
while the value specified in the OFFSET keyword is always 
expressed as relative to byte one. 
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FLDTYP= 



This keyword is used to define the type of data in the 
VALUE=field. 



This parameter defines the data to be treated as hexadecimal 
pairs. The test data will be packed - two bytes into one to 
form hexadecimal equivalents. This is the default value. 

Example: If VALUE=D9D6D6E3E2C5C7 (14 bytes) 

is specified with the FLDTYP=X parameter, then 
the resultant VALOE= will look like this: 
ROOTSEG in EBCDIC or D9D6D6E3E2C5C7 in hexa- 
decimal; in either case, the length is only 
7 bytes. 



This parameter defines the data to be treated as EBCDIC, 
test data will be used as punched in the card, with no 
alterations. 



The 



VALUE= 



bbb 



COND= 



This keyword defines those characters that comprise the test 
field. If FLDTYPE=X was specified, this data must be entered 
as hexadecimal character pairs. For a •Test Under Mask 1 
condition, a single pair must represent the hexadecimal value 
for the test. If FLDTYP=C was specified, this data must be 
entered as EBCDIC characters. If the characters of blank or 
comma are to be included in this operand, FLDTYP=X must be used 
with the appropriate hexadecimal equivalent. 



This value can not exceed 255 EBCDIC or 510 hexadecimal 
characters. The length of this field is determined by the 
FLDLEN= keyword value and not by the number of 'non-null* 
characters in this field. 



This keyword defines the type of test and its relationship to 
other tests in the group. 



This parameter indicates that this is a multifield test. That 
is, more than one test is to be made on each input record. 
All tests in this series must be satisfied before the record 
will be printed. 



This parameter marks the last (or only) element in a test series. 
Any OPTION control statements appearing after this form a new 
series of tests. This allows various tests to be performed 
on each record and each test series can be used upon different 
fields within the record. 
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MT 



ET 



This parameter causes the VALUE= byte to be used as a 'Test 
Under Mask* value, instead of a compare field. Only the first 
byte (two hexadecimal characters if FLDTYP=X) of the VALUE= 
field will be used. If FLDTYP=C is used, the hexadecimal 
equivalent of the EBCDIC character will be the test value. 
If this parameter is used, the FLDLEN= keyword must not be 
specified and a default length of one will be assumed. 



This parameter indicates that for the 'Test Under Mask 1 to be 
considered satisfied, there must be a bit in the record test 
field for each corresponding bit of the test byte. This is 
equivalent to a •Branch if Ones 1 Test. 



This parameter indicates that for the •Test Under Mask* to be 
considered satisfied, there must not be a bit in the record 
test field for any of the corresponding bits of the test byte. 
This is equivalent to a • Branch if Zeros' test. 



This parameter defines a 'Test Under Mask' OPTION as described 
above in the *T' discussion but with the properties of a 
multifield test as described in the ' M* discussion. Since the 
T parameter assumes a default value of one, the MT parameter 
must be used for a multifield test that starts with a •Test 
Under Mask' value. 



This parameter signifies that a multifield test seroes ends 
with a 'Test Under Mask 1 condition. 



FLDLEN= 



ddd 



This keyword defines the number of characters to be used from 
the test field. 



This value represents the actual number of bytes to be used, 
not the number of characters specified in the VALUE= keyword. 
The acceptable range of values for this field is one to and 
including 255. Default value is 1. 
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END Card Format 



r 








i 


M 




|10 


116 


1 


1 
1 


END 


I 

I 


I 
I 


1 
1 


1 








_ ... i 



When all tests have been defined for the current input file, this 
card must be used to cause execution of those tests to begin. 

Any columns of the END card after 9 can be used for comments. 



COMMENTS Card Format 



r 






■ 


H 


| 10 


116 


1 


1* 


I 


I 


1 


1 


I 


I 


1 


i. _ 






j 



This card is optional and, if used r causes its contents 
to be displayed on the SYSPRINT data set. 



Examples 

E xample 1 : Print all records from a data base Image Copy data set 

//EPRT JOB 

//IMAGEX1 EXEC PGM=DFSERA10 

//SYSPRINT DD SYSOOT=A 

//SYSOT1 DD DSN=IMAGE,VOL=SER= 123456, UNIT=2400,LABEL=(,SL) , 

// DISP= (OLD, KEEP) 

//SYSIN DD * 

* THE ABSENCE OF A CONTROL CARD HILL ASSUME SYSDT1 INPUT 

* THIS OPTION CARD WILL CAUSE THE ENTIRE FILE TO BE PRINTED 
OPTION PRINT 

END 
/* 



Examp le 2: Print the first 30 records from an IMS/360 log tape 

//RINT JOB 

//LOGEX1 EXEC PGM=DFSERA10 

//SYSPRINT DD SYSOUT=A 

//LOGTAP1 DD DSN=IMSLOG r VOL=SER=111111,UNIT=2400,LABEL=(,SL) , 

// DISP= (OLD, KEEP) 

//SYSIN DD * 

* THIS CONTROL CARD DEFINES THE INPUT TO BE LOGTAP1 

* AND ONLY THE FIRST 30 RECORDS FROM THE FILE WILL BE USED 
CONTROL CNTL DDNAME=L0GTAP1 ,STOPAFT=30 

OPTION PRINT 

END 

/* 
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Example 3: Extract log records of a type X^O 1 . Only those 

records after record No. 1000 are to be examined. 

//RINT JOB 

//LOGEX2 EXEC PGM=DFSERA10 

//SYSPRINT DD SYSOUT=A 

//LOGTAP1 DD DSN=IMSLOG,UNIT=2400,VOL=SER=111111,LABEL=(,SL) , 

// DISP= (OLD, KEEP) 

//SYSTN DD * 

CONTROL CNTL SKIP= 1000, DDNAME=L0GTAP1 

* THIS OPTION CARD CAUSES ONLY THOSE RECORDS WITH A HEX ^O^ IN 

* RECORD BYTE 5 TO BE PRINTED ON THE SYSPRINT DATA SET. 
OPTION PRINT OFFSET=5,FLDTYP=X,FLDLEN=1,COND=E,VALUE=50 
END 

/* 

Example 4: Print record No. 158 of an OSAM Image Copy data set 

and all type X f 50' records on a log tape that references 
this block number (assuming unblocked OSAM) . 

//PRNT JOB 

//COMBEX1 EXEC PGM=DFSERA10 

//SYSPRINT DD SYSOUT=A 

//IMAGFILE DD DSN=OSAMIMAG, UNIT=SYSDA ,DISP=SHR, VOL=SER=DA0002 

//SYSDT1 DD DSN=IMSLOG,UNIT=SYSDA,VOL=SER=DA0003,DISP=SHR 

//SYSIN DD * 

* THIS CONTROL CARD CAUSES THE INPUT FILE IMAGFILE TO CLOSE 

* AFTER THE FIRST RECORD OF THE SELECTED GROUP IS PRINTED 
CONTROL CNTL STOPAFT= (1 ,E) ,DDNAME=IMAGFILE 

OPTION PRINT FLDEN=4,OFFSET=1,FLDTYP=X,COND=E,VALUE=0000009E 

* THIS END CARD CAUSES THE SELECTION OF THE FILE TO BEGIN. 
END 

* THIS CONTROL DEFAULTS TO THE STANDARD INPUT FILE, SYSUT1 
CONTROL CNTL 

* THIS CARD LIMITS THE SELECTION TO ONLY THOSE RECORDS 

* THAT CONTAIN A HEX 'SO 1 IN RECORD BYTE 5 

OPTION PRINT FLDLEN=1,OFFSET=5,FLDTYP=X,COND=M,VALUE=50 

* THIS CARD FURTHER LIMITS SELECTION TO ONLY THOSE RECORDS THAT 

* CONTAIN THE DATA BASE NAME OF DATABAS1 IN RECORD BYTES 25 THRU 32 
OPTION PRINT FLDTYP=FLDTYP=C,FLDLEN=8,0FFSET=25,C0ND=M,VALUE=DATABAS1 

* THIS CARD FURTHER LIMITS SELECTION TO ONLY THOSE RECORDS THAT 

* CONTAIN THE FLAG MARKING THIS RECORD AS AN OSAM RECORD 
OPTION PRINT FLDTYP=X,OFFSET=7,COND=MTN r VALUE=04 

* THIS CARD FURTHER LIMITS SELECTION TO ONLY THOSE RECORDS THAT 

* CONTAIN THE RBN OF 0000009E 

OPTION PRINT FLDLEN=U,OFFSET=U3,COND=E,VALUE=0000009E,FLDTYP=X 

* THIS CARD CAUSES THE SELECTION OF RECORDS TO BEGIN 
END 

/* 
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INDEX 



This index was prepared using an automated indexing program 
which is under continuing development. Your comments and 
suggestions will be appreciated. 



■ICS GN' 5.1 

•ICS' 5.1 

•ICS', MULTI SEGMENT TRANSACTION NAMED 5.1 

ABEND, SYSTEM 0C1 5.97 

ABSENCE A. 3 

ABSENCE OF A CONTROL CARD B. 8 

ABSENCE OF A PASSBOOK 5.123 

AC1 2.10 

ACB UTILITY PROGRAM FSUACBO 3.111 

ACB3EN 6.1,6.11 

ACCESS 3.11,3.29,3.81,3.106,1.1,5.100,6.12,6.11 

ACCESS DEVICES IMSWTNNN 3.98 

ACCESS METHOD CALLED HDAH REQUIRES 5.100 

ACCESS PARTITIONED DATA SETS 2.1 

ACCESS STORAGE 2.1,2.3,2.5-2.6 

ACCESS STORAGE DEVICES B. 1 

ACCESS VOLUMES 1.10 

ACCESS, DRUM 3. 2 

ACCESS, PROVIDE 5.11 

ACCOUNTING DATA, LENGTH OF THE 3.20 

ACCOUNTING, JCLSAMP JOB A. 10 

ACCOUNTING, TIME 3.1 

ACCT 5. 1 

ACCT NBR NOT NEED 3.113 

ACKNOWLEDGMENT, POSITIVE 5.11-5.15 

ACKNOWLEDGMENT, 759 5.16 

ACTIVITY 3.15,5.22,5.97 

ADDED BACK 5.119 

ADDINV 6.12,6.17 

ADDITION OF •♦IMS* 1 5.21 

ADDITION, NO 5.117 

ADDITIONAL 3.16,3.73 

ADDITIONAL COMMANDS 1.1 

ADDITIONAL MOVE/COPY 2.1,2.3,2.5 

ADDITIONAL PROCESS 3.81 

ADDPART 6.12,6.17 

ADDPART, PROC.CODE 6.17 

ADDR 3. 35-3. 3B, 3. 10, 3. 11,3.16,3.52,3.51, 

3.53-3.51,6.12 
ADDR LOAD MODULE DMBDASZE, EP OF 5.102 
ADDR, A27U02 TERMINAL 3.53 
ADDR, B27102 TERMINAL 3.53 
ADDR, PCH2 TERMINAL 3.51 
ADDR, SECOND 3.11 
ADDR, 027 TERMINAL 3.53 
ADDR, 030 TERMINAL 3. 51 
ADDR, 2260A TERMINAL 3.53 
ADDR, 2260C TERMINAL 3.53 
ADDRESS CONVERSION 5.102 

ADDRESS OF FIRST BYTE OF KEY FIELD VALUE 5.102 
ADDRESS OF RANDOMIZING MODULE, ENTRY POINT 5.102 
ADDRESS OF THE COMMUNICATION LINE 3.36 
ADDRESS OF THE FIRST BYTE OF THE USER I/O AREA 5.103 
ADDRESS OF THE SCD 5.97 
ADDRESS OF THE 2972 CONTROL UNIT, 

TWO-DIGIT HEXADECIMAL 3.38 
ADDRESS OF THE 3271 , TWO-DIGIT HEXADECIMAL 3. 38 
ADDRESS REGISTERS 5.121 
ADDRESS VALIDITY CHECKING 3.110 
ADDRESS VALUE 3.36 



APPENDAGE, COMPLETE 3.13 

APPENDAGE, OSAM CHANNEL END 3. 85 

APPENDAGE, OSAM CHANNEL-END 3.3 

APPENDAGE, SYS1.SVCLIB CHANNEL-END 3.68 

APPENDAGE, 7770 3.13 

APPENDAGE, 7770-3 CHANNEL/ABNORMAL END 3.86 

APPENDED 5.15 

APPLCTN 3.7,3.12,3.21-3.25,3.27 

APPLCTN MACRO-INSTRUCTION DESCRIBES 3.21 

APPLCTN MACRO-INSTRUCTIONS 3.8 

APPLCTN STATEMENTS C, NUMBER OF 3.58 

APPLCTN STATEMENTS, MAXIMUM NUMBER OF 3.59 

APPLCTN, DI21PART 6.12 

APPLCTN, NO 6.12 

APPLCTN, YES 6.12 

APPLICABLE SCREEN SIZES 3.17 

APPLICATION 3.3-3.1,3.7,3.15,3.82,3.96,6.1,6.5,6.10 

APPLICATION ANALYST 1.1 

APPLICATION DESCRIPTION 3.67,6.1 

APPLICATION DESCRIPTION MACRO-INSTRUCTION 3.7 

APPLICATION PROGRAM CALL 3.100,3.107,3.110 

APPLICATION PROGRAM NAME 3.100,3.106 

APPLICATION PROGRAM PCB SIZES 3.111 

APPLICATION PROGRAM RESPONSE 3.15 

APPLICATION PROGRAM SCHEDULING ALGORITHM 3.26 

APPLICATION PROGRAM SIZE 3.1 

APPLICATION PROGRAM USES OVERLAY DESIGN 3.25 

APPLICATION PROGRAM, TERMINATION OF AN 5.100 

APPLICATION PROGRAMMER 1 . 1 

APPLICATION PROGRAMMING REFERENCE MANUAL 1.1 

APPLICATION PROGRAMS CONCURRENTLY 3.2 

APPLICATION PROGRAMS SIXTEEN DATA BASES 3.120 

APPLICATION PROGRAMS, DESIGN OF THE 1.1 

APPLICATION PROGRAMS, NUMBER OF 3.1-3.2 

APPLICATION PROGRAMS, 255 NUMBER OF 3.61 

APPLICATION PROGRAMS, 150 NUMBER OF 3.63 

APPLICATION SAMPLE DBD 6.15 

APPLICATION SPECIFICATIONS 3.121 

APPLICATION SYSTEM DATA BASES 3.82 

APPLICATION, DATA BASE STRUCTURE OF THE 6.5 

APPLICATION, ENTIRE 6.5 

APPLICATION, NAMES 3.7 

APPLICATION, RESOURCES OF THE 6.10 

APPLICATION, SAMPLE 6.1,6.13 

APPLICATIONS, IQF 3.29 

APPLICATIONS, ONLINE 6.15 

APPROPRIATE ACTION TAKEN 5.117 

APPROPRIATE ANCHOR 5.101 

APPROPRIATE RESPONSES 1.3 

AREA 3.110,5.20-5.21,5.12,5.61,5.85,5.91, 

5.97,5.110-5.102,5.101,5.121 
AREA CHAIN FIELDS 5.61,5.85,5.91 

AREA OF THE PCB COMPARE CARD A. 7 

AREA, CONCATENATING 6.16 

AREA, CONTROL PROGRAM WORKING 3.105 

AREA, DETAIL INFORMATION 6.16 

AREA, DSECT DESCRIBES THIS WORK 5.97 

AREA, I/O 5.97,7 

AREA, I/O BUFFER 5.11 

AREA, LENGTH OF THE 5.121 



ADDRESS, AREA 5.12,5.61,5.85,5.91,5.121 

ADDRESS, CNT 5.121 

ADDRESS, CONTROL UNIT 3.11 

ADDRESS, CTLUNIT .SPECIFIES CONTROL UNIT 3.38 

ADDRESS, DRUM 5.92 

ADDRESS, ENTRY POINT 5.3,5.12 

ADDRESS, FULLWORD ALIGNED 5.97 

ADDRESS, PARTITION SPECIFICATION TABLE 5.102 

ADDRESS, RELATIVE TERMINAL 5.12 

ADDRESS, RETURN 5.3 

ADDRESS, SAVE AREA 5.3,5.12,5.102 

ADDRESS, SCDDBFPL FULLWORD 5.97 

ADDRESS, VALID 2972 CONTROL UNIT 3.38 

ADDRESS, 2815 3.11 

ADDRESSES, LINE 3.36 

ADDRESSES, 21 UNIQUE 3.11 

ADDRESSING, WRITE LINE 3.38,3.17 

ALGORITHM LOAD MODULE DMBDAKL, NAME OF ADDR 5.102 

ALIAS 3.88 

ALIAS NAME LINKEDIT 3.88 

ALL MACRO-INSTRUCTION POSITIONAL 3.6 

ALL, NRESTART CHKPT FORMAT 6.15 

ALLOCATE 2.10,3.17,3.69,3.81,6.8,6.10,6.18 

ALLOCATE ONE CYLINDER 3.69 

ALLOCATION 3.2,3.5 7-3.68,3.76,3.78,6.7,6.11 

ALLOCATION GUIDELINES 3.69 

ALLOCATION MUST INCLUDE SPACE 3.71 

ALLOCATION, EXAMPLE OF 6.9 

ALLOCATION, INITIAL MINIMUM 3.73 

ALLOCATION, PRIMARY 3.69 

ALLOCATION, SECONDARY 3.72 

ALLOCATION, SPACE 3.69,3.72 

ALLOCATION, SYSTEM JOB STREAM CONTAIN 3.98 

ALLOCATION, TIME OF 3.67 

ALLOCATION, 20 MESSAGE QUEUE SPACE 3.72 

ALLOWABLE 3. 27 

ALPHAMERIC CHARACTERS 1.3,5.61 

ALPHAMERICS 3.33 

ALTERNATE 3.85 

ALTERNATE APPROACH 3.81 

ANALYSIS, RECOVERY 5.122 

ANALYSIS, RECOVERY SYSTEM LOG 1.3 

ANALYSIS, TRADEOFF 3.2 

ANALYST, SYSTEM 1.1 

ANALYZER 5.8 5-5.86 

ANCHOR 5.101 

ANCHOR POINT 5.103-5.101,5.117 

ANCHOR POINT NUMBER 5.100,5.101,5.117 

ANCHOR POINTER NUMBER WITHIN 5.101 

ANCHOR POINTS/BLOCK DMBDABLK, NUMBER OF ROOT 5.102 

ANSWERS, SUPPLYING 3. 1 

ANTICIPATED RESULTS A.1 

APND3 3.13-3.11,6.12 

APPENDAGE 3.3,3.13,3.78,3.83,3.86,3.89 

APPENDAGE IGG019Z8 6.10 

APPENDAGE MODULE DFSASV10 3.86 

APPENDAGE NAMES 3. 5 

APPENDAGE SUFFIX 3.86 

APPENDAGE, BISAM 3.89 

APPENHAGE, CHANNEL-END 3.86,6.10 



AREA, LINK PACK 3.8 9 

AREA, OPERATING SYSTEM RAM 3.89 

AREA, PARM 3.101 

AREA, WORK 5.98 

AREAS, DEVICE SCRATCHPAD 3.67 

ARGUMENT 5.101 

ARGUMENT KEY FIELD VALUE 5.100 

ASM.SYSIN 3.61 

ASM.SYSLIB 3.61 

ASMFC 3.61,3.66 

ASMFCL 3.87 

ASSEMBLE 2.11,3.75 

ASSEMBLE CCBS 3.75 

ASSEMBLE CLBS 3.75 

ASSEMBLE CVBS 3.75 

ASSEMBLE SCD 3.75 

ASSEMBLE SECONDARY SCD 3.75 

ASSEMBLE SYSTEM CONTROL 3.75 

ASSEMBLE, TWO-STEP 3.96-3.97 

ASSEMBLER 3.3,1.10 

ASSEMBLER F ERROR MESSAGE ' IEU051 3.57 

ASSEMBLER JOB STEPS 3.19 

ASSEMBLER LANGUAGE CHARACTER ET 3.3 

ASSEMBLY LISTINGS 3. 19 

ASSEMBLY OF DFSISDB0 1.1 

ASSEMBLY OF SYSTEM DEFINITION, INSTRUCTION 2.7 

ASSEMBLY PROCESS 2.11 

ASSEMBLY RUN 3.76 

ASSEMBLY, GENERATION PROCESS CONSISTS OF AN 6.12 

ASSEMBLY, INDIVIDUAL FIXES ONLY REQUIRE 2.11 

ASSEMBLY, OPERATIN3 SYSTEM 1.6 

ASSIGN 3.16,1.1 

ASSIGN COMMAND 1.6,5.1 

ASSIGNED 3.25,3.27 

ASSISTANCE 6.10 

ASSOCIATED DATA BASE 5.100 

ASSOCIATED LINEGRP 3.16 

ASSOCIATED PHYSICAL 3. 6 

ASSOCIATED, NECESSARY RANDOMIZING MODULE 5.100 

ASSOCIATES 3.32 

ASSOCIATIONS, PRINT PROCEDURE 3.31 

ASSUME 3.2 

ASSUMED 3.10,3.27,3.52 

ASSUMPTIONS 3.70-3.71,5.92 

ATTACHED, MODEL 2 TERMINALS 3.36 

ATTACHED, PREFIX 5. 21 

ATTACHED, 1050S 3.51 

ATTACHED, 2818 CONTROL UNITS 3.53 

AUTOMATICALLY 2.10-2.11,3.1,3.18,3.17,3.72 

AUTOMATICALLY TERMINATED 3.110 

AUTOPOLL 3.30 

AUTOPOLL, SPECIFYING 3.32 

AOTOSCH 3.11 

AUTOSIGN 3.13 

AVAILABLE AREA, AMOUNT OF 5.86 

AVAILABLE, CAPABILITIES 5.2 

AVAILABLE, LIST OF 6.19 

AVAILABLE, SPACES 3.18,3.52 

BADGE 5.13-5.11 

BADGE READER 5.13 



BALANCE OF THE BLOCK 3.73 

BASE, END ITEM DATA 6.5 

BASE, HDAM DATA 3.23,5.100,5.104 

BASE, PART DATA 6.3 

BASE, SYSTEM DATA 3.116 

BASES, ALL DATA LANGUAGE/I DATA 3.4 

BASES, HIDAM DATA 3.73 

BASES, RELATED DATA B.1 

BASES, SUBJECT DATA 6.1 

BASIC CONCEPTS 1.1 

BASIC DISTRIBUTION TAPE CONTAINS TWO 6.1 

BASIC EDIT SERVICE 5.4 

BASIC INPUT EDIT SERVICE 5.3 

BASIC INTERFACE MODULE DFSVC41 3.85 

BASIC MASTER TERMINAL COMMANDS 1.1 

BASIC ONLINE SYSTEM 4.6 

BASIS 3.28,6.6 

BASIS OF A GIVEN PART 6.18 

BASIS, AS-REQUIRED 3. 1 

BASIS, PERIODIC 2.10 

BATCH 3. 10-3. 11, 3. 24-3.25,3.66,3. 70, 3. 78, 

3.96-3.97,3.116,3.120,5.100 
BATCH ENVIRONMENT 6.1 

BATCH MESSAGE REGION AUTOMATICALLY 3.106 
BATCH MESSAGE REGION STARTS 3.106 
BATCH NUCLEUS 3.21,3.75 
BATCH REGION ENVIRONMENT 2.10 
BATCH SYSTEM 3.12 
BATCH-MESSAGE 3.116 
BATCH- ONLY 2.7 
BATCH, ALL FUNCTIONS 3.91 
BFPLBCMB 5.98-5.99 
BFPLBMVD 5.98-5.99 
BFPLCHBK 5.98-5.99 
BFPLCHWT 5.99 
BFPLEQP 5.98 
BFPLEQP, TRMNATIONS 5.98 
BFPLGTBF, CALLS RECEIVED 5.99 
BFPLGTBF, THROUGH 5.98 
BFPLIGET 5.99 
BFPLIGET, CALLS REC 5.98 
BFPLISTL 5.98 
BFPLRQCT 5.99 
BFPLRQCT EQUALS 5.98 
BFPLRQCT, DQ MACROES 5.98 
BFPLRQCT, FRACTION OF 
BFPLSW1, PL 5.9 8 
BFPLTLCP, WRITE CHAINS 
BFPLTSTL 5.99 
BFPLWERR 5.99 

BINARY 3.3 3,5.42,5.104,5.117,5.119 
BINARY COUNT 5.3,5.2 
BINARY COUNT INCLUDES 5.2 
BINARY ZEROS 5.2 
BINARY, TWO-BYTE 5.3 
BINARY, 31-BIT 5.119 
BISAM 3.89 
BISAM, NO OF 5.98 
BISAM, NUMBER OF 5.99 
BITS OF THE KEY, ADDITIONAL 5.117 



5.98-5.99 
5.98 



BUFFER, IMS/360 MAY REQUIRE CORE 3.2 

BUFFER, LARGEST TERMINAL INPUT 3.37 

BUFFER, SYSTEM-DEFINED 3.72 

BUFFER, 2772 LINE 3.37 

BUFFERS 3.39,3.49,3.53,5.3,5.41-5.42,5.44, 

5.64-5.65,5.86,5.93,5.98 
BUFFERS CONTAINING DATA, NUMBER OF 5.99 
BUFFERS KEYWORD, USE OF THF 3.50 
BUFFERS, NUMBER OF 3.17-3.18,5.98 
BUFFERS, X 6.12 
BUFFS, NUMBER OF 5.98 

BUFNO 3.99-3.100,3.104,3.108,3.112-3.113 
BUFPOOLS 3.15-3.16 

BUFSIZE 3.35-3.38,3.42-3.43,3.4 9,3.52,3.54,3.53 

BUFSIZE, EITHER 3.4 9 

BtJFSIZE, 960 3.39 

BYTE FIVE 5. 20 

BYTE OF TEXT, FIRST 5.124 

BYTE 1-N 5.42 

B2740 LINE 3.53 

CALCULATION 3. 19 

CALL WHICH RELATES 5.101 

CALL, DL/I A. 1 

CALLER 5.64-5.66,5.85-5.86,5.124 
CALLER UP 5.86 
CALLS, GN TYPE 5.103 
CALLS, GU TYPE 5.103 
CALLS, VOLUMES OF A.1 
CAN 3.67,3.72,6.10,9-10 
CANCEL 3.106,5.4 

CANCEL MESSAGE REGION AUTOMATICALLY C 3.110 
CANDIDATES 3.89 
CANDIDATES, ADDITIONAL 3.89 
CAPABILITIES 3.3-3.4,5.41,5.64 
CAPABILITIES, FULL SECURITY 4.1 
CAPABILITIES, RECOVERY 5.85 
CAPABILITIES, SYSTEM 3.1 
CAPABILITY OF CREATING 3.3 
CAPABILITY OF EDITING INPUT MESSAGES 5.2 
CAPABILITY OF THE COND OPERAND, MULTIFIELD TEST I 
CAPABILITY OF THE SYSTEM, OPERATING 3.1 
CAPABILITY, EXPANDED I/O 3.48 
CAPABILITY, PAGING 3.21 
CAPABILITY, QINDEX 3.23 
CARD CHARACTER, END OF 5.44 
CARD FORMATS 5. 44, A. 3, B. 4 
CARD IMAGE B. 3 
CARD IMAGE FORM B.I 
CARD IMAGE FORMAT MAP 3.19 
CARD READER 3.49,3.98,3.104,5.43 
CARD READER LINE 3.73 
CARD READER UNIT ADDRESS 6.12,6.14 
CARD READER, DEVICE ADDRESS OF THE 3.98 
CARD SPECIFICATION 3.4 8 
CARD, ACBLIB DD 3.24 
CARD, ASSOCIATED DD 3.73 
CARD, CALL A. 4 
CARD, COMMENTS A.4,B.8 
CARD, COMPARE A. 6 
CARD, CONTROL B.4 



A. 3 
A.3 



A. 3 



BITS 0-3 5.122 

BITS 4-7 5.122 

BLANK INDICATES A. 6 

BLANK STATUS CODE ONLY A. 6 

BLANK, ALLOW A. 6 

BLANK, CHARACTERS OF A. 6 

BLANK, FIELDS A. 4 

BLANK, FIELDS LEFT A. 6 

BLANK, PRINT CALL OPTION A.3 

BLANK, PRINT COMMENT OPTION 

BLANK, PRINT COMPARE OPTION 

BLANK, PRINT PCB OPTION A.3 

BLANK, PRINT SEGMENT OPTION 

BLANK, USE PRINT OPTION A.3 

BLANKS 11-N 5.42 

BLDL 3.24 

BLDSIZE 4.9 

BLKS 3.103,6.14 

BLKSIZE 3.104,3.106,3.108-3.109,3.111-3.115, 

3.117-3.118,4.9-4.10,4.12,6.9 
BLOCK 3.18,3.73,5.2,5.101,5.104,5.117,9 
BLOCK STARTS 5.20 
BLOCKING 3.73,5.43-5.44 
BLOCKS, COMPOSITE CONTROL 3.10 
BLOCKS, CONTROL 2.6 
BLOCKS, DL/I A. 9 
BMP 3.28,9 
BROADCAST 5. 1 
BROADCAST COMMAND 4.6,5.1 
BTAM AUTOWLST 3.32 
BTAM DECB, CONTENT OF THE 5.20 
BUFEXP 3.35,3.37,3.44,3.47 
BUFFER ALTERATIONS, NUMBER OF 5.98 
BUFFER AREA 5.21,5.42,5.86 

BUFFER EXPANSION, SPECIFICATION OF THE 3.37 
BUFFER HANDLER 5.9 8-5.99 
BUFFER LENGTH 5.42 
BUFFER NQ 5.98 

BUFFER OF THE 2972 CONTROL UNIT 3.52 
BUFFER OF 248 BYTES, MAXIMUM INPUT 3.37 
BUFFER OVERRUN 5.86,5.92 

BUFFER POOL 3.15-3.16,3.104-3.105,5.97-5.99,6 
BUFFER POOL AREA USED DYNAMICALLY 3.15 
BUFFER POOL AREAS, NUMBER OF FRAGMENTED 5.99 
BUFFER POOL BFPLISTL 5.99 
BUFFER POOL BFPLWERT 5.1O0 
BUFFER POOL SIZES 3.16,5.98,5.100 
BUFFER REQUIREMENTS 3.16,3.21 
BUFFER SIZE 3.38,3.53,3.100 
BUFFER SIZE MUST 3.72 
BOFFER SIZE SPECIFIED 3.72 
BUFFER SPACE REQUIREMENT 3.72 
BUFFER, ADDRESS OF A 5.3,5.20,5.42 
BUFFER, AVAILABLE 5.9 2 
BOFFER, BYTES OF THE 5.3 
BUFFER, CONTENTS OF THE 5.44,5.64,5.92 
BUFFER, COUNT OF USABLE 5.85 
BUFFER, CURRENT CONTENTS OF THE 5.92 
BUFFER, FORMAT OF THE 5.124 
BUFFER, FOURTH BYTES OF THE 5.2 



3.60 
3.60 



.20 



B.3 



CARD, END 9 

CARD, EXECUTE 9 

CARD, JOB 3.20-3.21,3 

CARD, NAME 3.85 

CARD, OPTION B. 5 

CARD, PRODUCED EXEC 

CARD, PRODUCED JOB 

CARD, PUNCH A. 7 

CARD, SPECIAL SWITCH 

CARD, STAGE 2 JOB 

CARD, SPECIAL CALL A. 

CARD, STATUS A. 3 

CARD, STAK A. 9 

CARD, SWITCH 5.44 

CARD, SYSLMOD 3.119 

CARDS, APPROPIATE DD 

CARDS, CONTROL 3.121,3.133,3.175,4.1,4.5, 

6. 11, A. 1, A. 3, A. 8- A. 10, B.I 
CARDS, DATABASE 6.10 

CARDS, DESIRED DL/I CALL COMPARE A. 1 
CARDS, EXPECTED RESULTS USING COMPARE A. 10 
CARDS, INCLUDE 3.84 

CARDS, NECESSARY IEBCOPY CONTROL 3.97 
CARDS, PARAMETER B. 1 

CARDS, PASSWORD MAINTENANCE CONTROL 4.1 
CARDS, PCB COMMENTS A.1 
CARDS, PCB COMPARE A. 7-A. 8 
CARDS, PROCESSING SMP CONTROL 4.2 
CARDS, PROVIDE ADDITIONAL INCLUDE CONTROL 3. 
CARDS, STATUS A.1.A.3-A.4 
CARDS, SYSOUT DD 3.106 
CARRIAGE 3.27 
CARRIAGE STOP 3.47 
CARRIAGE, ANY PRECEDING 5.123 
CATALOG 3.69,6.8,6.10 
CATALOG DD DSN 6.9 

CATALOGED 2. 10 , 3. 3, 3. 66, 6. 8, 6. 1 0, 3 
CATALOGED DATA SET 3.21 

CATALOGED PARTITIONED DATA SET, NAME OF A 3. 
CATALOGED PARTITIONED DATA SETS 3.66 
CAUSES, SYSTEM CHECKPOINT FACILITY 4.11 
CBLTDLI 3.98,3.108-3.109,3.119,5.97 
CDPNCH 3.54 
CDPNCHA 3. 54 
CHANGED 5.42,5.85,5.92 
CHANNEL 3.78,3.85 
CHANNEL/ ABNORMAL 3.86 

CHARACTER OF A KEY FIELD VALUE, FIRST 5.119 
CHARACTER OF THE NAME, FIRST 3.23-3.24 
CHARACTERISTICS 3.4,3.17,3.21,5.123,8 
CHARACTERISTICS, 3271 CONTROL UNIT 3.38 
CHARACTERS 3.50,5.119,6 
CHARACTERS, ALPHABETIC 3.6,3.23,3.32 
CHARACTERS, LINE CONTROL 5.2 
CHARACTERS, TAB 5.3 
CHECKING 3.96,5 
CHECKPOINT 4.1,4.11,6.19 
CHECKPOINT COMMAND 4.6,5.1,6.19 
CHECKPOINT FREEZE COMMAND 5. 1 
CHECKPOINT LOG FREQUENCY 3.13 



CHECKPOINT PURGE COMMAND 5 
CHECKPOINT RECORDS U. 1 
CHECKPOINTS, AUTOMMIC IMS/360 



CIRCA 
CKEY 
CLASS 
CLR 

CLOSE 

CLOSE, ( 

CNTNAME 

CNTS 

COBOL 

COBS 

CODE OPERAND 

CODE PART 



3.106-3. 107 
5.117 
3.109 
5.3,5.20 
6.18 
5. It 
5. 11 
3.75,5.11,5.123-5.121 

3.98 
3.75 

3.26 
16 



CODE, ABB 5.87 

CODE, ACCEPT ANY VALID STATUS 6 

CODE, CORRESPONDENCE 3. 33 

CODE, EIGHT-CHARACTER ALPHAMERIC TRANSACTION 



3.26 



CODE, FINAL TRANSACTION 6.18 

CODE, GIVEN TRANSACTION 3.1 

CODE, IMS/360 TRANSACTION 5.11 

CODE, INSERTED TRANSACTION 5.1 

CODE, INSERTS TRANSACTION 5.1 

CODE, INVENTORY 6.19 

CODE, MAKE STATUS 6 

CODE, NO TRANSACT 6.12 

CODE, OUTPUT TRANSACTION 3.106 

CODE, PROC 6.16-6.19 

CODE, QUANTITY TRANSACTION 6.18 

CODE, ROUTING 3.11 

CODE, SIXTH TRANSACTION 6.17 

CODE, SOURCE 3.66 

CODE, VALID TRANSACTION 1.5 

CODE, 1031 TRANSACTION 5.13 

CODED 3.25,3.28 

CODES 3.7,3.26,3.28,3.32-3.31,3.50,1.5,5.15,5.123,7 

CODES CAUSE DATA BASE UPDATES 3.1 

CODES REFERENCE MANUAL 1.3,3.119 

CODES, APPLICATION PROGRAMS THIRTY-SIX TRANSACTION 

CODES, COMPLETION 1.3 

CODES, RETURN 5.61-5.65,5.8 6,5.92,5.121 

CODES, STATUS 1.3,6 

CODES, VERIFY-OK 3.50 

COLLECTION OF CONTROL BLOCKS 2.6 

COLLECTION, NAMES 3.8 

COMBINATION 3.37,3.99,1.2 

COMBINATION OF EXTENDED BINARY DECIMAL 3.33 

COMBINATIONS OF CONTROL, VALID 1.2 

COMM 3.15-3.16 

COMMAND 1.3,1.5 

COMMAND VERB 1. 1 

COMMAND, 'START IMS' 3.87 

COMMAND, START IMS 3.3 

COMMAND, SUGGESTED START 6.12,6.11 

COMMANDS, PSTOP 1. 1 

COMMAS, EMBEDDED B.I 

COMMENTS 3.133,3.175,A.1,A.1,B. 2.B.8 

COMMENTS CONSIDERED MARKINGS 3.121 

COMMENTS, CONDITIONAL UNCONDITIONAL A.I 



CONFIGURATION, REMOTE 2260 LINE GROUP 3.132 

CONFIGURATION, SCREEN 3.17 

CONFIGURATION, SYSTEM 3.10 

CONFIGURATION, SYSTEM SECURITY 1.11 

CONFIGURATION, 1030 TERMINAL 3.52 

CONFIGURATIONS 2.1,3.51 

CONFIGURATIONS OF THE OPERATING SYSTEM, VS2 3 

CONJUNCTION 3.2,5.85 

CONSOLE, MASTER SYSTEM 3.11 

CONSOLE, O.S. SYSTEM 3.75 

CONTAIN, NAME STATEMENTS MAY OPTIONALLY 3.55 

CONTAINS 7770-3 LINES 2.10,3.3 

CONTAINS, DECB 5.3 

CONTAINS, IMS2.GENLIB PDS 3.66 

CONTAINS, IttS2. SOURCE PDS 3.66 

CONTAINS, RANDOMIZING MODULE 5.103 

CONTINUE 1.11,5.86,5-6,8 

CONTROL BLOCK STARTS 5.3 

CONTROL CARD TYPES 2.7 

CONTROL PROGRAM SUFFIX 3.101 

CONTROL SECTION 3.33 

CONTROL STATEMENT REMAINS 1.2 

CONTROL UNIT/DISPLAY STATION CLUSTERS 3.38 

CONTROL, HEADER 3.36,3.19 

CONTROL, WILL NOT RECEIVE 5.91 

CONVERSATION 3.1,3.11 

CONVERSATIONS, ALLOW 20 CONCURRENT 3.11 

CONVERSION 5.101 

CONVERSION, SYSTEM MESSAGE 5.92 

CONVERT 5.91-5.92,5.100,5.101 

CONVERTED KEY 5.117 

COPY 2.6,3.18 

CORE 3.2,3.13-3.11,3.26,3.29,5.101,6.12 

CORE BUFFER SPACE, AMOUNT OF 3.2 

CORE DUMP 3. 10 5 

CORE RESIDENT 3.1 

CORE, AMOUNT OF 3.2 

CORE, SPAREA 3. 11 

CORRESPOND 2.1,2.3,2.5 

CORRS 3.32-3.33 

COUNT OF FSE'S 5.122 

COUNTER 5.99 

COUNTER MAINTENANCE CALL DPHYR 5.122 

CPL 1.7 

CPLOG 3.13-3.11 

CPT 1.1,1.7 

CREATED MAINTENANCE TABLES 1.7 

CREATED MEMBERS 1.7 

CREATED PROCEDURES SHOULD 3.96 

CREATED SECURITY TABLES 1. 1 1 

CREATED, NEW BLOCKS 5.98 

CREATION 6.1,6.12 

CREATION OF AN ADDITIONAL BUFFER AREA 5.21 

CREATION, INITIAL 3. 1 1 6 

CRITERIA, RECORD SELECTION B.1 

CROSS-REFERENCE 3.19 

CSECT 3.33,3.88,5.11-5.12,5.101-5.103,5.123 

CSECT NAMED RDMVTAB 5.101 

CSECT, IEEVLNKT 3.87 

CSECT, NEW 3.87 



COMMENTS, DISPLAY A. 10 

COMMON 3.52 

COMMON 2980 LINE GROUPS 3.51 

COMMUNICATION 2.3,3.15-3.16,3.27,3.33,3.75, 

3.121.1.6.5.3,5.11 
COMMUNICATION CONFIGURATIONS 3.52 
COMMUNICATION DEVICE LINE CONTROL OPERATIONS 3 
COMMUNICATION INTERFACE 3.33 

COMMUNICATION LINE BLOCK CALLED CLBCNTPT 5.11 
COMMUNICATION LINE BUFFER POOL SIZE 3.16 
COMMUNICATION LINE ENVIRONMENT 3.53 
COMMUNICATION LINE, OPERATION OF THE 5.2 
COMMUNICATION LINES 2.6,3.1,3.3,3.6,3.9,3.11, 

3.35,3.11,3.52-3.53,3.55,6.10 
COMMUNICATION LINES, NUMBER OF 3.11 
COMMUNICATION PASSWORD TABLE 1.6-1.7 
COMMUNICATION SYSTEM PROVIDES MESSAGE PROCESSING 
COMMUNICATION TERMINAL BLOCK 5.21,5.12 
COMMUNICATION TERMINAL DESCRIPTION 

MACRO-INSTRUCTION SET 3.8 
COMMUNICATION TERMINAL MATRIX 1.7 
COMMUNICATION TERMINAL TYPE 3.16 
COMMUNICATION TRANSLATE TABLE 5.12 
COMMUNICATION, COMPLETE IMS/360 DATA 3.120 
COMMUNICATION, INPUTTING 5.15 

COMMUNICATION, INTERRE3ION 2.9-2.10,3.83-3.81 
COMMUNICATION, 

1030 TEST INSTALLATION ENVIRONMENT 5.13 
COMMUNICATIONS LINE BUFFER POOL 3.16 
COMPATIBILITY 3.3,3.15 
COMPLEMENTED 5.119 
COMPLETION 5.85,5.87,5.119 

COMPLETION OF SYSTEM DEFINITION, SUCCESSFUL 3. C 
COMPONENT 3.16,3.51,3.51 
COMPONENT, MDI 3.13 
COMPONENT, PTRDR 3.11 
COMPONENT, SPECIFIC 3.51 
COMPONENT, VIDEO 3.13,3.17 
COMPONENT, 1053 3.17 
COMPONENT, 2265 3.15 
COMPONENTS OF 1052, OUTPUT 3.51 
COMPONENTS, COMPLEX OF 3.51 
COMPONENTS, 1050 TERMINAL 3.52 
COMPONENTS, 1056 INPUT 3.51 
COMPONENTS, 2780 TERMINAL 3.52 
COMPOSITE 3.10-3.11,3.21 
COMPOSITE TEST A. 7 

COMPT 3.12-3.11,3.18,3.50-3.52,3.51 
COMPT OPERAND ASSOCIATES 3.51 
CONCATENATED 2,6 
CONCATENATIONS 3.89 
CONCEPT 5.13 

CONCURRENT CONVERSATIONS, NUMBER OF 3.1 
CONCURRENTLY 3 . 1 

CONCURRENTLY PROCESSED AGAINST 23 DESTINATIONS 3.1 
CONCURRENTLY, STACKS OF CALLS A. 9 
CONDITION, 'TEST UNDER MASK' B.7 
CONDITION, LINE DROP 5.86 
CONDITIONS, SPECIAL 5.8 6,5.92 
CONFIGURATION, PROGRAMMING SYSTEM 3.10 



CSECT, NEW NAME LIST 3.88 

CSECT, TYPE 1 SVC IGCNNN 3.81 

CT VARIANCE 6.17-6.19 

CT, STK 6.17-6.19 

CTB ADDRESS R8 5.61,5.85,5.91 

CTB ADDRESS R9 5.121 

CTBS 3.75,5.3,5.20 

CTL 3.101,1.7,8 

CTLBLKS 2.11,3.10-3.11,3.20,1.7 

CTLUNIT 3.8,3.30,3.38 

CTLUNIT MACRO-INSTRUCTION SPECIFIES 2818 3.38 

CTLUNIT STATEMENTS, MAXIMUM NUMBER OF 3.6 

CTLUNIT STATEMENTS, NUMBER OF 3.58 

CTLUNIT, 0A0 3.53 

CTLUNIT, 200-A 3.56 

CTLUNIT, 2260B 3.53 

CTLUNIT, 255-A 3.57 

CTM 3.75,1.7 

CTRL 3.53,6.12 

CTT ADDRESS R9 5.61,5.85,5.91 

CTTS 3.75,5.12 

CUNITS 3.59-3.60 

CURRENT 5.117,6.16,6,1 

CURRENT BUFFER POOL STATISTICS 8 

CURRENT ROOT 5.103 

CURRENT, COUNT OF 5.98 

CVOL 6.9 

CYCLE 6.5,6.16 

CYCLE, N 6.5 

CYCLE, SINGLE SCHEDULING 3.2 8 

CYL,1 6.9 

CYL, 3 3.111 

CYL,5 6.9 

CYLINDERS 3.72 

CYLINDERS IMS2.QBLKS 3.72 

DASD 3.11,3.26,3.29 

DATA BASE BUFFER HANDLER DFSDLE0O 3.89 

DATA BASE BUFFER POOL SIZE 5.98 

DATA BASE BUFFER POOL STATISTICS 5.1 

DATA BASE EXAMPLE 3.12 

DATA BASE LOAD 6.11 

DATA BASE LOG RECORDS 3.67 

DATA BASE NAME DDPGMNAM 5.122 

DATA BASE ONLY 3.6 

DATA BASE OPERATION, DATA LANGUAGE/I 3.3 

DATA BASE PCB 3-1 

DATA BASE SUBSET STRUCTURE INCLUDES 6.5 

DATA BASE SYSTEM 2.1,3.6 

DATA BASE SYSTEM ALONE 2. 1 

DATA BASE SYSTEM DISTRIBUTION 2.1 

DA^A BASE-ONLY SYSTEM 

DATA BASE/DATA COMMUNICATION SYSTEM 



3.1,3.83 



DATA BASE/DATA COMMUNICATION SYSTEM DISTRIBUTION 2.5 



DATA BASE, BEGINNING OF THE 
DATA BASES ACCESSIBLE 2. 
DATA BASES BFPLOSWT EQUALS 
DATA BASES CONCURRENTLY 
DATA BASES CONCURRENTLY OPEN 
DATA BASES CREATING SAMPLE 
DATA BASES USED 2 5.99 



5.103 



DATA BASES 2740 3.122 

DATA BASES, DATA LANGUAGE/I 3.108 

DATA BASES, DATA SETS REPRESENTING 3.99,3.1011 

DATA BASES, NUMBER OF 3.61,3.63,3.68 

DATA CARD TYPES 4.4 

DATA CARDS 4. 5-1. 6 

DATA CARDS, NUMBER OF 5,7 

DATA COMMUNICATION 2.7,3.3-3.11,3.6,3.11,3.68,3.120 

DATA COMMUNICATION ENVIRONMENT 3.15 

DATA COMMUNICATION EXAMPLE 3.121 

DATA COMMUNICATION FEATURE 2.1,2.3 

DATA COMMUNICATION FEATURE DISTRIBUTION TAPE 2. 3 

DATA COMMUNICATION FEATURE MODULES 2.1 

DATA COMMUNICATION SYSTEM 2.1,2.3,3.3 

DATA COMMUNICATION, SUMMARY OF THE 3.133 

DATA CONVERSION 2.1,2.5-2.6 

DATA CONVERSION FEATURE 2.1 

DATA DEFINITION STATEMENT NAMES 6.10 

DATA ENTRY APPLICATIONS, SPECIFIC KINDS OF 3.45 

DATA ENTRY KEYBOARD 3. 18 

DATA EXTENT BLOCK 3.83 

DATA FORMAT 5.611,5.91-5.92 

DATA INPUT 5.115,1,3 

DATA INPUT BADGE-ONLY INPUT 5.44 

DATA LANGUAGE/I 3.3-3.4,1 

DATA LANGUAGE/I ANALYZER DFSDLR00 3.89 

DATA LANGUAGE/I BATCH 5.100 

DATA LANGUAGE/I BATCH, IMS2.RESLIB LIBRARY OF THE 2.9 

DATA LANGUAGE/I DELETE/REPLACE DFSAOS50 3.89 

DATA LANGUAGE/I INSERT DFSDLD0O 3.89 

DATA LANGUAGE/I ISAM SIMULATOR DFSDHDS0 3.89 

DATA LANGUAGE/I MODULES BFPLTNPL EQUALS 5.98 

DATA LANGUAGE/I RETRIEVE DFSDBH00 3.89 

DATA LANGUAGE/I SPACE MANAGEMENT DFSARW00 3.89 

DATA LANGUAGE/I TEST PROGRAM 1 

DATA LENGTH 5. 124, 6 

DATA MANAGEMENT 5.103 

DATA MANAGEMENT BLOCK ADDRESS 5. 102 

DATA MANAGEMENT MACRO SRL 

DATA SET I.D 5. 122 

DATA SET NAMES 3.66,5.113 

DATA SET NAMES PRODUCED 

DATA SET, SUMMARY OF THE 3 

DATA SETS, CATALOGING OF THE 

DATA SETS, PREALLOCATION OF 

DATA SPECIAL CHARACTERS 5 

DATA STATEMENT COMBINATIONS 

DATA STATEMENTS 4. 2-1. 5 

DATA STATEMENTS AVAILABLE 

DATA SWITCH CARD FORMAT COLUMN 

DATA., RECEIVES 5.66 

DATA, ACCESS PARTITIONED 

DATA, ALLOCATE 3.117 

DATA, APPLICATION 6.5 

DATA, ASSOCIATED 6.11 

DATA, BATCH 2.10,3.10-3.11,3.84 

DATA, BATCH-ONLY 3.83 

DATA, BEGINNING OF THE 5. 97 

DATA, COMBINED 3.15 

DATA, COMPARE 1,7 



DBDGEN, MEMBER NAME 
DBDS, UNIQUE PHYSICAL 
DBDUMP 4.1,6.19 



4.6,5.1 



.12 



3.34 
175 
6.7 
2.1,2.3,2. 



4.2 



6. 1 



4.6,5.1 



3.67 
3.72 



DBDUMP COMMAND 

DBLOAD 6.14 

DBPRINT 6.14 

DBRECOVERY 4.1 

DBRECOVERY COMMAND 

DCB ATTRIBUTES 3.73 

DCB BLKSIZE 3.98,3 

DCB CHARACTERISTICS 

DCB PARAMETERS DSORG 

DCB, GENERATED 3.32 

DCBS, BTAM 3.33 

DCBS, LINE 3.75 

DCBS, MSG 3.75 

DD CARDS NECESSARY 6.14 

DD DDNAME 6. 12-6.13 

DD DSN 3.61,6.12,10 

DD DSNAME 6. 12-6.13 

DD NAMES 6.10 

DD STATEMENT, OPERAND OF THE 

DD UNIT 6.12-6.13 

DD VOL 6.9 



DD, 


ASM.SYSIN 


3.66,3.87 


DD, 


C.SYSIN 


6.12 


DD, 


COMPCTL 


3.98 


DD, 


DFSLOGTT 


3.103 


DD, 


FMTINDX 


3.74,3.101,3.103 


DD, 


FMTINDXO 


3.74,3.101,3.103 


DD, 


HISTORY 


3.74 


DD, 


IEFDATA 


3.113 


DD, 


TEFPDSI 


3.113 


DD, 


IEFRDER 


3.99-3.100,3.103-: 


3. 


112-3.113,3, 


,118 


DD, 


IMSDILIB 


3. 104 


DD, 


IMSLOGR 


3.104 


DD, 


LKED.SYSLMOD 3.88 


DD, 


LONGOUT 


3.118 


DD, 


LONGHK01 


3. 118 


DD, 


LDNGWK02 


3.118 


DD, 


LONGWK03 


3. 118 


DD, 


MSGINDX 


3.74,3.101,3.103 


DD, 


MSGINDXO 


3.74,3.101,3.103 


DD, 


REFERAL 


3.103 


DD, 


SEQBLKS 


3.103 


DD, 


SHRTOUT 


3.118 


DD, 


SHRTWK01 


3.118 


DD, 


SHRTWK02 


3.118 


DD, 


SHRTWK03 


3. 118 


DD, 


SORTLIB 


3.117-3.118 


DD, 


SPCBOUT 


3.117 


DD, 


SPCBHK01 


3.117 


DD, 


SPCBWK02 


3. 117 


DD, 


SPCBWK03 


3.117 


DD, 


SPCBWK04 


3.117 


DD, 


SPCBWK05 


3.117 


DD, 


SPCBWK06 


3.117 


DD, 


SSYNOUT 


3.117 


DD, 


SSYNWK01 


3.117 



DATA, CONTINUE 6 

DATA, CONTROL CARD INPUT 2 

DATA, COUNT OF 5.65,5.86,5.91 

DATA, DBD 3.78 

DATA, DEFINES SEQUENTIAL TEMPORARY 4.11 

DATA, ENTERED 5.2,5.123 

DATA, HDAM 5.100 

DATA, IMAGE COPY 8 

DATA, IMS/360 2.1,2.3,3.120,5.1,5.101,6.14 

DATA, IMS2.ACBLIB 6.15 

DATA, IMS2.LGMSG 3.71 

DATA, IMS2.RESLIB 3.84,5.41 

DATA, INPUT 3.97,5.41,5.64,6.5,6.14,1 

DATA, IQF PHRASE 3.4 

DATA, IQF SYSTEM 3.4 

DATA, ISAM 5.99 

DATA, JOB ACCOUNTING 3.20 

DATA, LARGE 5.99 

DATA, LOG A. 2 

DATA, MARRIAGE OF THE 2. 1 

DATA, OUTPUT 2,7,3 

DATA, PARTITIONED 4.9,6.12 

DATA, PRINT OF THE 6.1 

DATA, PSB GENERATION ACB GENERATION 1 . 3 

DATA, PUNCH OUTPUT 8 

DATA, QSAM 5.43-5.44 

DATA, SAMPLE 6.14 

DATA, SEQUENTIAL 4.9,10 

DATA, SEQUENTIAL MESSAGE 4.10 

DATA, SEQUENTIAL OUTPUT 4.9 

DATA, SEQUENTIAL TEMPORARY 4.10-4.11 

DATA, SOURCE 3.108-3.109 

DATA, SPOOL SYSOUT 3.67 

DATA, STEP ACCOUNTING 3.20 

DATA, SYS1. NUCLEUS 3.84 

DATA, USERLIB 3.29 

DATA, OSAM 5. 122 

DATABASE 3.2 3,4.2,4.4,4.3,4.5,4.13 

DATABASE MACRO, THROUGH USE OF THE 3.4 

DATABASE STATEMENTS, MAXIMUM NUMBER OF 3.59 

DATASETS, PRINT 3.98 

DB/DC 3.3 

DB/DC SYSTEM 2. 4 

DBASE 3.15-3.16,3.59 

DBBBATCH, ACBLIB MAINTENANCE 3.96 

DBBBATCH, MEMBER NAME 3.99 

DBBP 3.104-3.105 

DBD 2.10,3.23,3.67-3.68,3.96,6.12,6.15,2-3 

DBD DATA SETS 3.82 

DBD DEFINITION SOURCE MEMBERS 3.73 

DBD GENERATION 3.20,5.100-5.101 

DBD LIBRARIES FMTINIT 3.96 

DBD OF A HIDAM DATA BASE, INDEX 3.23 

DBD SOURCE MEMBERS 3.73 

DBD STORAGE ESTIMATES 3. 68 

DBD, ASSOCIATED 5.101 

DBD, ENERATION OF A 6.12 

DBD, HIDAM 3.23 

DBD, INDEX 3. 23 

DBDGEN 6.1,6.13,6.12 



DD, SSYNWK02 3.117 

DD, SSYNWK03 3.117 

DD, SSYNWK04 3.117 

DD, SSYNWK05 3.117 

DD, SSYNWK06 3.117 

DD, STEPLIB 3.99-3.100,3.106,3.108-3.109,3.111-3.118 

DD, SWRKOUT 3.117 

DD, SHRKWK01 3.117 

DD, SHRKWK02 3.117 

DD, SWRKWK03 3.117 

DD, SWRKWK04 3.117 

DD, STOKWK05 3.117 

DD, SHRKWK06 3. 117 

DD, SYSIN 6.9,10-11 

DD, SYSLMOD 3.99,3.101,3.103,3.108-3.109, 

3.111-3.112,3.114-3.115 
DD, SYSPUNCH 3.104,3.115-3.116 
DD, SYSTEXT 3.103 
DD, SYSDDUMP 3.99-3.100,3.103-3.104,3.106, 

3.108-3.109,3.113-3.114 
DD, UTPRINT 3.103,3.117 
DDNAME/DSNAME 3.34 
DEB 3.83 
DEB BUILDER 3.3 
DECAREA 5.2,5.21 
DECAREA, CONTENT OF 5.2 
DECB 5.20 
DECB, BTAM 5.3,5.20 

DECIMAL 3.33,3.4 4,3.59-3.60,5.97,6 
DECIMAL NUMBER 3.12,3.25,3.27 
DECIMAL, BINARY 3.33 
DECISIONS 3.1,3.106,3.110 

DECK, SYSTEM DEFINITION CONTROL CARD 3.10 
DEFAULT 'A 1 3.99 
DEFAULT BLOCKS 3.96 

DEFAULT BLOCKS, BUILDING OF THE 3.75 
DEFAULT BUFFER REQUIREMENT 3.21 
DEFAULT C 3.110 
DEFAULT DDNAME B. 3 
DEFAULT LENGTH B.7 
DEFAULT OF SYSUT1 A. 6,B. 5 
DEFAULT PARM FLD 3.113 
DEFAULT PCB A. 3- A. 4 
DEFAULT SIZE 3.15,3.18,3.100,5.97 
DSFAULT, MAXIMUM 3.16 
DEFAULTS APPLY 3.74 
DEFAULTS, SIZE 3.16 

DEFINED 3. 4,3.47,3.61,3.63,3.69,5.41 
DEFINED SYSTEM 3.16,3.21,3.76 

DEFINED UNDER BFPLRQCT, NUMBER OF REQUESTS 5.98 
DEFINED, DIRECT SYSOUT LINES 3.72 
DEFINES, FIRST SUBPARAMETER 3.47 
DEFINES, MDI 3. 49 
DEFINES, MICR 3.49 
DEFINES, MSGQUEUE MACRO-INSTRUCTION 3.17 



DEFINES, PT 

DEFINES, PTR 

DEFINES, PTRDR 

DEFINES, READER 

DEFINES, VIDEO 



3.49 
3.49 



3.49 
3.49 



DEFINITION 1. 1, 3. 38, 3. 10, 3. 19, 3. 61, 3. 73, 3. 78,5.12 
DEFINITION BLOCKS 3.68,3.96 

DEFINITION JOB CONTROL LANGUAGE STATEMENTS 3.6U 
DEFINITION OF COMMUNICATION 3.1 
DEFINITION OF IMS/3 60 CONTROL 5.3 
DEFINITION OF IMS/360 CONTROL BLOCKS 5.21 
DEFINITION OF TRANSACTIONS 3.1 
DEFINITION PROCESS 2.6,3.9,3.19 
DEFINITION STAGE 1 OUTPUT WARNINGS 3.90 
DEFINITION TIME 3. 1, 3. 110, 1. 2 , 5. 11 , 5.61 
DEFINITION UTILITY REQUIRES 5.92 
DEFINITION, BATCH DATA BASE SYSTEM 3.10 
DEFINITION, BATCH ENVIRONMENT IMS/360 SYSTEM 6.11 
DEFINITION, CONTROL BLOCKS FUNCTION SYSTEM 3. 91 
DEFINITION, EXAMPLES OF SYSTEM 3.66,3.133,1.11,1.13 
DEFINITION, IMS SYSTEM 3.75 
DEFINITION, IMS/360 ONLINE SYSTEM 3.12 
DEFINITION, IMS/360 STAGE 1 SYSTEM 3.58-3.60 
DEFINITION, INITIAL SYSTEM 2.7 
DEFINITION, MAINTENANCE SYSTEM 1.1 
DEFINITION, MAXREGN PARAMETER OF THE 

IMSCTRL STATEMENT OF SYSTEM 3.69 
DEFINITION, NEW SYSTEM 2.11 
DEFINITION, ONLINE SYSTEM 2.7 
DEFINITION, PROCEDURES SYSTEM 3.91 
DEFINITION, STAGE 1 SYSTEM 3.76,6.10 
DEFINITION, SYSTEM 5.3,5.11,5.20,5.13,5.66, 

5.87,5.93,6.1,6.11,6.10,6.12 
DEFINITIONS, BATCH SYSTEM 3.11,6.10 
DEFINITIONS, DBD GENERATION UTILITY MACRO 3.66 
DEFINITIONS, SYSTEM DEFINITION UTILITY MACRO 3.66 
DELETE COMMAND 5. 1 
DEPENDENT 3.70,3.73,3.96,5.2 
DESCRIPTION IMSPLI 3.9 8 
DESCRIPTION OF CONTROL CARDS 3.80 
DESCRIPTION OF SAMPLE 6.1 
DESCRIPTION OF THE REQUIREMENTS 5.97 
DESIGN 3.55 
DESIGNATION OF THE UNDEFINED-RECORD 

FORMAT SPECIFICATION 3.72 
DESTINATION 5.11,6.10 
DESTINATION, DEFINE MESSAGE 5.11 
DETAILED CALCULATION 3.13 
DETAILED EXPLANATION COVERS 1.1 
DETAILS OF CALCULATION 3.16 

DETAILS OF THE SYSTEM DEFINITION PROCEDURE 5.2 

DEVICE 3.18-3.19,3.73,1.9,5.2,6.8 

DEVICE MODULE ACTION 5.87 

DEVICE MODULE DFSDS030 5.85 

DEVICE TYPES 3.17 

DEVICE, ANY VALID OUTPUT 3.72 

DEVICE, OUTPUT-ONLY 3.15 

DEVICE, SPECIFIC 3.32 

DEVICE, SPOOL 3.113 

DEVICE, SWITCHED 5.61 

DEVICE, 1033 OUTPUT 3.15 

DEVICES, BINARY SYNCHRONOUS 3.73 

DEVICES, I/O 3.19 

DEVICES, INPUT-ONLY 3.16 

DEVICES, SYSTEM OUTPUT 1.11 



DISK 2.1,2.3,2.5,3.2,3.1,3.30,3.32,3.35-3.36,3.10,3.15 

DISK SPA 3.11,3.91-3.92 

DISK SPACE 3.70 

DISK, TOTAL NUMBER OF 3.11 

DISTRIBUTION 2. 10, 3.70-3.71,3.73,5.117,5.119 

DISTRIBUTION, BASIC DATA COMMUNICATION FEATURE 2.3 

DISTRIBUTION, MOD-LEVEL 2.11 

DISTRIBUTION, NINE-TRACK TAPE 2.1 

DISTRIBUTION, SYSTEM 1.1,2.1,2.3 

DIV 6.16-6.19 

DIVISION METHOD EXAMPLE 5.101 

DL/I 3.21,1,5,9-10 

DL/I BLOCKS 6 

DL/I CALLS 10 

DL/I COMPLETION CODE DDBDNAME 5. 122 

DL/I CONTROL BLOCKS 1 

DL/I INTERFACE NOTE 3.98 

DL/I INTERFACE PLITDLI 3.98 

DL/I, TESTING OF 1 

DLET 3.28 

DLET CALL DICALL 5.122 

DLI 3.116,3.118,9 

DLI BLOCKS, PRINT OF THE A. 10 

DLIBATCH 3.21,3.96,3.99 

DLOGFLG1 5.122 

DLOGFLG2 5.122 

DLOGFLG3, BLOCK CALL 5.122 

DL1B02 3.88 

DMB 3.15-3.16,5.102-5.103 

DMB CONTROL BLOCK POOL, SIZE OF THE 3.15 

DMB, BUFFERS SIZE OF 3.5 

DMBDABLK 5 . 1 03 

DMBDACP, FOUR-BYTE FIXED NAME 5.103 

DMBDACS 5.102 

DMBP 3.101-3.105 

DMGIU1 PSBGEN STEP 3.119 

DMGSI1 3.116 

DMGSI2 3.116,3.119 

DOPT 3.21 

DPHYI 5.122 

DRE312, TYPE 3 REGION 5.122 

DREG3, TYPE REGION 5.122 

DRSV2, TYPE 1/2 REGION 5.122 

DRUM ADDRESS BYTES, COUNT OF THE NUMBER OF 5. 92 

DRUM ADDRESS FORM 5.65,5.86 

DSECTS OF THESE BLOCKS 5.103 

DSNAME 3.31,3.117,6.12 

DSNAME, ASM.SYSLIB DD 3.66 

DSORG 3.68,3.71,3.103,3.111,3.117-3.118,6.9,3 

DUMMY, IEFPDER DD A. 10 

DUMP 3.97,3.113 

EBCDIC TRANSLATION 3.31 

EDIT 3.10,3.16,3.51-3.52,1.6,5.3-5.5,5.11, 

5.20-5.21,5.123-5.121 
EDIT MODULE DFSILNK0 3.88 
EDIT OF CSECT IEEVLNKT, LINK 3.87 
EDIT OF THE PRIVILEGED PROGRAM, LINK 3.87 
EDIT OPERAND 3.29 
EDIT PROCEDURE 3.96,3.98,3.97 
EDIT ROUTINE REGISTERS 5.12 



DEVICES, TELECOMMUNICATION 3.1 

DEVICES, 2311 3.7 3 

DFSAOSA0 3.89 

DFSAOSB0 3.8 9 

DFSAOSC0 3.85,3.89 

DFSAOSD0 3.89 

DFSCNTE0 5.11 

DFSCNUC 3.21 

DFSCNUCN, MEMBERS 1.8 

DFSCNUC0 3.21 

DFSDDLT0 1-2 

DFSDF1 3.101 

DFSDLOC0 5.101 

DFSDLR00 5.101 

DFSDN110 5.123 

DFSERA10 3,8-9 

DFSIBLKX 3.10 

DFSICSC0 3.85 

DFSIDJK0 3.88,3.99,3.108-3.109,3.111-3.112,3.111-3.115 

DFSIOCE0 3.86 

DFSISMP0 3.115,1.8 

DFSI7770 5.85,5.87 

DFSO7770 5.91,5.93,5.97 

DFSRRC00, NAME 3.79 

DFSSAM01 6.13-6.11 

DFSSAM02 6.13 

DFSSAM03 6.13 

DFSSAM01 6.12-6.13 

DFSSAM05 6.13 

DFSSAM06 6.13 

DFSSAM07 6.13 

DFSSAM08 6.13-6.11 

DFSSAM11 6.13 

DFSSAM1 2 6.13 

DFSSAM13 6.13 

DFSSAM15 6.13 

DFSSAM16 6.13 

DFSSAM17 6.13 

DFSSAM18 6.13 

DFSSAP01 6.12 

DFSS7770 5.61,5.67 

DFSUNU10 3.103 

DFSUNU30 3.103 

DFSUPRT0 3.113 

DFSUTS10 3.101 

DFSUTS20 3.101 

DFSOTS30 3.73,3.101 

DFSUTS10 3.73,3.101 

DFSDTS50 3.73,3.101 

DFSUTS60 3.73,3.101 

DFSUTS70 3.102 

DFSUTS90 3.103 

DFSVCI00, COMMANDS 3.85 

DFSVC100 3.89 

DFS10300 3.37,5.13 

DFS29800 5.123 

DIRECTORIES 3.82,1.7,5.20 

DIRECTORY, DMB 3.75,9 

DISCONNECT 5.61-5.65 

DISCUSSION OF THE IMSCTRL MACRO- INSTRUCTION 2.7,2.11 



EDIT ROUTINE RETURNS 5.11 
EDIT ROUTINES GENERATION, 

OPTIONAL INCLUSION OF USER MESSAGE 2.9 
EDIT ROUTINES, NAMES OF THE 5.11 
EDIT, IMS/360 BASIC 5.3 
EDIT, IMS/360 BASIC INPUT 5.2 
EDIT, IMS/360 USER RELINK 6.12 
EDIT, LINK 2.9-2.11,3.83,3.85-3.86,3.96,3.98, 

5.11,5.13,6.10-6.12 
EDIT, LINKAGE 2.9,6.12 
EDIT, PHYSICAL TERMINAL OUTPUT 5.1 
EDIT, RELINK 6. 13 
EDIT, SPECIFIED 3.29 
EDIT, USE OF THE 3.56 
EDITED 5.20 

EDITED MESSAGE SEGMENT LENGTH INCLUSIVE 5.20 
EDITED MESSAGE TEXT 5.12 
EDITING 5. 2 
EDITING, BASIC 5.3 

EDITOR, LINKAGE 3.20,3.88,1.7,1.10-1.11 
EDITS IMS/360 5.2 
EDITS, TRANSACTION CODE 5.1 
EDIT1030 5.13 
EDIT7770 3.31 
ELEMENT OFFSET DFSE 5.122 
ELEMENT, SECURED 1.6 
ELEMENT, TERMS OF THE SECURING 1.5 
ELEMENTS, SECURING 1.6 
ENTERED CONTROL 1.1 
ENTERED PTERM 1.5 
ENTERED TEXT 5.125 
ENTERED VALUE 3.21,3.39 
ENTRIES, MAXIMUM NUMBER OF 1.7 
ENTRIES, MOST IMPORTANT 5.98 
ENTRIES, VALID 3.18 
ENTRY 5.21,5.11-5.12,5.61-5.65,5.85-5.87,5.91, 

5.102-5.103,5.123-5.121 
ENTRY DLITCBL 6. 13 

ENTRY OF THE COLD START COMMAND 6.15 
ENTRY OF THE NAMED TRANSACTION CODES 1.5 
ENTRY OF THE SYSTEM OPERAND, SECOND SUBLIST 1.7 
ENTRY POINT 3.88,5.3,5.87 
ENTRY VECTOR 5.85 
ENTRY, INFORMATION- ONLY 5.87 
ENTRY, NEW NAME LIST CSECT 3.88 
ENTRY, ONLY VALID 3.18 
ENTRY, OSAM OPEN/CLOSE EOV 3.85 
ENTRY, UNAUTHORIZED 1.1 

ENVIRONMENT 1. 1,2.6,3.1,3.3-3.1,3.21,5.13,6.7,6.10 
ENVIRONMENT, GENERAL SYSTEM 3.3 
ENVIRONMENT, ONLINE 6.15 
ENVIRONMENT, OPERATING 3. 89 
ENVIRONMENT, OPERATING SYSTEM 3.10 
ENVIRONMENT, OS/VS 3.83 
ENVIRONMENT, PARTICULAR 1.2 

ENVIRONMENT, PARTICULAR USER DATA PROCESSING 2.6 
ENVIRONMENT, SPECIFIC 3.3 
ENVIRONMENT, SYSTEM 3.2 
ENVIRONMENT, 10 30 3.37 
EOB 3.27,5.87 



EOF It 

EQU 3.87,5.122 

EQUIVALENT 3.27,3.67,5.3,5.20,5.87,6.10,6.16,6-7 

EQUIVALENTS, VOCABULARY 5.92 

ERESTART 4 . 1 

ERESTART COMMAND l».6,5.1 

ERROR CONDITIONS 3.50,5.65,5.86,5.92 

ERROR DETECTION 5.85 

ERRORS 3.3,3.50,4.2,4.6,5.44,5 

ERRORS, WRITE 5.100-5.101 

EXAMPLE OF THE BUFPOOLS MACRO-INSTRUCTION OPERANDS 3.16 

EXAMPLE OF THE LINE 3. 37 

EXAMPLE OF THE LINEGRP MACRO 3.31 

EXAMPLE OF THE MSGQUEUE MACRO- INSTRUCTION 3.18 

EXAMPLES, HDAM RANDOMIZING MODULE 5.101 

EXAMPLES, JCL 3.87,6.7 

EXAMPLES, RANDOMIZING MODULE 5.101* 

EXAMPLES, SYSTEM DEFINITION 3.120 

EXEC 3. 106, 3. 108-3. 109, 3. 11 1-3. 118, «. 8,4.10, 

EXEC ASMFC 3.66 

EXEC, IEFPROC 3.104,3.113 

EXEC, STEP 6.14 

EXECUTABLE IMS/360 SYSTEM 3.3 

EXECUTE 3.3,6 

EXECUTED 2.10,3.33,3.55,5.66,6.10 

EXECUTING 3.88,3.97,3.116,3.120,6.19-1,9 

EXECUTION 3.2,3.4-3.5,3.26,3.32,3.99,3.108 

3. 112, 6. 7,6. 12, 6. 14, A.9 
EXECUTION OF STAGE 2 3.20,3.61,3.66 

6.12-6.14,6.19,2,3 
EXECUTION OF THE MFDBLOAD PROCEDURE 6.14 
EXECUTION OF THE START IMS COMMAND 3.79 
EXECUTION STEP 3.96,3.98 
EXECUTION TIME 3.23,3.72 
EXECUTION, APPLICATION PROGRAM 3.21 
EXECUTION, ASSEMBLY 3.66 
EXECUTION, BATCH REGION 2.10,5.101 
EXECUTION, BATCH-ONLY 6.8,6.10,6.13-6.14 
EXECUTION, DURING STAGE 2 3.66 
EXECUTION, FOUR-STEP 3.96 
EXECUTION, LATER 8 
EXECUTION, ONLINE 6.10-6.11 
EXECUTION, ONLINE SYSTEM CONTROL PROGRAM 

2.1 



.15 



EXECUTION, OPERATING SYSTEM/360 MVT 

EXECUTION, OSAM MULTI VOLUME 2.9 

EXECUTION, SECURITY MAINTENANCE PROGRAM 

EXECUTION, SYSTEM 2.10,3.84 

EXECUTION, SYSTEM DEFINITION STAGE 2 

EXECUTION, THREE- STEP 3.97 

EXECUTION, VS2 2.5 

EXECUTIONS, SUBSEQUENT 5.1C0 

EXITS 5.1,5.3,5.20,5.4 2,5.65,5.85,5.87,5.91 

EXPANSION, ADDITIONAL BUFFER 3.37 

EXTENSIONS 1.1,5.2 

EXTERNAL ACTION 5.87 

FACILITY OF REPEATING A SERIES OF CALLS 9 

FACILITY OF THE TYPE 4 SVC, OSAM 3.84 

FACILITY, INTERACTIVE QUERY 2.5,3.4 

FBM 3.72,3.99,3.114-3.115,4.10 

FBP 3.104,3.107 



4.1,4.6 
3.29,5.41,5.43 



FORMAT, LOG TAPE RECORD 5.122 

FORMAT, MODIFIED 3. 86 

FORMAT, OPTION CARD B.5 

FORMAT, PUNCH CARD A. 8 

FORMAT, RECORD 1,3 

FORMAT, RESPONSE 6.16 

FORMAT, STANDARD IMS/360 INPUT MESSAGE 5.123 

FORMAT, STATUS CARD A. 3 

FORMAT, 7770-3 INPUT DATA 5.65 

FORMATS 3.103,4.6,5.1,5.20,5. 102,5.122,6.16,1,5,9,1,3 

FORMATS, FIXED RECORD 3.72 

FORMATTED CALLS 4 

FORMATTED PRINT 3 

FULL, DICTIONARY 3.57 

FUNCTION OF THE SECURITY MAINTENANCE PROGRAM 4.1 

FUNCTION, IMS/360-SUPPLIED EDIT 5.3 

FUNCTIONS, BASIC IMS/360 EDIT 5.1-5.2 

FUNCTIONS, CAPABILITIES IMS/360 PROVIDES EDIT 5.1 

FUNCTIONS, DELETE 3.2 8 

FUNCTIONS, EDITING 5.41,5.64 

FUNCTIONS, HEADER CONTROL 3.53 

FUNCTIONS, MAINTENANCE 4.2 

FUNCTIONS, PERFORM EDIT 5.1 

FUNCTIONS, PHRASE DEFINITION 3.28 

FUNCTIONS, RANDOMIZING 5.100 

FUNCTIONS, SUBSEQUENT IMS/360 5.5 



FUNCTIONS, UPDATE 
F1 5.87 

F2 5.87 

F3 5 . 87 



4.2 



F4 



5.87 



F5 5.87 

GC28-6514 3.3 

GC28-6538, FORM 3.20 

GC28-6550 3.83 

GC28-6550, FORM 3.89 

GC28-6647, FORM NO. 3.12 

GC30-2004 3.33 

GENERATE MULTIPLE IMS/360 SYSTEMS 3.21 

GENERATED COMPOSITE CONTROL BLOCKS 3.21 

GENERATED IMS/360 ASSEMBLER 3.86 

GENERATED IMS/360 NUCLEUS 3.21 

GENERATED IMS/360 SYSTEM REQUIRES THAT 3.67 

GENERATED MATRICES, MAXIMUM BOUNDS OF THE 4.7 

GENERATED NUCLEUS 3.11 

GENERATED SYSTEM 3.3,3.5,3.66 

GENERATED SYSTEM, MACRO REQUIREMENTS OF THE 3 

GENERATED, CORRESPONDING JCL 3.34 

GENERATING SYSTEM 3.77 

GENERATION 1.1,2.9-2.11,3.3,3.78,6.13,6.12 



GENERATION MAXIMUMS, EXCESS OF SYSTEM 
GENERATION OF RANDOMIZING MODULES, USER 
GENERATION OF THE IMS/360 CONTROL PROGRAM, 

IMS2.RESLIB LIBRARY 2.9 
GENERATION PROCESS 6.12 
GENERATION, ACB 2.10 
GENERATION, BATCH 3.95 
GENERATION, HDAM DBD 5. 100 
GENERATION, NUCLEUS 3.6 
GENERATION, OPERATING SYSTEM SYSTEM 2.' 



.72 
5.1 



FEAT 3.30,3.32,3.34-3.35,3.37,3.39-3.40, 

3.42-3.44,3.46-3.47 
FEATURE 2.3,3.2,3.4,3.33,3.38,3.45,3.47-3.48 

3.69,3.81 
FEATURE OF OS/VS2, FETCH PROTECT 5.97 

FEATURE OF THE PAGING, AUTOMATIC PAGE DELETION 3.45 
FEATURE, ADDITIONAL BUFFER EXPANSION 3.47 

FEATURE, AUTO EOB 3.2 7 

FEATURE, AUTOMATIC SIGN-ON 
FEATURE, AUTOPOLL POLLING 



3.41 
3.32 
.33 



FEATURE, CHARACTER SET 

FEATURE, FACILITY 2.7 

FEATURE, HEADER CONTROL 3.36,3.49 

FEATURE, LIMIT PRIORITY 3.27 

FEATURE, LINE CODE 3. 37 

FEATURE, LTERM EDIT TERMINAL CONVERSATION 3.91 

FEATURE, NUCLEUS GENERATION TERMINAL CONVERSATION 3.92 

FEATURE, RECEIVE INTERRUPT 3.46 

FEATURE, SCHEDULING LIMIT COUNT 3.2 

FEATURE, STATION CONTROL 3.27 

FEATURE, TRANSMISSION 3.46 

FEATURE, WRITE- AT-LINE- ADDRESS 3.53 

FEATURES, POLLING 3.32 

FEATURES, SYSTEM 3.12 

FEATURES, 1053 3.38 

FEATURES, 278 TERMINAL 3.46 

FEATURES, 2845 CONTROL UNIT 3.47 

FETCH REQUEST ELEMENTS, NUMBER OF 3.16 

FIELD 5.11,5.21 

FIELD, DECAREA 5.3,5.20 

FIELD, EXECUTABLE KEY LENGTH 5.103 

FIELD, LIMIT COUNT 3.26 

FIELD, TEST 6 

FIFO 3.28 

FILE SEARCH 3.14,3.29 

FILE, QSAM 5.41,5.45 

FLEXIBILITY, PROVIDE GREATER 3.24 

FLOWCHART 5.45 

FLUSH 3.15 

FM 3.72,4.10 

FMTDB 3.74,3.101,3.103 

FMTINIT 3.75 

FMTINIT, MEMBER NAME 3.101 

FMTUTL 3.96 

FORMAT BUFFER POOL 3.104 

FORMAT DESCRIPTIONS 3.96 

FORMAT DESIGNER 5. 3 

FORMAT LANGUAGE UTILITY 5.2 

FORMAT NPPP 5.92 

FORMAT OF THE MACRO 3.59 

FORMAT SERVICES LIBRARY ALLOCATION GUIDELINES 3.73 

FORMAT UTILITY DATA BASES 3.75,3.96 

FORMAT UTILITY DATA SETS 3.75 

FORMAT, AREA 5.98 

'ORMAT, EASE LOG TAPE RECORD 5.120 

/ORMAT, CALL CARD A. 4, A. 8 

FORMAT, COMMENTS CARD A.4,B.8 

FORMAT, COMPARE CARD A. 6 

FORMAT, END CARD B. 8 

FORMAT, GENERAL 6.16 



GENERATION, OS SYSTEM 3.84 

GENERATION, PERFORM DBD 6.12 

GENERATION, SYSTEM 3.84,6.10 

GENERATION, TYPE IMS/360 3.10 

GENERATIONS, OS 3.11 

GENERIC 2. 1 

GETMAIN 3.13 

GROUP, BTAM TELECOMMUNICATION LINE 

GROUP, LINE 3.32-3.33 

GROUPS, ALL LINE 3.30 

GROUPS, 2780 LINE 3.46 

GUIDELINES 3.87,3.96 

GY27-7128 3.87 

GY28-6660 3.83 

GY28-6660, FORMS 3.87 

HDAM DATA BASE 5.100,5.103 

HEADCTL 3.43,3.49,3.53 

HEADER CONTROL 3.36,3.50,3.53 

HEXADECIMAL 3.44,1 

HEXADECIMAL DIGITS 3.36 

HIDAM DATA BASE 3. 23 

HIERARCHICAL 3.5 

HIERARCHICAL LEVELS 3.68 

HIERARCHICAL SETS 3.6 

HISAM 3.23 

HSAM 3.23 

IAM 4.4-4.5,5.64 

IAM COMMAND 3.55,5.64 

IBIL01 2.3,2.5 

IBM INTERNAL INFORMATION SYSTEM 

ICREATE 5.21 

IDENTICAL 5. 11 

IDENTIFICATION CHARACTER 5.124 

IDENTIFIED 3.105-3.106 

IDENTIFIER 5.21 

IDENTIFIER, CLASS 3.1 

TDLE 4. 1 

IDLE COMMAND 5.1 

IEANUC01 3.85 



IEANUC02 


3.85 




IEBCOPY 


3. 101 




IEEPSN 


3.88 




IEEVACTL 


3.88 




IEEVLSKT 


3.83,3.87-3.88 




IEEVRCTL 


3.87-3.88 




IEEVRJCL 


3.88 




IEEVRJCL 


ALIAS 3.8 8 




IEEVSMBA 


3.88 




IEEVSMSG 


3.88 




IEFIRC 


3.88,3.113 




IEFRDER 


3.104 




IEHMOVE 


2.2-2.6 




IEMAA 


3.111-3.112 




IEUASM 


3.99,3.104,3.114-3.115,4.10,6.12 


IEWL 


3.101,4.10,6. 12-6.13 




IGCYYY 


6.10 




IGC00NNN 


3.84-3.85 




IGC0024B 


3.85 




IGC01NNN 


3.85 




IGC04NNN 


3.85,3.89 





3.85,3.89 

3.85,3.89 

3.85,3.89 

3.85 

3.85 

3.86 

3.85 



I3C05NNN 

IGC06SNN 

IGC07NNN 

IGC10NNN 

IGC11NNN 

IGC12NNN 

IGC13NNN 

I3G019G9, READ/WRITE 3.89 

IGG019JV, WRITE CHECK 3.89 

I3G019Z0 3.13 

IGG019Z6 3.13 

I33019Z8, MACRO-TIME READ/WRITE 3.89 

IGNORE 3.13,3.50 

IGNORED 3. 17 

II, STAGE 3.3,3.75 

III 3.104,3.113 

TKFCBL00 3.108-3.109 

ILIB01 2.2-2.6,6.9 

TLIB02 2.2-2.6,6.9 

I LI BO 2 CATLG DSNAME 6.9 

IMS COMMANDS 2.10,3.79 

IMS CONTROL REGION, EXECUTION OF THE 3.21 

IMS EXECUTION TIME 3.32 

IMS MODULES, LIST OF 3.89 

IMS NUCLEUS 3.105 

IMS ONLINE 3. 31 

IMS PROCEDURE PGN 3.105 

IMS READY 6. 15 

IMS SYSTEM 3.73,3.81 

IMS.DBGENLIB 2.1-2.3 

IMS.DBLOAD 2.1-2.3 

IMS.DBSOURCE 2.1-2.3 

IMS.DCGENLIB 2.3-2.5 

IMS.DCLOAD 2.3-2.5 

IMS. DCSDURCE 2.3-2.5 

IMS/360 APPLICATION PROGRAMMING REFERENCE MANUAL 5.101 

IMS/36 BATCH 6.5 

IMS/360 BLOCKS 5.11 

IMS/360 CHECKPOINT/RESTART 5.85 

IMS/360 COMMUNICATION 5.3,5.12 

IMS/360 COMMUNICATION PASSWORD 4.1 

IMS/360 COMMUNICATIONS TERMINAL MATRIX 1.2 

IMS/360 CONTINUES 5.15 

IMS/360 CONTROL 3.11,3.25-3.26,3.86,3.120,5.3, 

5.11,5.101,6.15 
IMS/36 CONTROL BLOCK DESCRIBING, 

ADDRESS OF THE 5.20 
IMS/36 CONTROL BLOCKS 5.2,5.11 
IMS/360 CONTROL BLOCKS, ALTERNATE SET OF 3.10 
IMS/36 CONTROL FACILITY 3.13 
IMS/360 CONTROL FUNCTIONS 3.81 
IMS/36 CONTROL LOCKS 5.11 

IMS/360 CONTROL PROGRAM NUCLEUS 3.52,4.2,5.1-5.2 
IMS/360 CONTROL REGION NUCLEUS 5.123 
IMS/36 CONTROL SYSTEM 1.1 
IMS/360 DATA BASE BUFFER POOL 5.97 

IMS/360 DATA BASE/DATA COMMUNICATION IMS2.SHMSG 3.67 
IMS/36 DATA BASE/DATA COMMUNICATIONS SYSTEM 3.67 
IMS/360 DATA COMMUNICATION FEATURE 3.11 
IMS/360 DISTRIBUTION DATA SETS 2.1 



IMS/360 SYSTEM DEFINTION 3.57 

IMS/36 SYSTEM DESCRIPTION BLOCK 4.2 

IMS/360 SYSTEM EVEN 3.83 

IMS/360 SYSTEM GENERATION 1.1 

IMS/360 SYSTEM LOG 5.41 

IMS/360 SYSTEM LOG OPERATIONS, NUMBER OF 3.13 

IMS/360 SYSTEM MANUAL 5.2-5.3,5.11,5.21,5.66,5.87,5.93 

IMS/360 SYSTEM PRODUCED 3.56 

IMS/360 SYSTEM STRUCTURING CONSIDERATIONS 3.1 

IMS/360 SYSTEM/APPLICATION 3.49,3.55 

IMS/36 SYSTEM/APPLICATION DESIGN GUIDE 

3. 1,3.13,3.16,3.68 
IMS/360 SYSTEM, COMPONENTS OF THE 1.3 
IMS/360 SYSTEM, DESIGN OF AN 1.1 
IMS/360 SYSTEM, EXECUTION OF THE 3.84,3.90 
IMS/360 SYSTEM, 

PASSWORD SECURITY CHARACTERISTICS OF A DEFINED 3. 1 
IMS/360 TERMINAL COMMANDS 4.12-4.13 
IMS/3 6 TWO-STAGE DEFINITION PROCESS 3.3 
IMS/360 UTILITIES DESCRIBED 1.3 
IMS/360 UTILITIES REFERENCE MANUAL 6.1 
IMS/360 2972/2980 DEVICE SUPPORT 5.123 
IMS/360, CAPABILITIES OF 3.1 
IMS/360, CAPABILITIES WITHIN 5.21 
IMS/360, EXECUTE 3.79 
IMS/360, EXECUTING 3.82 
IMS/360, FACILITIES OF THE 1.1 
IMS/360, MFDBDUMP INITIALIZING 6.14 
IMS/36 0, OPERATING 1.3 
IMS/360, PROGRAM LOGIC OF 1.3 

IMS/360, RELEASES OF MODIFICATION LEVELS OF 2.10 
IMS/360, TAILORING OF 2.6 
IMS, CATALOGED PROCEDURES 3.83 
TMSACB 3.32,3.98-3.99,3.104 

IMSACB DD CARD, FIRST CONCATENATION OF THE 3.24 
IMSACB DD DSN 6.9 
IMSBATCH, MEMBER NAME 3.106 
IMSCOBGO 3.21,3.112 
IMSCOBGO, MEMBER NAME 3.108 
IMSCOBOL, MEMBER NAME 3.109 
IMSCTF 3.10,3.13 
IMSCTF MACRO NNN 3.86 

IMSCTF MACRO- INSTRUCTIONS, EXAMPLE OF 3.13 
IMSCTF SVCNO 3. 14 
IMSCTRL 3.10,6.12 
IMSCTRL CARD STATEMENT NEED 3.6 

IMSCTRL MACRO-INSTRUCTION OPERANDS, EXAMPLE OF 3.12 
IMSCTRL SYSTEM 3.12 



IMSDBL 

IMSDEF 

IMSDILIB 

IMSFMT 

IMSGEN 

I MS LOS 

IMSLOGR 

IMSMAX 

IMSMSS 



3.104,6.11 
6.12 



3.3 2,3.99-3.100,3.103-3.104,3.108,3.112,8-9 



3.59,3.61 
3.113 



IMSMSG, COBOL 3. 
IMSMSG, MEMBER NAME 
IMSPLI, MEMBER NAME 



3.109 
3.111 



1.1 



3.66 



5.2-5.3 



IMS/360 DISTRIBUTION LIBRARIES 3.11 

IMS/360 DISTRIBUTION LIBRARIES FIGURE 17 6.7 

IMS/360 EDITING 5.3 

IMS/360 ENVIRONMENT 3.2 

IMS/360 EXECUTION 2.10,3.3,3.67,3.82,3.86,3.96,3.101 

IMS/360 FACILITY CALLED IDESTROY 5.21 

IMS/360 GENERAL INFORMATION MANUAL 

IMS/360 INTERFACES 5.123 

IMS/360 INTERREGION COMMUNICATION 

IMS/360 LIBRARIES 2.6,2.10,6.12 

IMS/360 LIBRARY NAMES 6.10 

IMS/360 LOG DATA SET A.1-A.2 

IMS/360 LOG TAPE 8 

IMS/360 MACRO 3.68 

IMS/360 MACRO DEFINITIONS NECESSARY 

IMS/360 MACROS 3.20 

IMS/36 MESSAGE FORMAT 5.4 

IMS/360 MESSAGE FORMAT SERVICE 

IMS/360 MESSAGE QUEUES 6.15 

IMS/360 MOD-LEVEL DISTRIBUTIONS 2.11 

IMS/360 MODIFICATION 2.11 

IMS/360 NUCLEUS 3.10,3.67,3.77 

IMS/360 NUCLEUS CONTROL BLOCK 3.32 

IMS/360 NUCLEUS NAME, CHARACTER OF THE 

IMS/360 ONLINE 2.10,3.79 

IMS/360 ONLINE BATCH MESSAGE, EXECUTION OF 

IMS/360 ONLINE CONTROL PROGRAM FUNCTIONS 

IMS/360 ONLINE CONTROL PROGRAM NUCLEUS 

IMS/360 ONLINE NUCLEUS 3.21 

IMS/360 ONLINE SYSTEM 3.81,1.11 

TMS/360 ONLINE, USED UNDER CONTROL OF THE 

IMS/360 OPEN MODULE OBTAINS 5.101 

IMS/360 OPERATOR MANUAL, CHAPTER 6 OF THE 3.82 

IMS/360 OPERATOR REFERENCE MANUAL 3.6,6.1,6.15 

IMS/360 OSAM ACCESS METHOD 3.13 

IMS/360 PRINT UTILITY 3.67 

IMS/360 PROCEDURE NAMED IMS 3.87 

IMS/360 PROCESSING 5.123 

IMS/36 REQUIREMENTS 3.4 

IMS/360 RESOURCES 2.6,3.1 

IMS/360 RESOURCES, EXCLUSIVE CONTROL HANDLING OF 

IMS/360 RETURNS 5.21 

IMS/360 SAMPLE PROBLEM 1.1,6.1 

IMS/360 SAMPLE, APPLICATION PORTION OF THE 6.5 

IMS/360 SECURITY REQUIREMENTS, PRINTED ANALYSIS OF 4.2 

IMS/360 SVC ROUTINES NEED NOT 3.84 

IMS/360 SVC ROUTINES, INCLUSION OF 

IMS/360 SYSTEM CONSOLE 3.11 

IMS/36 SYSTEM CONTENTS 5.20 

IMS/360 SYSTEM CONTENTS DIRECTORY 

IMS/36 SYSTEM DATA SET ALLOCATION 

IMS/360 SYSTEM DATA SETS 3.66,3.69 

IMS/360 SYSTEM DEFINITION CREATES 4.1 

IMS/35 SYSTEM DEFINITION MACRO- INSTRUCTIONS 

IMS/360 SYSTEM DEFINITION RESOURCE LIMITS 

IMS/360 SYSTEM DEFINITION TIME 5.11 

IMS/360 SYSTEM DEFINITION UTILITY CONTAINS 

TMS/360 SYSTEM DEFINITION UTILITY, EXECUTION OF THE 

IMS/360 SYSTEM DEFINITION UTILITY, FUNCTION OF THE 3.: 

IMS/360 SYSTEM DEFINITION, EXECUTION OF 3.85-3.86 



.7,5.43 



3.23 



3.13 y 



3.83 



5.97 
3.68 



2.6,3.3 y 
3.59 



3.3 



IMSPLIGO 3.21 

IMSPLIGO, PL/I 3.98 

IMSRDR 2.10,3.75,3.83,3.98,6.11-6.12 

IMSRDR, LANGUAGE/I BATCH PROCESSING REGION 3,98 

IMSRDR, S 3.9 8 

IMSRDR, START 6.14 

IMSSPA 3.104 

IMS2.ACBLIB 3.23-3.24,3.67,3.98-3.99,3.104,5.101,6.9 

IMS2.ACBLIB DATA SET 5.101,6.14 

IMS2.ACBLIB DBDGEN 3.96 

IMS2.ACBLIB IMS2.SPA 3.68 

IMS2.ACBLIB, IMS2.DBDLIB 3.68 

IMS2.DBDLIB 3.67,3.98-3.101,3.103,3.108, 

3.112-3.114,3.116-3.118,6.9,6.12 
IMS2.DBLLOG 3.67-3.68,3.104,6.9,6.11 

IMS2.DBSOURCE 2.2-2.5,2.10-2.11 

IMS2.FMTINDX 3.74,3.101,3.103 

IMS2.FMTINDX0 3.74,3.101,3.103 

IMS2. FORMAT 3.74,3.103-3.104 

IMS2. FORMAT DATA SETS 3.73 

IMS2. FORMATS 3.74,3.101,3.103 

IMS2.GENLIB, DCB ATTRIBUTES OF THE 2.1,2.3 

IMS2.GENLIB, MEMBER OF 6.12 

IMS2.GENLIB, REQUIRED MEMBERS OF 3.59 

IMS2.L3MSG 3.17,3.67-3.68,3.104,6.9,6.11 

IMS2.LGMSG DATA SETS 3.70 

IMS2.LOAD 3.76,3.85-3.86,3.101,5.66,5.87,5.93, 

6.1,6.9-6.10,6.12-6.13 
IMS2. LOAD DATA SETS 2.1,2.3,3.66 

IMS2.LOAD, EITHER 2.11 

IMS2.LOGT 3.10 3 

IMS2.MACLIB 3.66-3.67,3.75,3.77,3.97,3.99,3.114,6.9 

IMS2.MACLIB DATA SET 3.20 

IMS2.MACLIB, SYS1.PROCLIB 3.68 

IMS2. MESSAGES 3.74,3.101,3.103 

IMS2.MSGINDX 3.74,3.101,3.103 

IMS2.MSGINDXO 3.74,3.101,3.103 

IMS2.0BJDSET 3.20,6.9,6.12 

IMS2.0BSDSET 3.69 

IMS2.PGMLIB 3.99-3.100,3.106,3.108-3.109, 

3.111-3.114,6.9-6.12-6.13 
IMS2.PGMLIB, ACTION MODULES 3.67 
IMS2.PROCLIB 3.8 3,3.86,3.96-3.98,3.108-3.109, 

3.111-3.113,6.9,6.11-6.12,6.1 
IMS2.PSBLIB 3.98,3.100-3.103,3.108,3.112-3.114, 

3.116-3.113,6.9,6.12 
IMS2.QBLKS 3.17,3.67-3.68,3.104,6.9,6.11 
TMS2.QBLKS DATA SET 3.70 
IMS2.REFERAL 3.73-3.74,3.101,3.103 
IMS2.RESLIB 3. 105-3.106,3.108-3.109,3.111-3. 118, 

4.7-4.8,1.11,5.13,6.9-6.11 
IMS2.RESLIB DATA SET 3.21,3.84,3.104,4.7,5.100 

IMS2.RESLIB DATA SET, MEMBERS OF THE 5.100 

IMS2.RESLIB DFSAAP10 3.86 

IMS2.RESLIB DFSVC400 3.85 

IMS2.RESLIB, SYSTEM 3.67 

IMS2.RESLIB, SYSTEM DEFINITION 3.68 

IMS2.SHMG 3.17 

IMS2.SHMSG 3.68,3.70,3.104,6.9,6.11 
IMS2.SHMSG DATA SET 3.71 



IMS2. SOURCE 3.66 

IMS2.SPA 3.67-3.68,3.101 

IMS2.SYSON 3.113 

IMS2.SYSONNN 3.67-3.68 

INCLUSION OP USER-WRITTEN ROUTINES 5.1 

INCR 8 

INDEX 3.23,3.69,6.9 

INDEX, IMS2 DLTX 6.9 

INDICATE EOM 5.123 

INDICATION, DISCONNECT 5.86 

INDICATION, END-OF-MESSAGE 3.27 

INDUSTRY, MANUFACTURING 6.1 

INFORMATION, STEP ACCOUNTING 3.60 

INITIAL RESOURCE LIMITS 3.56 

INITIALIZATION 3.21,5.117 

INITIALIZATION D^SAOSBD 3.85 

INITIALIZATION, VS1 SYSTEM 3.85 

INPUT BUFFER 5. 2, 5. 61, 5. 86 

INPUT BUFFER AREA 5.65,5.86 

INPUT BUFFER LENGTH R1 5.12U 

INPUT BUFFER SIZE 3.37,3.10 

INPUT BUFFER, BEGINNING OF THE 5.123 

INPUT BUFFER, CONTENTS OF THE 5.61-5.65,5.86 

INPUT CARD DECK 3.80 

ISPUT CARDS, EXAMPLE OF THE 1.11 

INPUT DATA LENGTH 5. 121 

INPUT DATA R7, LENGTH OF 5.61 

INPUT DATA, ADDRESS OF 5.61 

INPUT EDIT 5.85 

INPUT EDIT CONTROL, END OF 5.87 

INPUT EDIT MODULE 5.86 

INPUT EDIT MODULE ERROR CONDITIONS 5.86 

INPUT EDIT ROUTINE 5.87,5.123 

INPUT EDIT ROUTINE PROGRAM LISTING 5.87 

INPUT EDITING, CONCEPT OF 5.85 

INPUT FIELDS 5.85 

INPUT FILE IMAGFILE 9 

INPUT FILE, DDNAME OF THE B.5 

INPUT FORMAT 6.16-6.18 

INPUT LOGICAL TERMINAL NAME 5.11 

INPUT MDI SEGMENT 3.50 

INPUT MESSAGE NUMBER 5.11 

INPUT MESSAGE SEGMENT, BUFFER LOCATION OF THE 5. 2 

INPUT MESSAGE SEGMENTS 5.2-5.3 

INPUT MESSAGE SWITCHING EDIT 5.1 

INPUT MESSAGE, COMPLETION OF THE 3.27 

INPUT MESSAGE, MAXIMUM SIZE OF AN 3.36 

INPUT OF A SHORTENED FORMAT 5.1 

INPUT OF IMS/360 SYSTEM DEFINITION 3.96 

INPUT ONLY 3.51 

INPUT OPTIONS 1 

INPUT PASSWORDS, MAXIMUM LENGTH OF 1.3 

INPUT QUEUE 3.28,3.106 

INPUT RECORD 6 

INPUT REQUIREMENTS 1.2,1.7 

INPUT SECURITY 3.16 

INPUT SEGMENTS 5.2 

INPUT STATEMENTS 1.5 

INPUT STREAM 1.1-1.3,2 

INPUT TERMINAL FOLLOWING 1.1 



IQFUT PROCEDURE S 3.116 

IQFXL1DB 3.118 

IQFXOVL1 3.118 

IQFXOVS1 3.118 

TQFXS1DB 3.118 

ISRT 11 

ISRT CALLS 5 

TSRT, ISSUING 3.28 

JACCT 3.59-3.60 

JCL 3.32,3.61,3.66,3.81,3.87,6.12,6.11,9 

JCL. NECESSARY, EXAMPLE OF THE 6.7 

JCL PACKET 6. 15 

JCL, DESIRED 3.96 

JCL, EXAMPLE OF THE 6.8 

JCL, PROVIDES 3.117 

JCL, STAGE 2 3. 20 

JCLASS 3.59,3.61 

JOB ACCOUNTING 3. 20 

JOB ACCOUNTING INFORMATION 3.60 

JOB CARDS, NUMBER OF 3.5 

JOB CLASS 3.61 

JOB CONTROL LANGUAGE 3.66 

JOB MANAGEMENT PROGRAM LOGIC MANUAL 3.83 

JOB PRIORTY 3.61 

JOB STEP INTERVAL 3.113 

JOB STEPS 3. 116 

JOB STREAM 3.61,3.66,3.97-3.98 

JOB, FOLLOWING 2. 1 

JOB, IEBUPDTE 3.59 

JOB, IEEVLNKT 3.87 

JOB, INITIATES SECURITY MAINTENANCE 1.8 

JOB, OPERATING SYSTEM 3.3 

JOB, OS 3.66 

JOB, POOLS 3.5 

JOB, PRODUCED 3.61 

JOBCLASS 3.19-3.20 

JOBLIB 3.32,1.8,1.11,5.100 

JOBS, EXECUTING 6.11 

JOBS, SYSTEM DEFINITION STAGE 2 3.21 

J11NXXX 11 

KEY 5.119 

KEY, ISAM PRIME 5.122 

KEY, NON-ZERO PROTECT 3.105 

KEYBOARD 3.19 

KEYWORD DEFINES 6-7 

KEYWORD OF THE LINE MACRO INSTRUCTION 3.39,3.17 

KEYWORD OPERAND VALUES 3.6 

KEYWORD, COMPT 3.51,3.50 

KEYWORD, OFFSET 6 

KEYWORDS, DESC 3.13 

KEYWORDS, NORMAL 1.11 

KEYWORDS, USE OF 3.6 

KYBD 3.11,3.19 

LANGUAGE VERB 1.3-1.1 

LANGUAGE, ASSEMBLER 3.3 

LANGUAGE, OPERATING SYSTEM ASSEMBLER MACRO 3.3 

LARGEST TERMINAL INPUT BUFFER SIZE 3,17 

LENGTH 1.3,5.3,5.11,7 

LENGTH OF FEEDBACK 6 

LENGTH OF THE REQUESTED AREA 5.21 



INPUT TERMINAL SECURITY 3.15,3.52 

INPUT TRANSACTION 3.1,3.27,5.91 

INPUT TRANSACTION CODE 3.106 

INPUT TRANSACTION CODE EDIT 5.1 

INPUT TRANSACTIONS, NUMBER OF 3.26 

INPUT, ATTACHING 3.52 

INPUT, DBD SOURCE 6.12 

INPUT, DECAREA FIELD AS 5.3 

INPUT, EDIT 3.1 

INPUT, INVALID 5.87 

INPUT, MANUAL ENTRY 5.15 

INPUT, MOST 1030 5.13 

INPUT, SOURCE 6.12 

INPUT, STAGE 1 3.5 

INPUT, STAGE 2 TAKES AS 3.76 

INPUT, SWITCH CARD 5.15 

INPUT, TRANSACTION 5. 11 

INPUT, TYPES OF 3.18 

INPUT, USER 3.3 

INPUT, 100 3.71 

INPUTTING LINE 5.11,5.16 

INQ 3.26,3.28 

INQ, OMITTING 3.28 

INQU, CHARACTER SEQUENCE 3.51 

INQUIRY 3.26,3.28,1.11,6.12 

INSERT 3.81,5.98,5,9 

INSERT CALL 5.101,5.103,5 

INSERTED 10 

INSTALLATION OF THE CONTROL UNIT 3.38 

INSTALLATION, IQF/IMS 3.120 

INSTALLATION, TEST 5.13 

INSTRUCTION, LINE MACRO 3.72 

INTEGRITY 5. 123 

INTER-DESCRIPTOR 3.73 

INTERACTIVE 3. 2-3. 3,3. 1 1,3. 21 , 3. 23, 3.25, 3. 29, 

3.15,3.69,3.81,3.97,5.123 
INTERACTIVE, INCLUSION OF THE 2.7 
INTERFACE 5.12,5.61,5.85,5.87,5.91,5.123 
INTERFACES, SYSTEM 3.1,3.5 
INTERUPT 3.13 
IOAREA 5.97 
IPL 3.82,3.85 
IQF ELEMENTS 5.123 
IQF FEATURE 2.5 

IQF MOD-LEVEL DISTRIBUTIONS WILL 2.11 
IQF MODIFICATION 2.11 
IQF MODULE DMGSI1 3.97 
IQF OPERATES 3.1 
IQF PROCESSOR DATA BASES 3.81 
IQF UTILITY 3.81,3.120 
IQF.GENLIB 2.5-2.6,2.11 
IQF.GENLIB, DCB ATTRIBUTES OF THE 2.5 
IQF. LOAD 2.5-2.6 
IQF. LOAD DATA SETS 2.5 
IQF. SOURCE 2.5-2.6,2.11 
TQF, MAXIMUM 3.11 
IQFFC 3.97,3.117 
IQFFC, MEMBER NAME 3.117 
IQFIU 3.99,3.118 
IQFIU, MEMBER NAME 3.118 



LERBS 3.75 

LETTER 3.21,3.29 

LGMSG 3.32,3.101,6.11 

LGMSG DD DSN 6.9 

LGRPS 3.59-3.60 

LIBRARIES, APPLICATION PROGRAM 2. 10 

LIBRARIES, DISTRIBUTION 6.1 

LIBRARIES, IMS2.GENLIB 2.10 

LIBRARIES, IQF 2.11 

LIBRARIES, IQF.GENLIB 2.11 

LIBRARIES, RESLIB 3.68-3.69 

LIBRARIES, 3270 FORMAT SERVICES 3.73 

LIBRARY REPLACEMENTS 2.10 

LIBRARY, ACBLIB 3.68 

LIBRARY, COMMUNICATION FEATURE LOAD MODULE 

LIBRARY, DBD 3.68 

LIBRARY, DCSOURCE 3.73 

LIBRARY, IMS2.DBSOURCE 2.11 

LIBRARY, IMS2.LOAD 2.11 

LIBRARY, IMS2.PROCLIB 6.15 

LIBRARY, IMS2. RESLIB 2.9-2.10,3.80,1.2 

LIBRARY, IQF. SOURCE 2.11 

LIBRARY, IQF/IMS LOAD MODULE 2.5 

LIBRARY, IQF/IMS MACRO- DEFINITION 2.5 

LIBRARY, IQF/IMS SOURCE MODULE 2.5 

LIBRARY, MACLIB 3.69 

LIBRARY, MACRO- DEFINITION 2.1 

LIBRARY, PGMLIB 3.69 

LIBRARY, PROCLIB 3.69 

LIBRARY, PSB 3.68 

LIBRARY, RESIDENT 5.101 

LIBRARY, SOURCE MODULE 2.1 

LIBRARY, USERLIB 3.37 

LIBRARYS EXEC PGM 6.9 

LIMITATIONS 3.56 

LINE 3.8,3.36-3.37,3.52,3.120 

LINE GROUPS 3.16 

LINE, FIRST 3.120 

LINE, LINE GROUP CONTAINING ONE 3.120 

LINE, MULTIDROP 3.35 

LINE, NONSWITCHED COMMUNICATION 3.51 

LINE, PRINT 3.72 

LINE, SECOND 3.120 

LINE, SIZE OF THE PRINT 3.16 

LINE, SWITCHED 3.10 

LINE, 20 3.56 

LINE, 3270 3.16,3.19 

LINEGRP 3.8,3.30,3.31,3.37,3.52-3.51 

LINEGRP DDNAMES 3.32 

LINEGRP MACRO, EXAMPLE OF THE 3.31 

LINEGRP MACROS 3.37 

LINEGRP STATEMENTS, MAXIMUM NUMBER OF 3.60 

LINEGRP TYPES 3.36 

LINEGRP, SPOOL 3.31 

LINEGRP, SWITCHED 3.51,3.55 

LINES, LOCAL CARD READER 3.73 

LINES, SWITCHED COMMUNICATION 3.1 

LINES, 7770-3 2.10 

LINK 3.68,3.89,3.96,3.98,3.97,5.100 

LINK EDIT JCL 3.88 



3.30,3.29 
3.83 



LINK LIBRARY USING 3.78 

LINK-EDIT 3. 84 

LINK-EDIT, ORIGINAL OPERATING SYSTEM NUCLEUS 

LINK-EDIT, SYSTEM NUCLEUS 2.10 

LINK-EDITED 3.3,3.79,6.10 

LINKAGE EDITOR ATTRIBUTES 3.89 

LINKAGE EDITOR JOB STEPS 3.19 

LINKPACK 5.100 

LIST, NO POLLING 3. 32 

LISTING, SIGNON EXIT ROUTINE PROGRAM 5.66 

LNKLST00 3.8 3 

LOAD OF AN APPLICATION PROGRAM 

LOAD OF THE TYPE It SVC, ADDITIONAL 

LOAD, INCLUDE 3.101 

LOADED MODULES, LIST OF 3.8 9 

LOCATION, BASE 5.104,5.117 

LOG 4.13,5.122,2 

LOG COMMAND 4.6 

LOG RECORD I. D 5.122 

LOG RECORDS 1 

LOG TAPE, IMAGE OF THE 5.122 

LOG, LENGTH OF 5.122 

LOGICAL 3.17,3.96,4.1,5.101,2,5 

LOGICAL CONNECTION 5.64 

LOGICAL DATA BASE 3.4,6.1-6.2 

LOGICAL DATA BASES, GROUP OF 3.4 

LOGICAL DATA BASES, MAINTENANCE OF THE 

LOGICAL RECORD 3.73,5.98,2 

LOGICAL RELATIONSHIPS 1.1 

LOGICAL TERMINAL DESCRIPTION MACRO-INSTRUCTIONS 

LOGICAL TERMINAL NAMES 

3.60,3.69,4.4,5.11 
LOGICAL TERMINAL SUBPOOL 
LOGTAP1 B.8,B.9 
LONG MESSAGE RECORDS 3.18 
LOOPING 3.28 
LOWERCASE 3.32 

LT 3.99,3.108-3.109,3.111-3.112,3.114-3.116,3.118,4.10 
LTERM 3.40,3.4 5-3.46,3.51-3.52,3.54,5.64 
LTERM DEFINES 3.51 
LTERM NAME 3.51 
LTERM OPERAND DESIGNATES 3.51 
LYBO-0629 5.66 
LYB0-0631 1.3 
LYBO-0632 1.3 

LY20-0629 1.3,5.3,5.11,5.87,5.93 
LY20-0630 1.3 
MACLIB DD DSN 6.9 

MACRO 2.7,3.6,3.8,3.14,3.20,3.27,3.4 4,3.69,3.76 
MACRO DEFINITION SET 3.66 
MACRO INSTRUCTION/RESOURCE 3.56-3.57 
MACRO STATEMENT SPECIFICATION 3.27 
MACRO-DEFINITION 2.3 

MACRO- INSTRUCTION 3.7-3.9,3.14,3.19,3.40 
MACRO-INSTRUCTION DEFINES ALL DATA BASES 3.23 
MACRO- INSTRUCTION DESCRIBES 3.35 
MACRO- INSTRUCTION OF STAGE 1, IMSGEN 3.66 
MACRO- INSTRUCTION, APPLCTN 3.8,3.24,3.26-3.27 
MACRO-INSTRUCTION, BUFPOOLS 3.15 
MACRO-INSTRUCTION, COMPLETE IMS/36 SYSTEM DEFINITION 3.6 



6.1 



3.26,3.40,3.45,3.51, 
3.30 



MAXIMUM BLOCK SIZE WOULD 3.72 

MAXIMUM BUFFER SIZE 3.53 

MAXIMUM CPU 3.27 

MAXIMUM FIELD VALUE A. 5 

MAXIMUM INPUT BUFFER SIZE 3.36 

MAXIMUM LOGICAL RECORD LENGTH 3.72 

MAXIMUM MAIN STORAGE AVAILABILITY 3.13 

MAXIMUM OCCURRENCES/SPECIFICATION IMSCTRL 3.56-3. 

MAXIMUM OUTPUT BUFFER SIZE 3.36 

MAXIMUM SIZE 3.14,3.17 

MAXIMUM SPECIFICATION 3.16 

MAXIMUM VALUE 3.36-3.37,5 

MAXIO 3.10-3.12,6.12 

MAX 10 VALUE 3.12 

MAXRE3N 3.10-3.12,6.12 

MBR, DLIBATCH PROCEDURE 3.100 

MBR, IMSBATCH PROCEDURE 3.106 

MCLASS 3.59,3.61 

MCS 3.10-3.11 

MCS SUPPORT 3. 11 

MDI 3.44,3.49-3.50 

MEMBER 6.12 

MEMBER NAME PLITDLI LIBRARY RESLIB 3.119 

MESSAGE 'DTSOel TERMINAL SECURITY VIOLATIONS' 3.28 

MESSAGE BEING 5. 11 

MESSAGE BLOCKS 3.19 

MESSAGE BUFFER FORMAT 5. 42 

MESSAGE CLASS SCHEDULING 3.12 

MESSAGE DATA SEGMENT 5.2 

MESSAGE DESCRIPTOR CODE 3.11 

MESSAGE DESTINATION 5. 41 

MESSAGE EDIT ROUTINES 3.21 

MESSAGE ENTRY 6. 15 

MESSAGE FORMAT 3.17 

MESSAGE FORMAT BLOCK POOL 3.16,3.107 

MESSAGE FORMAT BLOCK POOL, SIZE OF THE 3.17 

MESSAGE FORMAT BLOCKS 3.16 

MESSAGE FORMAT SERVICE 5.2-5.3,5.20 

MESSAGE FORMAT SERVICE EDITING 5.2 

MESSAGE INPUT 3.3,5.1 

MESSAGE LENGTH 3.70,5.2,5.41-5.42 

MESSAGE LOG 6. 15 

MESSAGE PROCESSING 3.4,6.15,6.19 

MESSAGE PROCESSING PROGRAMS 6.5 

MESSAGE PROCESSING REGION 3.1,3.24-3.25,3.27,3.98 

MESSAGE PROGRAM A. 9 

MESSAGE QUEUE 2.10,3.2,3.25,3.106 

MESSAGE QUEUE DATA 3.72,6.10 

MESSAGE QUEUE DATA SETS 3.17,3.69,3.78,6.8,6.15 

MESSAGE QUEUE MANAGEMENT 3.17 

MESSAGE QUEUE REQUESTS 3.11 

MESSAGE QUEUE SPACE ALLOCATION 3.18,3.69 

MESSAGE QUEUING 3.67,6.10 

MESSAGE REGION CONTROL PROGRAM 3.25 

MESSAGE REGION EXECUTION 2.10 

MESSAGE REGION EXISTS 6.15 

MESSAGE REGION INITIALIZATION 3.110 

MESSAGE REGION JOB 3.12 

MESSAGE REGION PROCEDURES 3.79 

MESSAGE REGION STARTS 3.110 



MACRO-INSTRUCTION, DATABASE 3.4,3.23' 
MACRO- INSTRUCTION, IMSCTRL 3.10 
MACRO- INSTRUCTION, IMSGEN 3.19,3.96 
MACRO-INSTRUCTION, LINE 3.35 
MACRO- INSTRUCTION , LINEGRP 3.3 
MACRO-INSTRUCTION, PRECEDING APPLCTN 3.26-3. 
MACRO- INSTRUCTION, RESMODS 3.84 
MACRO-INSTRUCTION, TRANSACT 3.14 
MACRO-INSTRUCTIONS 2. 7, 3. 10, 3. 69, 3. 76, 3. 84 
MACRO-INSTRUCTIONS, DATABASE 3.23 
MACRO-INSTRUCTIONS, IMSGEN 3.10 
MACRO-INSTRUCTIONS, NAME 3.26 
MACRO- STATEMENTS 3.25 
MACRO, APPLCTN 3.24 
MACRO, ASSOCIATED APPLCTN 3.27 
MACRO, BUFPOOLS 3.15 
3.38 
3.23 
3.13,3.86 

3.10 
3.19,3.66 
3.59 
.35,3.53 
3.30 



MACRO, CTLUNIT 
MACRO, DATABASE 
MACRO, IMSCTF 
MACRO, IMSCTRL 
MACRO, IMSGEN 
MACRO, I MS MAX 
MACRO, LINE 
MACRO, LINEGRP 
MACRO, MULTIPLE NAME 
MACRO, NAME 
MACRO, SNAP 
MACRO, SPAREA 
MACRO, SUBPOOL 
MACRO, TRANSACT 
MACRO, WTO 



3.35 
3.51 
A. 2, A. 9 
3.69 
3.55 
3.14,3.25-3.26 
3.12-3.13 



MACROS, USING GETMAIN A. 9 

MAINTAINED 3.4,3.14,4.2,4.8 

MAINTAINED. 4. 6 

MAINTAINED, BEING 4.5 

MAINTAINED, CONCURRENTLY 4.7 

MAINTENANCE 2.10 

MAINTENANCE PROGRAM CONTROL 4.2 

MAINTENANCE, INDEX 5.122 

MAINTENANCE, NEW SECURITY 4.11 

MAKING CONTROL CARD CHANGES 6.10 

MANUAL, BTAM 3. 33 

MANUAL, OPERATOR .1.3 

MANUAL, OPERATOR REFERENCE 1.3 

MANUAL, OS OPERATORS 3.85 

MANUAL, REFERENCE 1.1,3.104 

MANUAL, SYSTEM 1.3 

MANUAL, SYSTEM PROGRAMMING REFERENCE 

MANUAL, THIS 6.1 

MANUAL, VERSION 2 UTILITIES REFERENCE 

MAP 3.19 

MASK VALUE 8,7 

MASTER 3.51,3.53 

MATRIX 4.1,4.6 

MATRIX, NEW TERMINAL 4.2 

MATRIX, NEW TERMINAL SECURITY 4.2 

MAXCLAS 3.10,3.12 

MAXIMUM ALLOWABLE 3. 17 

MAXIMUM ALLOWABLE SPECIFICATION 3 

MAXIMUM ALLOWABLE VALUE 3.20 



3.26,3.119 
3.27 
.27,3.37,3.45,5.1,5.41,5.64 



MESSAGE REGIONS 3.12,3.86,3.98,3.109-3.110,6.15,9 

MESSAGE REPEAT CAPABILITIES 3.37 

MESSAGE SCHEDULING TIME 3.4 

MESSAGE SEGMENT LENGTH, BINARY COUNT OF 5.20 

MESSAGE SEGMENT NORMALLY 5.4 

MESSAGE SEGMENT, LENGTH OF THE 5.3 

MESSAGE SPACE 3.70 

MESSAGE SWITCH 5.1,5.91 

MESSAGE SWITCH EDIT ROUTINE 5.41 

MESSAGE SWITCHING 5.1,5.11 

MESSAGE TEXT 5.41,5.64,5.85 

MESSAGE THROUGHPUT 3.70 

MESSAGE TYPES 3.1,5.1 

MESSAGE VOLUME 3.70 

MESSAGE, APPLICATION 3.1 

MESSAGE, BATCH 3.24,3.78,3.120 

MESSAGE, COMPLETED INPUT 3.27 

MESSAGE, DEFINING 3.96 

MESSAGE, EDITED OUTPUT 5.21 

MESSAGE, END OF 5.21,5.92 

MESSAGE, ENTIRE 3.50 

MESSAGE, ERROR 3.24,5.41,1 

MESSAGE, EXAMPLE OF 

MESSAGE, IMS/360 

MESSAGE, INCOMING 

MESSAGE, INPUT 3 

MESSAGE, JOB 3.11 

MESSAGE, LAST 3.30,5.124 

MESSAGE, LAST OUTPUT 5.86 

MESSAGE, LAST SEGMENT OF A 5.21 

MESSAGE, MESSAGE QUEUE DATA SETS 

MESSAGE, NEXT SEGMENT OF 5. 85 

MESSAGE, NONRESPONSE-TYPE 3.2 

MESSAGE, ONLINE 2.7 

MESSAGE, OUTPUTTED 5.124 

MESSAGE, PAGED 3.45 

MESSAGE, PARTICULAR 

MESSAGE, PERFORM 6.15 

MESSAGE, PRIOR 3.71 

MESSAGE, RESPONSE 5.6 

MESSAGE, RESPONSE-TYPE 

MESSAGE, RESTART COMMAND 

MESSAGE, SAME 3.45 

MESSAGE, SEGMENT 5. 86 

MESSAGE, TRANSMITTED 5. 123 

MESSAGE, VALUE INCLUDES BATCH 

MESSAGE, WARNING 3.14 

MESSAGES INDICATOR 3.2 8 

MESSAGES, CONTROL B. 3 

MESSAGES, DIAGNOSTIC ERROR. 

MESSAGES, EDIT OUTPUT 5.20 

MESSAGES, ENQUEUED 3.27 

MESSAGES, EXCEPTION 6.10 

MESSAGES, HIGHER RIORITY 3.2 

MESSAGES, IMS/360 SYSTEM CONSOLE 

MESSAGES, INCORE 5.91 

MESSAGES, LINKAGE EDITOR ERROR 

MESSAGES, LOGICAL TERMINAL 3.70 

MESSAGES, NUMBER OF 3.2,3.27-3.28,3.56-3.57,5. 

MESSAGES, OUTPUT 3.4,3.27,5.21 



3.2 



.15 



3.11 



4.2 



3.11 



3.21 



MESSAGES, PROCESSED 3.70 

MESSAGES, PROCESSING 1. 2 

MESSAGES, SINGLE-LINE 5.21 

MESSAGES, SYSTEM 5.91 

MESSAGES, TERMINAL MESSAGE SWITCH 5.91 

MESSAGES, UNPROCESSED 3.18 

MFDBDUMP 3.97 

MFDBDOMP APPENDIX 6.19 

MFDBLOAD 3.97 

MFDFSYSW 3.11«,6.1« 

MFDFSYSN MEMBER 3.97 

MFDFSYSN, PLACE MEMBER 3.97 

MFT 3.10,3.87,3.89,3.98,3.105 

MFT SYSTEM 3.88 

MTCR 3. Hit, 3. t9 

MICROFICHE 1.3 

MINIMUM ACCEPTABLE VALUE 3.36 

MINIMUM VALIDITY CHECK WOULD 5.41 

MINIMUM VALUE 3.37 

MNODE 3.10« 

MSODE 3.104 

MOD 3.108-3.109,5.100,5.122 

MOD-LEVEL 2. 10 

MOD-LEVEL, NUMBER OF THE 2.11 

MODE, 'STARTED' 3.9 

MODS, 2260-LOCAL 3.35 

MODEL 3.36,3.38,3.53 

MODIFICATION LEVELS 2.10-2.11 

MODIFICATION, LIMITS 3.61 

MODIFICATION, PRIVILEGED PROGRAM NAME LIST 

MODIFICATIONS 3.4,3.87,5.122 

MODIFICATIONS, DUMPQ CHAPTER 5. USER 5.1 

MODIFICATIONS, PERMANENT 2.11 

MODIFICATIONS, SYSTEM MAINTENANCE PERMANENT 

MODIFIED 5.91 

MODULE DEFINITION DFSDLA00 3.89 

MODULE DEFINITION IGG019Z9 3.89 

MODULE DFSI7770 5.87 

MODULE DFSI7770, DESCRIPTION OF 5.87 

MODULE DFSO7770 FUNCTIONS, DESCRIPTION OF '. 

MODULE DFSO7770, DESCRIPTION OF 5.93 

MODULE IEFSD161 3.88 

MODULE IGG019Z8 3.89 

MODULE IGG019Z9, LAST TWO CHARACTERS OF 3.E 

MODULE INTERFACES 5.102 

MODULE LIBRARY 2. 1 

MODULE NAME 3.108-3.109 

MODULE, ANY RANDOMIZING 5.102 

MODULE, APPENDAGE 2.10,3.85-3.86 

MODULE, DEVICE 5.64,5.86 

MODULE, DEVICE- DEPENDENT 5.97 

MODULE, EDIT 5.86-5.87 

MODULE, FIRST IMS/360 3.87 

MODULE, GENERALIZED 5.100 

MODULE, IMS/360 2972/2980 DEVICE-DEPENDENT 

MODULE, IMS/3 60 -SUPPLIED OUTPUT EDIT 5.93 

MODULE, INPUT-EDIT 5.86 

MODULE, IQF DMGSI2 3.98 

MODULE, LIST 6.11 

MODULE, LOAD 3.29,3.33,3.84-3.86,5.3,5.11, 



6.10 

3.6,3.52,3.54,3.106,4.3 
5.3 
3.98 



MULTIFIELD TEST 5,7 

MULTIPLE BLOCKS 5.99 

MULTIPLE CONSOLE SUPPORT 3.11 

MULTIPLE INVENTORY LOCATIONS 6.5 

MULTIPLE MODE 3.69-3.70 

MULTIPLE MODE INPUT MESSAGES 2,500 3.71 

MULTIPLE OF LOGICAL 3.72 

MULTIPLE SSAS 5 

MULTI PROGRAMMI NG 3.10 

MULTSEG 3.26-3.27 

MVT 3.10,3.12,3.87,3.89,3.98,6.12 

MVT, M65MP VERSION OF 3.10 

M65MP 3.10,3.12 

NAME SPECIFICATION DEFINES 3.51 

NAME, FIRST LOGICAL TERMINAL 3.54 

NAME, MEMBER 3.83 

NAME, ROOT SEGMENT 5.101 

NAMES OF THE TYPE 4 SVC MODULES 

NAMES, DEFINING PSB 3. 

NAMES, LOGICAL TERMINAL 

NECESSARY IDLE CHARACTERS 

NECESSARY, CONTROL CARDS 

NECESSARY, MACROS 3.20 

NECESSARY, SOURCE SYMBOLIC UPDATES 2.11 

NECESSARY, STEP 4.8 

NON-STATION, TELEPROCESSING RELATIONSHIP 2740 

NONBLANK CHARACTER 2 

NONRESPONSE 3.26-3.27 

NONRESPONSE-TYPE 3. 1 

NONRESPONSE, 1 3.27 

NONSWITCHED 3.30 

NONSWITCHED LINE 3.4 

NONSWITCHED 2741 LINE GROUPS 3.33 

NONZERO 5.117 

NORMAL RESTART TIME 4. 11 

NORMAL TERMINATION 2 

NOSTACTL 3.30,3.32 

NRESTART 4.1,4.11,6.15 

NRESTART COMMAND 4.6,5.1 

NUCLEUS 2.9,3.10-3.12,3.20-3.21 ,4.7 

NUCLEUS LINK EDIT STEP 3.20 

NUCLEUS MEMBER NAME 4 . 8 

NUCLEUS NAME 3.21 

NUCLEUS- ONLY 6.10 

NUCLEUS, ALTERNATE 3.12 

NUCLEUS, ALTERNATE ONLINE 3.12 

NUCLEUS, COMPOSITE IMS/360 3.11 

NUCLEUS, EXISTING CONTROL PROGRAM 

NUCLEUS, LINK-EDIT OF THE 3.85 

NUCLEUS, NEW OPERATING SYSTEM 

NUCLEUS, OLD OPERATING SYSTEM 

NUCLEUS, OPERATING SYSTEM 

NUCLEUS, OS 2.9 

NUCLEUS, RESIDENT 3.5 

NUCLEUS, SYSTEM 3.66 

NULL SPACE 3.19 

NUMERIC 3.27,5.104 

NUMERIC SUFFIX ASSIGNED SEQUENTIALLY 3.57 

OBJDSET 3.19-3.20,6.12 

OBJDSET DD DSN 6.9 



3.10 

3.85 
3.84 
10,3.83-3.84,6.10 



.85 



5.101 



5.64 



6.13 



5.43,5.97,5.100 
MODULE, OBJECT 2.11 
MODULE, ONE RANDOMIZING 5.100 
MODULE, OS AM BASIC INTERFACE 3.8 9 
MODULE, OSAM CHANNEL END APPENDAGE 
MODULE, OUTPUT EDIT 5.92 
MODULE, RANDOMIZING 5.100-5.103 
MODULE, RETRIEVE FUNCTION 5.101 
MODULE, SINGLE RANDOMIZING 5.100 
MODULE, SUPPLIED 5.66,5.87 
MODULE, SYS1.LINKLIB 3.89 
MODULE, SYS1.SVCLIB 3.89 
MODULE, TABLE 2.10,3.3 
MODULE, TYPE 1 SVC 6.10 
MODULE, TYPE 2 SVC 6.10 
MODULE, USER-SUPPLIED RANDOMIZING 
MODULE, USER-WRITTEN 5.91 
MODULE, 7770-3 DEVICE-DEPENDENT 
MODULES, ACTION 3.15,3.66 
MODULES, AFFECTED IQF LOAD 2.11 
MODULES, ALL RANDOMIZING 5.100 
MODULES, APPLICATION PROGRAM LOAD 
MODULES, ASSEMBLE ACTION 3.66 
MODULES, ASSEMBLER OBJECT 3.20 
MODULES, BISAM 3.89 

MODULES, COMMUNICATION TERMINAL MATRIX LOAD 
MODULES, CREATED 7770-3 3.86 
MODULES, DL/I 5.99 
MODULES, EDIT ROUTINE 5.41 
MODULES, EXECUTABLE CODE 3.5 
MODULES, FLOWCHARTS OF THE 
MODULES, HDAM RANDOMIZING 
MODULES, IMS/360 3.104 
MODULES, IMS/360 ACTION 
MODULES, LINK-EDIT OVERLAY 
MODULES, LINK-EDIT REENTRANT 
MODULES, LINK-EDIT REUSABLE 
MODULES, MUST LINK EDIT THESE 
MODULES, OSAM SVC 2.10,3.3 
MODULES, PLACING LOADED 3.89 
MODULES, PROGRAM 6.1 
MODULES, RENAMED 3.85-3.86 
MODULES, SVC 3.78,3.83-3.84 
MODULES, SYSTEM 2.1 
MODULES, SYSTEM LINK PACK 3.89 
MODULES, TYPE 2 SVC INTERFACE 6.10 
MODULES, TYPE 4 SVC 3.78,3.85 
MODULES, TYPE 4 SVC LOAD 3.85 
MODULES, USER SVC LOAD 



1.3 
5.100 

3.66 
3.75 
3.75 
3.75 
6.10 



MODULO 

MP65 

MSSCLASS 

MSGDB 

MSGLEVEL 



5.104,5.119 
3.12 



3.10,3.12,3.109,6.9,10 
3.74,3.101,3.103 

2.2-2.6,3.87,3.101,3.109,3.113,6.9, 
6.12-6.14,6.19 
MSGQUEUE 3.17-3.18,3.69,6.12 
MSGQUEUE MACRO- STATEMENT 3.50 
MSGTYPE 3.26-3.27 
MULTI-PURPOSE, 2772 3.4 8 
MULTIFIELD 7 



OBTAIN 4.1,5.21,5.41,5.43 

OBTAIN SPACE 5.99 

ONLINE APPLICATION PROGRAM NAMED DFSSAM04 6. 

ONLINE HDAM DATA BASES 5.100 

ONLINE IMS/360 SYSTEM 3.96 

ONLINE IMS/360 SYSTEM, TERMINAL PROTECTION OF AN 

ONLINE SYSTEM 3.83 

ONLINE SYSTEM OPERATION 2.9 

ONLY, ALL NONSWITCHED LINE GROUPS 3.30 

ONLY, ALL SWITCHED LINE GROUPS 3.30 

ONLY, DBDGEN MACRO- INSTRUCTIONS 3.69 

ONLY, 2780 LINE GROUPS 3.30 

ONLY, 2980 LINES 3.37 

OPEN/CLOSE 3.3 

OPERAND AFFECTS EMERGENCY RESTART 3.29 

OPERAND, ALLOWABLE 4.2 

OPERAND, COMPT 3.51 

OPERAND, IMSCTRL MACRO SYSTEM 3.20 

OPERAND, JOB PRIORITY 3 .59 

OPERAND, LTERM 3.44 

OPERAND, MDI 3.50 

OPERAND, POSITIONAL 3.23 

OPERAND, PROCLIM 3.2 8 

OPERANDS OF THE NRESTART, TWO KEYWORD 4.11 

OPERANDS, ALL 5 

OPERANDS, DEFAULT B. 2 

OPERANDS, HEADCTL 3.50 

OPERATING SYSTEM BSAM ACCESS METHOD 3.72 

OPERATING SYSTEM CONSOLE 6.14-6.15 

OPERATING SYSTEM JOB STREAM 3.98 

OPERATING SYSTEM NUCLEUS, RELINK-EDIT OF THE 

OPERATING SYSTEM OPERATOR CONSOLE 3.98 

OPERATING SYSTEM PARTITIONED DATA SET 5.43 

OPERATING SYSTEM READER 6.12 

OPERATING SYSTEM SYSTEM CONSOLE 6.15 

OPERATING SYSTEM, PREPARATION OF 3.83 

OPERATING SYSTEM, VERSION OF THE 3.3,3.76 

OPERATION 3.1,3.71,4.2,5.1,5.85,6.11 

OPERATION OF THE IBM 

INFORMATION MANAGEMENT SYSTEM/360 1.1 
OPERATION, RESET 5.65' 
OPERATION, SCAN MODE 5. 103 
OPERATION, 1030 INPUT TERMINAL 5.1 
OPERATIONS PERFORMED BFPLNWBK EQUALS 5.100 
OPERATIONS, CONTINUE 5.44 
OPERATIONS, QISAM SETL 5.99 
OPERATIONS, REPEAT 3.37 
OPERATOR 3.106,3.110,4.11,5.101,5 
OPERATOR COMMAND 3.73 
OPERATOR IDENTIFICATION CARD READER 3.48 



OPERATOR, MASTER TERMINAL 
OPERATOR, SYSTEM 4.11 
OPTION, FLUSH 3.16 
OPTION, MAP 3.19 
OPTION, NO 3.45 
OPTION, OVERLAY SUPERVISOR 
OPTION, PRINTED 8 
OPTION, PROTECT KEY 3.105 
OPTION, RETAIN 3.16 
OPTION, SPIE 3.100,3.110 



4.1-4.2,6.15 



OPTION, SPOOL SYSOUT 3.67,3.98 

OPTION, SYSTEM 3.12 

OPTION, TEST 3. 104-3.105 

OPTION, YES 3.4 5 

OPTIONAL IQF INDEX 3.4 

OPTIONAL PRINTING 6 

OPTIONS OF THE STATUS CARD, PRINT 10 

OPTIONS, ASSEMBLER PRINT 3.19 

OPTIONS, BASIC IMS/360 CONTROL PROGRAM 3.10 

OPTIONS, ESTABLISH PRINT 1,3 

OPTIONS, LINKAGE EDITOR PRINT 3.19 

OPTIONS, ON-LINE 3.11 

OPTIONS, RESIDENT FOOTING 3.89 

OPTIONS, SYSTEM DEFINITION OUTPUT 3.19 

ORDER 3.21,5.117 

ORGANIZATIONS, HDAM FILE 5.1 

OS 3.3,3.10,3.87,3.110,3.120 

OS COMPONENT ASSEMBLER F 3.22,3.58 

OS JOB MANAGEMENT PLMS 3.87 

OS LINKPACK 5. 100 

OS LOAD MACRO INSTRUCTION 5.101 

OS OPERATOR CONSOLE 3.87 

OS PRIVILEGED NAME TABLE 3.79 

OS PRIVILEGED PROGRAM NAME LIST 3.87 

OS PROGRAM PRODUCT ASSEMBLER H 3.58 

OS READER 6.12,6.1* 

OS RE3ION, SIZE OF THE 3.105 

OS START COMMAND 3.87 

OS SYSTEM PROGRAMMERS GUIDE 3.89 

OS SYSTEM TASK 3.37 

OS SYSTEM, TYPE OF 3.87 

OS/MVT 2.5 

OS/VS SYSTEM 3.78,3.107,3.110 

OS/VS1 3.3,3.88 

OS/VS1 SYSTEM 3.88 

OS/VS2 5.97 

OS AM 2.10,3.13,3.78,3.83-3.85,6.10 

OSAM CHANNEL 3.13,3.78,3.83,3.89,6.10 

OSAM CHANNEL END APPENDAGE IGG019GX 3.89 

OSAM CHANNEL-END APPENDAGE MODULE, CREATION OF THE 2.9 

OSAM CHANNEL-END APPENDAGE SUFFIX VALUE 3.13 

OSAM CHECK DFSDISMO 3.89 

OSAM COMMON SUBROUTINES DFSAOS20 3.89 

OSAM DATA SET 5. 99,6.1* 

OSAM OPEN 3.89 

OSAM OPEN/CLOSE EOV FINAL 3.85 

OSAM OPEN/CLOSE/EOV 3. 89 

OSAM OPEN/EOV 3.89 

OSAM OPEN/EOV DFSAOSD0 3.85 

OSAM RBN DDATA 5.122 

OSAM READ/WRITE DFSAOS30 3.89 

OSAM SUFFIX 3.13 

OSAM SUFFIX 7770 SUFFIX 3.13 

OSAM SVC LINK-EDIT 2.10 

OSAM WRITE OPERATIONS, NUMBER OF 5.99 

OSAM WRITES, NUMBER OF 5.98 

OSAM, UNBLOCKED 9 

OUTPUT BUFFER 3.47,5.92 

OUTPUT BUFFER AREA 5.91 

OUTPUT BUFFER SIZE SPECIFIED 3.47 



PARAMETERS, EXEC CARD 3.100,3.105-3.106,3.109 

PARAMETERS, FLUSH 3.15 

PARAMETERS, IMSCTF MACRO- INSTRUCTION DEFINES 3.13 

PARAMETERS, OFFSET 5 

PARAMETERS, SHR EXEC C\RD 3.98 

PARAMFTERS, STARTS KEYWORD 8 

PARAMETERS, SYMBOLIC 3.99 

P\RM FIELD 3.15 

PARM KEYWORD VALUE 4.8 

PARM, IMSMSS PPOCEDURE 3.109 

PARMS, SYMBOLIC 3.104 

PARTICULAR DATA BASE 5.100 

PARTICULAR DISPLAY STATION 3.44 

PARTICULAR PART 6.5,6.16 

PASSWORD MAINTENANCE FUNCTION 4.1 

PASSWORD MATRIX 4. 6 

PASSWORD MATRIX CHANGES 4.1 

PASSWORD OFFSET LIST 4.7 

PASSWORD SECURITY 3.97,4.11 

PASSWORD SECURITY REQUIREMENTS 4.1 

PASSWORD SECURITY SYSTEM 4.2 

PASSWORD TABLE 4.6-4.7,4.11 

PASSWORD, ACCT 4.13-4.14 

PASSWORD, CURRENT STATUS OF THE 4.1 

PASSWORD, LOCK 4.5 

PASSWORD, LOGREC 4.13 

PASSWORD, NEW 4.1 

PAFSWORD, ONE-FOR-ONE BASIS REMOVES 5.1 

PASSWORD, SECURITY MAINTENANCE PROGRAM CREATES 4.1 

PASSWORD, SMP 4.1 

PASSWORD, TNL 4.13 

PASSWORDS, DEFINE ADDITIONAL 4.4 

PASSWORDS, DELETE 4.1 

PASSWORDS, NUMBER OF 4.7 

PCB 3.68,3.107,3.110,1,3-4,6-8 

PCB COMPARE 6 

PCB SELECTION 3 

PCB, CURRENT 3 

PCB, I/O 9 

PCBL 8 

PCBS, SIZE OF THE 3.107 

PDS 2.2-2.6 

PDS, IMS2. SOURCE 3.66 

PEN 3.48 

PHASE1 3.103 

PHASE3 3.103 

PHASF.4 3.103 

PHRASE 5.97 

PHRASE, ORIENTATION 5.92,5.97 

PHRASE, PREFIX 5.92,5.97 

PHYSICAL 4.4,5.43 

PHYSICAL BLOCKS 5.98-5.99 

PHYSICAL DATA BASES 6.2 

PHYSICAL DELETE DNCTR 5.122 

PHYSICAL I/O WRITES, NUMBER OF 5.99 

PHYSICAL I/O, NUMBER OF 5.98,5.100 

PHYSICAL INSERT DPHYD 5.122 

PHYSICAL REPLACE DLASTREC 5.122 

PHYSICAL SEQUENTIAL 1 

PHYSICAL TERMINAL NUMBER 4.4 



OUTPUT BUFFER SIZES 3.37,3.39,3.49 

OUTPUT CLASS 3.20,3.61,3.108-3.109,3.116 

OUTPUT CLASS B 3.116 

OUTPUT COMMUNICATION 5.20 

OUTPUT COMPONENTS 3.48,3.52 

OUTPUT DATA SET 8 

OUTPUT DECK 3.66 

OUTPUT DEVICE 3.49,4.10,9 

OUTPUT DEVICE OPTION BLANK 3 

OUTPUT EDIT 5. 91 

OUTPUT EDIT EXIT 5.91 

OUTPUT EDIT MODULE ERROR CONDITIONS 5.92 

OUTPUT EDIT ROUTINE PROGRAM LISTING 5.93 

OUTPUT EDIT ROUTINES SPECIFIED THROUGH 3.56 

OUTPUT EDITING 5.20 

OUTPUT ENQUEUED 3.52 

OUTPUT EXAMPLE 3.90 

OUTPUT FORMAT 6.16 

OUTPUT INFORMATION 6.16 

OUTPUT LISTING 3.121,3.133,3.175,2 

OUTPUT MESSAGE SEGMENT 5.20 

OUTPUT MESSAGES INSERTS 5.3 

OUTPUT MESSAGES 360 3.71 

OUTPUT OF IMS/360 SYSTEM DEFINITION, STAGE 2 4.4 

OUTPUT OF OBJECT MODULES 3.66 

OUTPUT OF SMP 3.80 

OUTPUT OF THE ACB UTILITY PROGRAM 3.107 

OUTPUT OF THE DBD GENERATION BECOMES 6.12 

OUTPUT PHYSICAL TERMINAL, ADDRESS OF THE 5.20 

OCFTPHT PSB 6.12 

OUTPUT TRANSLATE TABLE 3.33,5.92 

OUTPUT, ASSEMBLER 5.4 9 

OUTPUT, ASSIGNED LTERM 3.51 

OOTPUT, CHECKPOINT PURGE RESULTANT 6.19 

OUTPUT, DEFINES 4.11 

OUTPUT, LONG MESSAGE 3.71 

OUTPUT, OBJECT 4. 10 

OUTPUT, QUEUES 3.54 

OUTPUT, QUEUING 3.54 

OUTPUT, RESULTANT 6.17-6.19 

OUTPUT, RESULTANT TERMINAL 6.17 

OUTPUT, SYSTEM 4.9 

PAPER TAPE READER 3. 49 

PARAMETER 3.27,3.105-3.106,4.9-4.10,5.43, 

5.87,5.101,6.10,8,3,5 
PARAMETER AUTOSCH 3.47 

PARAMETER BFPLCHWT BFPLTLCP 5.99 

PARAMETER INTER UPT 3.4 6 

PARAMETER OF THE RMNAME 5.100 

PARAMETER, AUTOSIGN 3.47 

PARAMETER, FIELD VALUE 5.101 

PARAMETER, KEYWORD 3.16 

PARAMETER, MAXREGN 3.11 

PARAMETER, MT 7 

PARAMETER, OPTIONAL 3.100,3.106 

PARAMETER, PROCLIM 3.28 

PARAMETER, REQUIRED POSITIONAL 3.109 

PARAMETER, VALUE 5.101 

PARAMETERS, DBD GENERATION-SUPPLIED 5.100 

PARAMETERS, DCB 4.9 



PLACEMENT, ROOT SEGMENT 5.100,5.117 

PLITDLI 3.111-3.112,3.119 

POINTERS 3.69 

POLL 3.30,3.32 

POOL BFPLCHWT 5.98 

POOL BFPLRDCT 5.98 

POOL BFPLSZE, ID OF 5.98 

POOL BFPLWERT 5.98 

POOL COMPACTIONS, NUMBER OF 5.98 

POOL MACRO-INSTRUCTION 3.55 

POOL MACRO-INSTRUCTION, NUMBER OF OCCURRENCES OF THE 

POOL, ADDITIONAL BUFFER 3.16 

POOL, DATABASE BUFFER 3.104 

POOL, DMB 3.104-3.105 

POOL, LOGICAL TERMINAL 3.30,3.55 

POOL, QUEUE 3.106 

POOL, SIZE OF 5.98 

POOL, TELEPROCESSING LINE BUFFER 3.105 

POOLS 3.1,3.9,3.15,3.30,3.55,3.120,5.97-5.100 

POSITIONS, REMAINING OPERAND SUBLIST 3.49 

PREALLOCATED DATA SETS 3.77 

PREALLOCATED SPACE 3.72 

PRIMARY SYSOUT SPACE 3.113 

PRINTER AFFECT ONLY DEFAULT BUFSIZE 3.32 

PRINTER, LINE 3.49 

PRINTER, 1052 3.54 

PRINTER, 3284 MODEL 3 3.48,3.52 

PRINTERS, CANDIDATE 3.4 8 

PRINTERS, 3286 3.36,3.45 

PRIOR CARD TYPE 3 

PRIOR RECORDS 4 

PRIOR SET COMMAND 5.1 

PRIOR, ASSUMES 3.120 

PRIOR, IMSGEN STATEMENT 5.87,5.93 

PRIORITIES, HIGHER SELECTION 3.2 

PRIORITY 3.21,3.26-3.27,3.61,3.105,3.113 

PRIORITY BASIS 3.2 

PRIORITY FIELD 3.26 

PRIORITY ZERO 3. 21 

PRIORITY, DISPATCHING 3.104 

PRIORITY, LIMIT 3.27 

PRIORITY, NORMAL 3.27 

PRIORITY, OS/360 DISPATCHING 3.105 

PRIORITY, SCHEDULING 3.2 

PRIORITY, SCHEDULING LIMIT 3.2 

PRIVILEGED NAME TABLE 3.3,3.78 

PROCEDURE ALLOCATES 6.14 

PROCEDURE CONTAINS 6.14 

PROCEDURE IMSCOBOL 3.96 

PROCEDURE IMSPLI 3.98 

PROCEDURE LIBRARY 3.98,3.113 

PROCEDURE LIBRARY MEMBER NAME 3.96 

PROCEDURE MFDBDUMP 6.19 

PROCEDURE, DASD READER 3.98 

PROCEDURE, EXECUTION 3.34,3.97 

PROCEDURE, FMTINIT 3.75 

PROCEDURE, IMS 3.73,3.96 

PROCEDURE, IMSMSG 3.9 8 

PROCEDURE, LINK EDIT 3.97 

PROCEDURE, NORMAL CORRECTION 5.1 



PROCEDURE, READER 3.9 8 

PROCEDURE, SYSTEM ASSEMBLER 3.61,3.66 

PROCEDURES, ACCOUNT ORIENTED 3.96 

PROCEDURES, CATALOGED 3. 36, A. 2 

PROCEDURES, COMPILER 3.88 

PROCEDURES, GENERATED 3.98 

PROCEDURES, GENERATES SYSTEM 3.11 

PROCEDURES, IMSRDR 3.79,3.86,3.98 

PROCEDURES, LINK STEPS OF 3.88 

PROCEDURES, NORMAL IMS/360 5.123 

PROCEDURES, OTHER IMS/360 ORIENTED 3.82 

PROCEDURES, SPOOL PRINT 3.32,3.31 

PROCEDURES, SYSTEM 3.21 

PROCESSING OUTPUT MESSAGES 110 3.71 

PROCESSING OVERHEAD 3. 25 

PROCESSING REGIONS, NUMBER OF 3.6 9 

PROCESSING, BATCH 2.1,2.7,3.1,3.8 

PROCESSING, BATCH-MESSAGE 2.1,3.8,3.28 

PROCESSING, BATCH-ONLY 2.1 

PROCESSING, MULTIPLE 3.2 

PROCESSING, ONLINE 2. 10 

PROCESSOR, CONTROL CARD 1 

PROCLIB 3.19,3.21,3.96 

PROCLIB DD DSN 6.9 

PROCLIM 3.26-3.27 

PROFILE 1.5 

PROFILE EXAMPLE 1.6 

PROFILE-ORIENTED 1 . 1 

PROGRAM CHECKS 3.107,3.110 

PROGRAM FUNCTION KEYS 3.H8 

PROGRAM NUCLEUS, AS PART OF THE IMS/3 60 CONTROL 5.11 

PROGRAM PRODUCT ASSEMBLER H JOB 3.22 

PROGRAM PRODUCT, MODIFICATION OF THE 2.10-2.11 

PROGRAM PRODUCT, SUPPORT OF THE 1.1 

PROGRAM PROPERTIES 3.3,3.78 

PROGRAM PROPERTIES TABLE MODIFICATION 3.88 

PROGRAM RECEIVING 3. 29 

PROGRAM SCHEDULING TIME 3.28 

PROGRAM SPECIFICATION 2.10,3.1,6.1,6.12 

PROGRAM SPECIFICATION BLOCK, GENERATION OF A 6.12 

PROGRAM SPECIFICATION BLOCKS 3. 68 

PROGRAM STATUS CHANGES 1.1 

PROGRAM SYSTEM REGION, 

CONTROL OF THE IMS/360 ONLINE CONTROL 3.21 
PROGRAM TEMPORARY FIX 2.10-2.11 
PROGRAM TERMINATES 3.21,9 
PROGRAM TERMINATES NORMALLY 3.70 
PROGRAM TERMINATION 3.29 

PROGRAM, APPLICATION CONTROL BLOCKS UTILITY 6.11 
PROGRAM, CHANNEL 5.99 
PROGRAM, CONTROL 3.66,3.106 
PROGRAM, FORMAT UTILITY 3.96 
PROGRAM, FORMATTING PRINT B. 1 
PROGRAM, GIVEN APPLICATION 5.97 
PROGRAM, IEHMOVE 2.1,2.3,2.5 
PROGRAM, IMS CONTROL 3.105 
PROGRAM, IMS/36 APPLICATION 1 

PROGRAM, IMS/360 CONTROL 3.15,3.28,1.1,1.7,5.5,6.15 
PROGRAM, IMS/360 ONLINE CONTROL 5.11 
PROGRAM, MAINTENANCE 3.80 



QUEUE 3.68,3.75 

QUEUE BUFFERS, NUMBER OF 3.106 

QUEUE, OPERATING SYSTEM/360 JOB 6.15 

QUEUED 3.15 

RAM 3.89 

RANDOMIZING 5. 100 

RANDOMIZING MODULE CONVERSION, RESULT OF A 5.103 

RANDOMIZING MODULE, INTENT OF A 5.101 

RANDOMIZING MODULE, NAME OF THE 5.101 

RANGE 3. 36, A. 8, B. 5 

RASA/SASA 3.33 

RDMVTAB 5.101,5.103 

READER 3.30,5.11 

READER/INTERPRETER 3.113 

REASSEMBLY 3.87 

REC 1.13 

RECEIVED 3.27,3.52,3.66,5.1 

RECEIVED CLOSE 6.18 

RECEIVING 3.28 

RECFM 3.101,3.106,3.108-3.109,3.111-3.115, 

3.117-3.118,1.9-1.10,1.12 
RECLNG 3.17 
RECORDS, FIXED- FORMAT 3.72 
RECORDS, VARIABLE-FORMAT 3.72 
RECORDS, VARIABLE-LENGTH 3.72 
RECOVERY 3.70 
REENTRANT 3.89,5.100 
REENTRY 5.85 

RE7ER 3.32,3.19,3.69,3.81,3.89,5.3,5.97,6.10 
REFERENCE 1.3,3.16,3.55,5.66,5.85,5.87,5.93 
REFERENCE VOLUME 1.3 

REGION CONTROL MODULE DFSRPC00 3.83 
REGION CONTROLLER 3.87 
REGION ENVIRONMENT 3.3 
REGION IMSBATCH 3.96 
REGION IMSCOBGO 3.96 
REGION IMSCOBOL 3.96 
REGION INFORMATION 3.5 
REGION JOB 3.11 
REGION MEMBER NAME 3.97 
REGION OPERATES 3.86 
REGION PARAMETER 2.1,2.5-2.6 
REGION PROTECT KEY 3.101,5.122 
REGION SIZE 3. 11 
REGION SYSTEM 3.78 
REGION, BATCH MESSAGE 3.107 
REGION, CONTROL 3.105 
REGION, DL/I BATCH 3.21,3.67,3.86 
REGION, IMS 3.87 
REGION, IMS MESSAGE 6.15 
REGION, IMS/360 6.11 
REGION, IMS/360 CONTROL 3.72,5.100 
REGION, IMS/360 CONTROL PROGRAM 3.10-3.11,3.86 
REGION, IMS/360 MESSAGE 6.15 

REGION, IMS/360 ONLINE CONTROL 5.100,6.5,6.15 
REGION, IMS/360 ONLINE CONTROL PROGRAM 5.100 
REGION, IMS/360 TELECOMMUNICATIONS 6.15 
REGION, JOB STEP DEFAULT 3.113 
REGION, ONLINE CONTROL PROGRAM SYSTEM 3.15 
REGION, READER BASIC 3.113 



PROGRAM, ONLINE APPLICATION 6.1 

PROGRAM, ONLINE CONTROL 5. 1 1 

PROGRAM, OVERLAY APPLICATION 3.110 

PROGRAM, PRIVILEGED 3.87 

PROGRAM, PROCESSING 3.29 

PROGRAM, REUSABLE APPLICATION 3.2 

PROGRAM, SCHEDULED APPLICATION 3.28 

PROGRAM, SECURITY MAINTENANCE 3.80,1.1,1.1,1.6-1.7,1.11 

PROGRAM, SYSTEM DEFINITION 3.66,3.68 

PROGRAM, SYSTEM IEHMOVE UTILITY 2.1 

PROGRAM, SYSTEM UTILITY 3.69 

PROGRAM, USER 3.50 

PROGRAM, UTILITY 3.23,3.67,6.15,1,2 

PROGRAMMER NAME 3.113 

PROGRAMMER , SYSTEM 1.3,3.3 

PROGRAMS, BATCH CHECKPOINT/RESTART 5. 122 

PROGRAMS, DESCRIBES APPLICATION 3.6 

PROGRAMS, IMS/360 SYSTEM UTILITY 1.3 

PRTY 3.19,3.21,3.26,3.59,3.61,3.109,6.9,6.12 

PS 3.68,3.72,3.71,3.103,3.117-3.118,6.9,3 

PSB 3.99-3.100,3.106,3.108,3.112,1.5,6.12,6.11-6.15 

PSB CONTROL BLOCK POOL, SIZE OF THE 3.15 

PSB DIRECTORY 3.75 

PSB GENERATION UTILITIES 3.67 

PSB POOL 3.21,3.101-3.105 

PSB, NAME OF 3.21,3.100,3.106 

PSB, PERFORM 3.78 

PSBGEN 3.69,3.97,6.1,6.12 

PSBP 3.101-3.105 

PSBS, DYNAMIC 3.21 

PSBS, SAMPLE 6.15 

PSER 3.111,6.11 

PSTS 3.75,5.102-5.103 

PT 3.11,3.19 

PTFRM 1.2,1.1,1.3,1.5 

PTERM, WORD 1.5 

PTF 2.10-2.11 

PTPNCH 3.51 

PTPNCHA 3.51 

PTR 3.11,3.19 

PTRDR 3.11,3.19 

PTY 3.101-3.105 

PUNCH 3.30,3.32,3.10,3.15 

PUNCH, 1018 PAPER TAPE 3.19 

PUNCH, 515 OUTPUT 3.19 

PUNIT 3.111,6.11 

PURGE 1.1,6.9,6.19 

PURGE COMMAND 1.6,5.1 

PURGE SCRATCH VTOC 6.9 

PURPOSE OF A RANDOMIZING MODULE 5.100 

PURPOSE OF CONTROLLING APPLICATION PROGRAM 3.28 

PURPOSES OF CONVERSION 5.101 

QBLKS 3.32,3.101,6.11 

OBLKP DD DSN 6.9 

QCR 3.101-3.105 

QIND3X 3.1 

QISAM SETLS BFPLWERR 5.98 

QISAM, NUMBER OF 5. 99 

QSAM DATA SET 5.11 

QUERY 2.7 



REGION, START 3.79,6.15 
REGION, START MSG 3.79 
REGION, SYSTEM 3.25 
REGION, VIRTUAL 3.3 
REGIONS, BATCH 3.89 

REGIONS, BATCH PROCESSING 3.21,3.96 
REGIONS, BATCH-MESSAGE PROCESSING 3.56-3.57 
REGIONS, MESSAGE- PROCESSING 3.9 
REGISTER 5.2,5.20,5.102,5.119 
REGISTER CONTAINING 5.119 
REGISTER INTERFACE 5.11 
REGISTER, BITS OF THE 5.119 
REGISTER, CONTENTS OF THE 5.119 
REGISTER, PURPOSE OF 5.102 
REGISTER, RESULT 5.117,5.119 

REGISTERS, STANDARD OS LINKAGE 5.61,5.85,5.91 
REGRESSION A. 6, A. 10 
REGRESSION TESTING A. 10 
REJECT 3.13,3.50 
RELATE 3.52 

RELATIONSHIPS 3.73,3.121,5.2,6 
RELATIVE 5.99,5.101,5.117,5-6 
RELATIVE BLOCK NUMBER 5.100-5.101,5.101 
RELATIVE BLOCK NUMBER MAY RANGE 5.101 
RELATIVE, ACTUAL 5.117 
RELATIVE, PROPER 5.117 
RELEASES OF PTF TAPES 3.1,2.11 
RELINK 2.10,6.15 
RELINK-EDIT 3.81 
REMAINDER 3.69,5.101,5.117,6.7 
REMAINDER OF A DIVIDE 5. 101 
REMAINDER OF ANCHOR POINT NUMBER 5.117 
REMAINING BASE LOCATIONS, NUMBER OF 5.117 
REMOTE 3.33,3.10 
REMOTE 3270 LINE GROUP 3.52 
REMOTE 3271 3.38 

REMOTE, GROUPS CONTAINING POTH 2260 3.38 
RENAMED 3.87 
REPEAT 5.86 
REPL A. 5 
REPL CALLS 3.28 
REPL L A. 11 

REPLACEMENT CHARACTER 3.50 
REPORTING, ATTENDANCE 3.1 
REPRESENTING DL/I DATA BASES 3.100 
REPRESENTS 3.27 

REPROCESS, EMERGENCY RESTART WILL ONLY 3.29 
REQUIRED DATA BASES 2.10 
REQUIRED DATA SETS, ALLOCATION OF 6.10 
REQUIRED ORIENTATION PHRASE 5.92 
REQUIRED PARAMETER LIBRARY LISTS 3.89 
REQUIRED PASSWORD 1.12 
REQUIRED PSBS 3. 96 
I 

REQUIRED STEPS 6.7 
REQUIRED SVC NUMBERS 6.10 
REQUIRED TEST 1 
REQUIRED, ALSO 5.1 
REQUIRED, LONGER 3.15 
j 12 REQUIRED, MODIFICATIONS 3.119 



REQUIRED, NOT 3.116 

REQUIRED, PHYSICAL I/O OPERATION 5.98 

REQUIREMENT, MAIN STORAGE 1.7 

REQUIREMENTS 3.1-3.2,3.68,3.75,3.98,3.120,6.10 



REQUIREMENTS, 
REQUIREMENTS, 



DESCRIBE RELATED USER 
DL/I TEST PROGRAM JCL 



3.5 



3.7 



3.2 



REQUIREMENTS, HIERARCHICAL SET 

REQUIREMENTS, INSTALLATION 

REQUIREMENTS, RESPONSE 3.1 

REQUIREMENTS, SAME SECURITY 4.5 

REQUIREMENTS, SPACE 3.68-3.69 

REQUIRES ABOUT .75 SECONDS 6.15 

REQUIRES, SEVEN-TRACK TAPE DISTRIBUTION 

REQUIRES, TYPE 4 SVC OS AM 3.85 

REQUIRING FORMAT SERVICES, NUMBER OF LINES 

RESERVED 3 

RESET 5.64,5.86 

RESET OF THE HOLD CONDITION 6 

RESIDENT, MAJORITY OF 4.1 

RESLIB 3.108-3. 109,3.111-3. 112,4.8 

RESLIB DD DSN 6.9 

RESLIB, MEMBER NAME CBLTDLI LIBRARY 3.1 

RESMODS 3.84 

RESMODS PARTITIONED DATA SET 3.84 

RESOURCE LIMITS, BALANCE OF 



RESOURCE OPERATIONAL 
RESOURCE ORIENTED 
RESOURCE REQUIREMENTS 
RESOURCE TYPE 3.56 

RESOURCE-ORIENTED 
RESOURCE, LIMIT OF A 



3.9 



4.5 



4.1 



3.57-3.58 
RESOURCES 3.9,3.57,3.61,4.5 

RESOURCES M, NUMBER OF UNIQUE COMBINATIONS OF SECURED 
RESOURCES, NUMBER OF SECURING 4.7 
RESOURCES, SET OF 4.1 
RESOURCES, SYSTEM 3.3 
RESOURCES, TERMS OF 4.1 

RESPECTIVELY 3.17,3.37,3.45,3.47-3.4 8,2,2 
RESPECTIVELY, IMS2. DI21PARO 6.14 

RESPONSE 3.3,3.2,3.15,3.26-3.27,3.40,3.45,5.64,5.91 
RESPONSE ATTRIBUTE 3.27 
RESPONSE EFORE 3. 1 
RESPONSE LETTER DESCRIBING 2.11 
RESPONSE-TYPE 3. 1 
RESPONSE, IMMEDIATE-TYPE 3.1 
RESPONSE, NO 3. 45 
RESPONSES, SYSTEM 3.51 
RESPONSES, YSTEM ERROR MESSAGE 3.51 
REST 7 
RESTART 4.11 

RESTART, COMPLETION OF THE 6.15 
RESTART, EMERGENCY 3.29,3.67 
RESTART, NEXT 4.1-4.2 
RESTART, NORMAL 3.80,4.11 
RESTART, NORMAL SUCCESSFUL 4.11 
RESTARTED 4. 1 
RESTORED 5.3,5.21,5.102 
RESTRICTION 4. 1 
RESULT, PARTIAL 5.119 
RESULTS 5.101 



ROUTINES OF THE RESTART FACILITY, BACKOUT 3.67 

ROUTINES, ACTUAL SVC 3.84 

ROUTINES, IMS/360 CONTROL FACILITY ENO/DEQ 3.13 

ROUTINES, IMS/360 SUPERVISOR CALL 3.83 

ROUTINES, SVC 3.84-3.85,3.84 

ROUTINES, SYSTEM RESIDENT 3.89 

ROUTINES, TRANSACTION CODE INPUT EDIT 5.11 

ROUTINES, TRANSACTION EDIT 3.56 

ROUTINES, USER 3.56,5.85,5.87 

ROUTINES, USER EDIT 3.21,5.2,5.4,5.11,5.20-5.21, 

5.42,5.85 
ROUTINES, USER SVC 2.10 

ROUTINES, USER-DEFINED EDIT 5.1,5.41,5.43 
ROUTINES, USER- FURNISHED 3.21 
ROUTINES, USER- SUPPLIED EDIT 5.1 
ROUTINES, USER-SUPPLIED INPUT EDIT 5.2 
ROUTINES, USER-WRITTEN EDIT 5.1-5.3 
SAMPLE APPLICATION ENVIRONMENT, CREATION OF THE 6 
SAMPLE EDIT ROUTINE FLOWCHART 5.45 
SAMPLE PROBLEM 5.45,5.49,6.1,6.8,6.10,6.13,6.12 
SAMPLE PROBLEM APPLICATION DATA BASE 6.6 
SAMPLE PROBLEM DATA BASE 3.97,6.14 
SAMPLE PROBLEM ENVIRONMENT 6.7 
SAMPLE, APPLICATION ASPECTS OF THE 6.6 
SAMPLE, MOVING 6.1 

SAMPLE, OPTIONAL PART OF THE 6.12 
SCD 5.20,5.42,5.97,5.124 
SCD CALL 5.97 
SCHEDULING SELECTION 3.26 
SCHEDULING, SINGLE 3.27 
SCRATCHPAD AREA, SIZE OF THE 3.29 
SCRATCHPAD AREAS, 

MAXIMUM SIZE OF CONVERSATIONAL 3.15 
SCRATCHPAD AREAS, NUMBER OF CONVERSATIONAL 3.4 
SCRATCHPAD, CONVERSATION 2.10 
SCRATCHPAD, CONVERSATIONAL 3.29 
SCRATCHPADS, MAIN STORAGE 3.14 
SDB 3.75,4.2 
SECONDARY SPACE 3.72 
SECONDARY SYSOUT SPACE 3.113 
SECURITY 3.2,3.80,3.97,4.1-4.2,4.11,5.2 
SECURITY CHARACTERISTICS 3.46 
SECURITY CONTROL BLOCKS 4.2 
SECURITY DIRECTORY MODULE NAMES 3.21 
SECURITY ELEMENTS 4.6 
SECURITY ENVIRONMENT 4.2 
SECURITY MAINTENANCE 3.1,4.7 
SECURITY MAINTENANCE CONTROL 4.4 
SECURITY MAINTENANCE EXAMPLE 4.11 
SECURITY MAINTENANCE FLOW 4.7 
SECURITY MAINTENANCE PROGRAM IQFUT 3.97 
SECURITY MAINTENANCE TABLES 4.7 
SECURITY MAINTENANCE, 

SECURITY MAINTENANCE PROGRAM 4.1 
SECURITY OF A PARTICULAR IMS/3 60 NUCLEUS 4.6 
SECURITY PROFILE SYSTEM 4. 1 
SECURITY TABLES 4.8,4.11 
SECURITY, PROVIDES TERMINAL 4.6 
SECURITY, SMP TERMINAL 4.2 
SEGMENT CANCELED 5.4 



RETAIN 3.15-3.16,3.110 

RETAIN STATISTICS 5.97 

RETRANSMISSION 5.124 

RETRIEVAL 5.100 

RETRIEVAL REQUESTS 5.99 

RETRIEVALS, NUMBER OF 5.99 

RETRIEVE 1 1 

RETRIEVE, NO OF 5.98 

RETRY 5.64 

RETURN 5.5,5.20,5.102 

RETURNED, COUNT 5.9 2 

RET7RNED, COUNT VALUE 5.65,5.86 

RETURNED, RESULTANT OUTPUT MESSAGE SEGMENT 

REUSABLE 3.70 



RFER 
RGN 

ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE, 
ROUTINE, 
ROUTINE 
5.41,5 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE, 
ROUTINE 
ROUTINE, 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE, 
ROUTINE, 
ROUTINE 
ROUTINE 
ROUTINE, 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE, 
ROUTINE 
ROUTINE 
ROUTINE, 
ROUTINE, 
ROUTINE 
ROUTINE, 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE, 



6.10-6.11 
3.98-3.99,3.104,3.103-3.104 
BASIC IMS/360 EDIT 5.20 
BASIC INPUT EDIT 5.87 
CALLING 5.123 
DEFAULT EDIT 3.29, 
DEVICE-DEPENDENT 5.65,5.86,5.91 
EDIT 3.33,3.37,5.1-5.3,5.11,5.20-5.21, 
44-5.45,5.86 
ELEMENT 2972/2980 INPUT EDIT 
IMS/36 0-PROVIDED OUTPUT EDIT 
IMS/360-SUPPLIED INPUT EDIT 
IMS/360-SUPPLIED SIGNON 5.66 
INTERREGION COPY 3.89 
INVOKED EDIT 5.20 
LOGICAL TERMINAL EDIT 3.52 
LOGICAL TERMINAL USER-SUPPLIED EDIT 
NO EDIT 3.37 
NO OUTPUT EDIT 3.34 
ONE MESSAGE SWITCHING EDIT 
ONE TYPE 2 SVC 2.10 
OSAM CHANNEL END APPENDAGE 
OUTPUT EDIT 3.34,5.93 
PHYSICAL TERMINAL OUTPUT EDIT 
RANDOMIZING 5. 103 
SAMPLE 1030 EDIT 5.43 
SAMPLE 2972/2980 INPUT EDIT 
SIGNON 5.64-5.65 
SUPPLIED OUTPUT EDIT 5.97 
SYSTEM INPUT EDIT 3.5 
TOPIC 7770-3 INPUT EDIT 3.37 
TRANSACTION CODE EDIT 5.3,5.11 
TYPE 1 USER SVC 2. 10 

2.10 

2.10 
5.66 

5.85 
5.96 



5.122 
5.93 
5.87 



5.11 



3.83 



3.33,5.20 



,124 



TYPE 2 USER SVC 
TYPE 4 USER SVC 
USABLE SIGNON 
USER INPUT EDIT 
USER OUTPUT EDIT 



USER-SUPPLIED MESSAGE OUTPUT EDIT 
USER-SUPPLIED MESSAGE SWITCHING EDIT 
USER-SUPPLIED TRANSACTION CODE EDIT 
USER-WRITTEN 5.11,5.123 

1030 EDIT 3.37,5.41,5.43 

2972/2980 INPUT EDIT 5.123-5.124 

2980 INPUT EDIT 5.123 

7770-3 OUTPUT EDIT 3.33,5.97 



3.46 



.101,5.103-5.104,5.117 



3.68,3.73 
5.1 



SEGMENT DATA DFSEOFF 5.122 

SEGMENT DIDLN, LOG RECORD OF A 5.122 

SEGMENT DLASTSEG, LOG RECORD OF A 5.122 

SEGMENT I/O 5.101 

SEGMENT I/O AREA 5.101 

SEGMENT KEY FIELD FORMAT DESCRIPTION 5.1 

SEGMENT KEY FIELD VALUE 5.104 

SEGMENT NAME 5.101 

SEGMENT OF AN HDAM DATA BASE, ROOT 5.101 

SEGMENT SEQUENCE FIELD, LENGTH OF A ROOT 

SEGMENT, 'ICS GN' MESSAGE 5.4 

SEGMENT, BIT PATTERN OF A ROOT 5.117 

SEGMENT, EACH 460-BYTE PORTION OF THE 3.6 

SEGMENT, EDITED 5.123 

SEGMENT, MULTIPLE 3.27 

SEGMENT, NORMAL 5.85 

SEGMENT, RESULTANT 

SEGMENT, ROOT ! 

SEGMENT, STANDARD DATA 

SEGMENT, THIS MESSAGE 5.4 

SEGMENTS, LENGTH 3.73 

SEGMENTS, NUMBER OF SENSITIVE 

SEGMENTS, STATUS 6.5 

SEGMENTS, SUBSEQUENT MESSAGE 

SEPARATION, PROVIDE 5.1 

SEQUENCE 3.48,5.20-5.21,5.88,5.101,1 

SEQUENCE FIELD 5.103 

SEQUENCE FIELD NAME-OPERATOR-VALUE 5. 

SEQUENCE NUMBER DDATAID 5.122 

SEQUENCE OF SIGNON ATTEMPTS 5.65 

SEQUENCE OF SPECIFYING 3.110 

SEQUENCE, LOWEST COLLATING 3.51 

SEQUENTIAL 4.9 

SEQUENTIAL DATA SET 3.69,3.73,6.10 

SEQUENTIAL INPUT DATA SET 4.10 

SEQUENTIAL MEMBERS 4.7 

SEQUENTIAL MESSAGE DATA SET 4.9 

SEQUENTIAL, BISAM 5.99 

SERIES OF STEPS 6.1,6.7 

SERIES, TEST 1-2, B. 6 

SERNUM 6.9 

SET CONTAINING CONTROL INFORMATION MUST 

SET OF TESTS, CARD CAUSES ONE 5 

SET WITHIN IMS/360 SYSTEM DEFINTION 3 

SET, SWITCHED COMMUNICATIONS TERMINAL 

SHMSG 3.32,3.104,6.11 

SHMSG DD DSN 6.9 

SHR DISPOSITION, DSE OF 3.88 

SHR MEMBER NAME MFDBDUMP 3.113 

SHR MEMBER NAME PSBGEN 3.114 

SHUTDOWN 3.7 

17-3.18,3.69,6.12 

1.1,3.1-3.2,3.13,3.16,3.49 

1.1,5.101 

1.3,3.3,6.15 

1.3,3.119 



SHUTDWN 

SH20-0910 

SH20-0912 

SH20-0913 

SH20-0914 

SH20-0915 

SIGNED DECIMAL NUMBER 

SIGNED INTEGER 3 

SINGLE-DROP 3.32 



3.85-3.86 



5.97 
3.21 



.39 



SIZE OF A MAIN STORAGE SPA 3.14 

SIZE OF THE MULTISEGMENT MESSAGE BUFFER 3.53 

SIZE OF THE SCRATCHPAD 3.29 

SIZE, APPROPRIATE BUFFER POOL 

SIZE, DEFINES DATA BASE BUFFER 

SIZE, DESIRED BLOCK 3.72 

SIZE, MINIMUM BLOCK 3.72 

SIZE, 2972 CONTROL UNIT BUFFER 

SKIP, CONTROL CNTL 9 

SLOT, FIRST COMPONENT 3.19 

SMB 3.75,5.123,9 

SMP 3.80,4.1-4.2,4.7 

SMP CONSISTS 4.7 

SNAP OF DLI BLOCKS 8 ABORT, REGION 4 REQUEST A. 6 

SNAP, UNEQUAL 1 REQUEST PRINT OF I/O BUFFERS 2 REQUEST 

SNGL 3.26,3.29 

SNGLSE3 3.26-3.27 

SNODE 3.104 

SNODE . 3.103 

SOLUTION 2.11 

SOURCE 2.3,5.66 

S3UT MEMBER NAME MFDBLOAD 3.113 

SOUT, ACBGEN PROCEDURE 3.98 

SPA 3.4,3.15,3.14,3.26,3.29,3.68 

SPA, DISCUSSION OF 3.14 

SPA, SIZE OF AN 3.69 

SPACE 3.69,3.103-3.104 

SPACE, FRAGMENTED USE OF 5.99 

SPACE, REQUIRES 3.68 

SPAREA 3.14 

SPAREA MACRO-INSTRUCTION DEFINES 3.15 

SPAS, INCORE 3.14 

SPAS, NO MAIN STORAGE 3.14 

SPAS, NUMBER OF 3.69 

SPAS, SYSTEM DEFINITION USING 3.14 

SPCBIN 3.117 

SPCBOUT 3.117 

SPECIFICATION ALLOWS 3.44 

SPECIFICATION BLOCKS 3.97 

SPECIFICATION OF ALL 3.4 

SPECIFICATION OF AN EXPANDED BUFFER 3.37 

SPECIFICATION OF COMMON 3.52 

SPECIFICATION OF PRINTER 3.32 

SPECIFICATION, APPLCTN MACRO 3.25 

SPECIFICATION, MINIMUM 3.16 

SPECIFICATION, PARTITION 5.103 

SPECIFICATION, PEN 3.48 

SPECIFICATION, SYSTEM DEFINITION 3.72 

SPECIFICATION, THIS KEYWORD 3.48 

SPECIFICATION, VALID 3.12 

SPECIFICATIONS, DIRECT SYSOUT 3.32 

SPECIFICATIONS, GENERAL SYSTEM 3.5 

SPECIFICATIONS, GENERAL SYSTEM ENVIRONMENT 3.3 

SPECIFICATIONS, SYSTEM 6.10 

SPECIFICATIONS, SYSTEM JOB CONTROL LANGUAGE 3.11 

SPECIFICATIONS, VALID SUBLIST ENTRY 3.49 

SPECIFIED CHANNEL END APPENDAGE NUMBER 3.86 

SPECIFIED DIRECT 3. 67 

SPECIFIED LIBRARY 5.41,5.43 

SPECIFIED LTERM 3.51 



STATEMENT, STEPLIB JOB CONTROL LANGUAGE 5 

STATEMENT, SYSLIB DD 3.76 

STATEMENT, TRANSACT MACRO 3.12 

STATEMENTS, COMPILATION OF THE CONTROL 3. 

STATEMENTS, CONTAINS ASSEMBLER 4.9 

STATEMENTS, CONTAINS LINKAGE EDITOR CONTROL 

STATEMENTS, CONTROL 4.2,4.6,2 

STATEMENTS, CONTROL CARD 6.13 

STATEMENTS, DD 3.108 

STATEMENTS, JCL 6.13 

STATEMENTS, JOB CONTROL LANGUAGE 2.3 

STATEMENTS, LANGUAGE 2.1 

STATEMENTS, LIST OF CONTROL 3.19 

STATEMENTS, LTERM 3.52 

STATEMENTS, NAME M\CRO 3.55 

STATEMENTS, NUMBER OF NAME 3.58 

STATEMENTS, OPTION 2,5 

STATEMENTS, POOL 3.60 

STATEMENTS, PROCEDURE CONTAINS DD 6.14 

STATEMENTS, PUNCH 3.121,3.133,3.175 

STATEMENTS, SECURITY MAINTENANCE INPUT 4. 

STATEMENTS, SPECIFIC LOGICAL TERMINALS INPUT 

STATEMENTS, SUBPOOL 3.6 

STATEMENTS, TRANSACT 3.56 

STATEMENTS, USER ADDS DD 3.99-3.100 

STATEMENTS, USER MUST ADD DD 3.104 

STATEMENTS, 2265 TERMINAL 3.38 

STATION 3.8 

STATISTICS 1.3,5.97 

STATISTICS, ACCUMULATE ERROR 

STATISTICS, USER-WRITTEN 

STATUS CHANGES 4.1 

STATUS OF A PHYSICAL TERMINAL 

STATUS, AUTHORIZED SUBSYSTEM 

STEP ACCOUNTING 3.2 

STEP EXEC MFDBLOAD 6.14 

STEPS, STAGE II ASSEMBLY 

STEPS, SYSTEM DEFINITION JOB 

STOP, INTERMEDIATE CARRIAGE 

STOPAFT 4,8-9 

STORAGE 2.2,2.4,3.4,3.14,3.68,3.104,5.100,9 

STORAGE ALLOCATION 3.73 

STORAGE AVAILABILITY 3.13 

STORAGE AVAILABLE 3.2 

STORAGE AVAILABLE, AMOUNT OF MAIN 3.13 

STORAGE BUFFER POOL SIZES 3.15 

STORAGE DEVICES 6.1 

STORAGE DUMP AS MFBP 3.106 

STORAGE SPACE 3.69 

STORAGE SPAS 3.14-3.15 

STORAGE SPAS DETERMINES, NUMBER OF MAIN 3.14 

STORAGE, CORE 3.25,5.100 

STORAGE, DISK 3.2 

STORAGE, LEAST 128K 3.3 

STORAGE, RANDOMIZING MODULE 5.100 

STORAGE, SECONDARY 3. 1 

STREAM, STAGE 1 INPUT 3.19 

STRUCTURE, SYSTEMS EQUIPMENT 6.1 

SUBJECT OF SYSTEM DEFINITION 3.1 

SUBLIST 3.51 



3.69 
5.122 



4.5 
3.88 



3.22 

3.75 
3.47 



SPECIFIED TYPE 4 SVC 3.85 

SPECIFIED TYPE 4 SVC NUMBER 3.85 

SPECIFIES 3.26-3.27,3.37,4.8,4.10 

SPECIFIES, COUNT FIELD 3.27 

SPECIFIES, SECOND SUBPARAMETER 3.46-3.47 

SPECIFIES, SECONDS FIELD . 3.27 

SPECIFIES, THIRD SUBPARAMETER 3.46 

SPECIFY THAT NO TERMINAL SECURITY 4.2 

SPECIFY 2848 CONTROL UNIT FEATURES 3.38 

SPIE 3.99-3.100,3.104,3.106,3.108,3.112 

SPIE MACROS 3.107,3.110 

SPIE, ALLOW USER 3.100,3.106,3.110 

SPIES 3.100,3.107,3.110 

SPOOL 3.30,3.32,3.34,3.45,3.47 

SPOOL DATA SET 3.47 

SPOOL DATA SET NAMES 3.32 

SPOOL DDNAME 3.32 

SPOOL DDNAME ASSOCIATION, EXAMPLE OF 3.32 

SPOOL LINE GROUP 3.3 2,3.36,3.44,3.47 

SPOOL LINES 3.36 

SPOOL SYSOUT DATA SETS 3.72 

SRL IBM SYSTEM/360 OPERATING SYSTEM 3.3 

SSYNIN 3.117 

SSYNOUT 3.117 

STAR 8 

STAND-ALONE 

STANDARD 

STARTED 

STARTING OFF 

STARTING, THOSE 5.98 

STARTS 4.11,6.15,8 

STATEMENT END 3.61 

STATEMENT OF SYSTEM DEFINITION, PSBLIB 

STATEMENT REFERENCES 3.44 

STATEMENT WITHIN 3.55 

STATEMENT, ADDITIONAL DD 3.84 

STATEMENT, APPROPRIATE DD 

STATEMENT, ASSEMBLER END 

STATEMENT, COMMENTS 2 

STATEMENT, CTLUNIT 3.38,3.52 

STATEMENT, CTLUNIT MACRO 3.38 

STATEMENT, DATABASE 3.23 

STATEMENT, DBD 5.100 

STATEMENT, DEFINED TERMINAL 3.45 

STATEMENT, EXEC 3.97-3.98,3.116 

STATEMENT, FOLLOWING TRANSACT MACRO 3.25 

STATEMENT, IMSACB DD 3.23 

STATEMENT, IMSGEN 3.97,5.66,5.87,5.97 



3.96 
3.43,3.46,3.66,6.5,3 
6.15 

5.119 



3.19 



STATEMENT, INDIVIDUAL TRANSACT MACRO 
STATEMENT, LINEGRP 3.37,5.97 
STATEMENT, LINEGRP MACRO 3.35 
STATEMENT, LONGEST PASSWORD 4.3 
STATEMENT, MACRO 3.27 
STATEMENT, MSGQUEUE MACRO 3.50 
STATEMENT, ONE LINE 3.33,3.35 
STATFMENT, PRECEDING LINE 3.49-3.50 
STATEMENT, READER PROCEDURE IEFPDSI DD 
STATEMENT, REFERENCED TERMINAL 3.52 
STATEMENT, SECOND TERMINAL 3.46 
STATEMENT, SPAREA 3.67 



3.25 



SUBPARAMETER 3.47-3.48 

SUBPARAMETER OF THE VOLUME KEYWORD, COUNT 3.73 
SUBPOOL MACRO-INSTRUCTION 3.55-3.57 
SUBPOOL MACROS 3.55 
SUBPOOL STATEMENTS J 3.58 
SUBPOOL CORE 3.105 
SUBPOOL 252 3. 13 
SUBPOOLS 3.1,3.9,3.30,3.55 
SUBPOOLS, DELIMITS 3.9 
SUBSEQUENT BLOCKS 9 
SUBSEQUENT REOUESTS 3. 28 
SUBSEQUENT TIME 3.75 
SUBSET 3.4,6.5 

SUBSET OF THE COMMAND LANGUAGE 4.6 
SUBSTRUCTURE 6.5 
SUFFIX CHARACTER 3.21 

SUFFIX, CHANNEL/ ABNORMAL END APPENDAGE 3.13 
SUMMARY OF THE FEATGROUP SPECIFICATIONS 3.121 
SUPERVISOR CALLS 3. 3 
SUPERVISOR, OVERLAY 3.25,3.110 
SUPPLIED OUTPUT EDIT MODULE MAKES 5.92 
SUPPLIED TRANSLATE 5.97 
SUPPLIED, OPTIONALLY 5. 11 

SUPPLIES, DURING SYSTEM DEFINITION IMS/360 5.81 
SUPPORT, CONVERSATIONAL 3.12 
SUPPORT, DIAL TELECOMMUNICATION 3.55 
SVC NUMBER, LOW-ORDER DIGIT OF THE 3.85 
SVC NUMBERS 3.5,3.13,3.83-3.84 
SVC ROUTINES, INCORPORATION OF THE 3.84 
SVC, AVAILABLE USER 6.10 
SVC, ONE TYPE 2 CONTROL 3.3 
SVC, OSAM 3.68 
SVC, TYPE 1 2.10,3.13,3.84 

SVC, TYPE 1 INTERREGION COMMUNICATION 3.3 
SVC, TYPE 2 3.13,3.84 
SVC, TYPE 4 3.13,3.84,3.86,6.10 
SVC, TYPE 4 USER 2.10 
SVCND 3.13,6.12 
SVCS 2.9-2.10,3.3,3.83-3.84 
SVCS, RESIDENT 3.84 
SVCTABLE 3.84 
SWITCH CHARACTERS 5.44 
SWITCHED 3.30,3.36 

SWITCHED COMMUNICATION LINE 3.40,3.55 
SWITCHED COMMUNICATION LINES, SET OF 3.55 
SWITCHED 2741 LINE GROUPS 3.33 
SWITCHED 7770 LINE GROUP 3.34 
SWITCHES BFPLCPCT 5.98 
SWITCHING, VOLUME 3.73 
SWRKIN 3.117 
SWRKOUT 3.117 
SYMBOLIC 2.11 

SYMBOLIC PARAMETERS DESIGNATE 6.14 
SYNONYMS 3.6,5.104,5.117 
SYSGO 3.99,3.114-3.115,4.10-4.11 
SYSIN 3.112,3.115-3.116,4.9-4.10,6.12-6.14 
SYSIN DATA STREAM 3.73 
SYSIN, USE OF 3.73 
SYSLIB 3.99,3.104,3.108-3.109, 
3.111-3.112,3.114,6.12-6.13 



.121- 



.122 



3.13,1.1 



SYSLMOD 3. 84, 3. 88 ,3. 99, 3. 108-3. 109, 3.114,i». 11 

SYSLMOD DATA SETS 3.88 

SYSLMOD DD DSNAME 6.12-6.13 

SYSLMOD, ItlCLODE 3.87 

SYSOBJ 6.12-6.13 

SYSOUT CLASS 3.99 

SYSOUT DATA SET 3.97 

SYSOUT DATA SET ALLOCATION 3.72 

SYSOOT LINE GROUPS 3.120 

SYSOUT, SYSPRINT DD 6.9,6.12-6.13 

SYSOUT, SYSPUNCH DD 6.12 

SYSOUT, SYSUDUMP DD 10 

SYSPRINT 2.2-2.5,3.115,4.9-4.10,3 

SYSPRINT DATA SET 5,8 

SYSPUNCH U. 9-U.10 

SYSTEM CHECKPOINT RECORDS 4.2 

SYSTEM CONFIGURATION 3.10 

SYSTEM CONTENTS DIRECTORY 5.12 

SYSTEM DEFINITION EXAMPLE SUMMARY 

SYSTEM DEFINITION RESOURCE LIMITATIONS 

SYSTEM DEFINITION UTILITY PROVIDES 

SYSTEM NUCLEUS 3.8 5 

SYSTEM PROGRAMMER 1 . 1 

SYSTEM PROGRAMMER GUIDE 3.83 

SYSTEM PROVIDES BATCH PROCESSING ONLY 

SYSTEM UTILIZES THREE SUPERVISOR CALL 

SYSTEM, BATCH 3.84 

SYSTEM, GENERATED 3.13 

SYSTEM, GENERATED IMS/360 

SYSTEM, GENERATING 3. 66 

SYSTEM, IMSCTRL 3.12 

SYSTEM, IQF/IMS 2.5 

SYSTEM, MFT 3.105 

SYSTEM, MVT 3.87 

SYSTEM, ONLINE 3.98,3.107,6.11 

SYSTEM, OPERATING 3.4,3.11 

SYSTEM, UTILITY 3.97 

SYSTEM, 2770 DATA COMMUNICATION 

SYSTEMS, PRODUCT DATA 6.1. 

SYSUDUMP 3.32 

SYSUT1, DEFAULT NAME OF 2 

SYS1.CI505 3.88 

SYS1.COBLIB 3.108-3.109,3.111-3.112,6.12-6.13 

SYS1.LINKLIB 2. 10 , 3. 3, 3. 69, 3. 68, 3. 83, 

3.86-3.89,5.10 0,6.9,6.11 
SYS1.LINKLIB IMS2.ACBLIB 3.69 
SYS1.LINKLIB IMS2.DBDLIB 
SYS1.LINKLIB IMS2.PGMLIB 
SYS1.LINKLIB IMS2.PROCLIB 
SYS1.LINKLIB RESPECTIVELY 
SYS1.LINKLIB, LNKLST0O 
SYS1.MACLIB 2.1,2.3,2.5,3.103,6.9 
SYS1. NUCLEUS 3.85 
SYS1.PARMLIB 3.8 3 

SYS1.PARMLIB, LINKLST00 MEMBER OF 3.88 
SYS1.PARMLIB, LNKLST00 MEMBER OF 3.78 
SYS1.PL1LIB 3.108-3.109,3.111-3.112 
SYS1.PROCLIB 2.10,3.79,3.83,3.87,3.98,3.113,6.9,6.11 
SYS1.SORTLIB 3.117-3.118 
SYS1.SVCLIB 2.9-2. 10,3.3,3.68,3.78, 



3.48 



3.69 
3.67 

3.67 

2.1,2.3,2.5 



TERMINAL NAME COMMAND 4.6 

TERMINAL NAMES 3.8 

TERMINAL OFFSET LIST 4.7 

TERMINAL OPERANDS 6.10 

TERMINAL OPERATION 5.2 

TERMINAL OPERATOR 3.45,5.97,6.16-6.19 

TERMINAL OUTPUT BUFFER SIZE 3.47 

TERMINAL PAGING FEATURE 3.21 

TERMINAL SECURITY 4.1,4.6,4.11 

TERMINAL SECURITY MAINTENANCE 4.2 

TERMINAL SECURITY REQUIREMENTS 1.2 

TERMINAL SECURITY, CURRENT STATUS OF 1.2 

TERMINAL SEC0RITY, MINIMUM SUBSET OF 1.1 

TERMINAL SECURITY, RESTRICTIONS OF 3.40 

TERMINAL STATEMENT 3.8,3.41-3.46 

TERMINAL STATUS CHANGES IMS/360 PASSWORD 

TERMINAL STATUS INFORMATION 5.123 

TERMINAL TYPE 3.46 

TERMINAL USER 6.18 

TERMINAL-RELATED FUNCTIONS INHERENT 5. 12 

TERMINAL, ADDITIONAL 3. 12 

TERMINAL, ALTMAST 4.11,5.1 

TERMINAL, CALLING 5.61 

TERMINAL, COMMUNICATION 3.3 

TERMINAL, DEFINED PHYSICAL 3.51 

TERMINAL, DESTINATION 5.20 

TERMINAL, ENTERING 5. 1 

TERMINAL, GIVEN PHYSICAL 3.55 

TERMINAL, IMS/360 5.123 

TERMINAL, IMS/360 COMMUNICATION 5.3 

TERMINAL, IMS/360 MASTER 3.51,3.53 

TERMINAL, INPUT 3.27,5.11 

TERMINAL, INPUT LOGICAL 5.11 

TERMINAL, INPUT-ONLY 3.46,3.51 

TERMINAL, INPUT/OUTPUT LOGICAL 3.40 

TERMINAL, INPUTTIN3 3.28,5.123 

TERMINAL, LEDGER 4.11 

TERMINAL, MAINT 1.11,5.1 

TERMINAL, MASTER 3.51,4.6,4.12-4.13,6.10 

TERMINAL, MAXIMUM NUMBER OF 3.60 

TERMINAL, OUTPUT 3.52,5.11 

TERMINAL, OUTPUT-ONLY LOGICAL 3.52 

TERMINAL, OUT1033 3.53 

TERMINAL, PARTICULAR 3.1 

TERMINAL, PHYSICAL 10 33 3.52 

TERMINAL, QTY 4.13 

TERMINAL, REPEAT LIGHT OF THE 5.44 

TERMINAL, SPECIFIC LOGICAL 1.5 

TERMINAL, STATION CONTROL PHYSICAL 3.51 

TERMINAL, SUBASSY 1.14 

TERMINAL, SWITCHED PHYSICAL 3.8 

TERMINAL, SYMBOLIC INPUT 2,9 

TERMINAL, TWX 3.47 

TERMINAL, USE OF A COMMAND 4.5 

TERMINAL, VALID LOGICAL 4.3 

TERMINAL, 1030 5.1,5.41 

TERMINAL, 2260 3.38,3.120 

TERMINAL, 2741 3.46 

TERMINAL, 2980 LOGICAL 5.123 

TERMINAL, 3270 LOCAL 3.48 



5.96 



2.1,2.3 



-2.6 



3.83-3.86,3.89,6.10 

TABLE, USER-SUPPLIED OUTPUT TRANSLATE 

TABS, NUMBER OF 3.47 

TAPE BLOCKS 3.73 

TAPE DRIVE 3.73 

TAPE INCLUDES THREE DATA SETS 

TAPE MEDIA 3.51 

TAPE MOVE DESCRIBED 6.7 

TAPE PUNCH 3.46 

TAPE USING 2. 1 

TAPE, DISTRIBUTION 2.6 

"■APE, HANDLING 3.49 

TAPE, IQF FEATURE DISTRIBUTION 

TAPE, LOS 5.1,9 

TAPE, MAGNETIC 4.9-4.11 

TAPE, SEVEN-TRACK 2.3,2. 

TAPE, SYSTEM DISTRIBUTION 2.1 

TAPE, 1600-BPI 3.66 

TAPE, 1600-BPI MAGNETIC 2.1 

TAPE, 800-BPI MAGNETIC 2.1 

TAPES, BETWEEN PTF 2.11 

TAPES, NINE-TRACK 2.1-2.2,2.4,2.6,6.15 

TAPES, PTF 2.10-2.11 

TASK, SYSTEM 3.87 

TECHNIQUE 3.84,5.119,9 

TECHNIQUE, ADD 5.119 

TECHNIQUE, LATTER 5.119 

TEDITS 3.59 

TELECOMMUNICATIONS 6.10 

TELEPROCESSING 3.77 

TELEPROCESSING 1030 LINE 

TELETYPEWRITER, 33/35 3 

TERMINAL ACTION 3.45 

TERMINAL ADDR 3.53 

TERMINAL ADDRESS 3.4 4 

TERMINAL ADDRESS CHARACTER 

TERMINAL ALLOCATION 3.96 

TERMINAL BUFFER EXPANSION FEATURE, 

SPECIFICATION OF THE 3.47 
TERMINAL CODE 3.11 
TERMINAL COMMAND 3.79 
TERMINAL COMPONENT SPECIFICATIONS 
TERMINAL CONVERSATION CAPABILITIES 
TERMINAL CONVERSATION FEATURE SYSTEM DEFINITION 
TERMINAL CONVERSATIONS 3.14 
TERMINAL DEVICE 3.70 

TERMINAL DEVICE ALLOCATION GENERATED WITHIN 
TERMINAL DEVICE TYPE 3.33 
TERMINAL FEATURE 3.37 

TERMINAL I/O REQUESTS, MAXIMUM NUMBER OF 3.1 
TERMINAL INPUT 6.19 
TERMINAL LABEL 3.51 
TERMINAL LOCKS 3.1 
TERMINAL MACRO 3.40,3.52 
TERMINAL MACRO STATEMENT 
TERMINAL MACRO-INSTRUCTION 
TERMINAL MAP 4.4 
■"ERMTNAL MODEL 3.47 
TERMINAL MODEL NUMBER 3.47 
TERMINAL MODEL NUMBER SPECIFIED 



3.91 



5.125 



3.4 
3.4 



3.35,3.40,3.56-3.57 



TERMINAL, 3275 3.44-3.45,3.48-3.49,3.51-3.52,3.120 

TERMINAL, 3286 PRINTER 3.120 

TERMINALS 4.14,5.1,5.11,5.20-5.21,5.41-5.15,5.6 5,5.86,5.92,6.15,9 

TERMINALS, DELIMITS 3.8 

TERMINALS, LINES CONTAINING 3277 3.36 

TERMINALS, NUMBER OF 3.2,3.58,5.45 

TERMINALS, PHYSICAL 3.1,3.30,3.4 0,3.44,3.51, 

3.96,5.1,5.3,5.20-5.21,6.10 
TERMINALS, PHYSICAL CHARACTERISTICS OF 3.45 
TERMINALS, READER 3.45 

6.1,6.15 



TERMINALS, USER 

TERMINALS, 1035 

TERMINALS, 1050 

TERMINALS, 2265 



3.44 



5.3 



3.48 

3.21,3.38,3.44-3.45,3.120 
TERMINALS, 2740 MODEL 1 3.120 

TERMINALS, 2710 MODEL 1 NON-STATION-CONTROL 
TERMINALS, 2740 MODEL 2 3.36,3.49,3.120 

TERMINALS, 2770 3.48,3.51,3.50 

TERMINALS, 2780 3.48 

TERMINALS, 2980 3.52 

TERMINALS, 3277 3.47-3.48 

TERMINALS, 3286 3.48 

TERMINALS, 33/35 TWX 3.28 

TERMINALS, 7770-3 3.33 

TERMINATE INPUT EDIT CONTROL 5.88 

TEST 3.104-3.106 

TEXT OF THE USER-EDITED MESSAGE SEGMENT 
TEXT T E R 5.124 
TEXTPASS 3.103 
TIME DSEQ 5. 122 

TIME, EXPECTED PER-TRANSACTION EXECUTION 3.28 
TIME, INITIAL CREATION 3.117 
TIME, PROGRHM-TRANSACTION EXECUTION 3.2 8 
TIME, SYSTEM DEFINITION 3.40 
TOUCH-TONE 3.37,5.87 
TP 3.2H-3.25.3.78 
TPDP 3.104-3.105 
TRANS 3.59 

TRANS OPERAND, SPECIFIED VALUE OF THE 3.59 
TRANSACT 3.7,3.25-3.27,4.2-4.6,1.13-4.14,6.10 
TRANSACT MACRO- INSTRUCTIONS 3.4,3.24 
TRANSACT MACRO-STATEMENTS 3.25 

TRANSACT MACRO, USE OF THE EDIT OPERAND OF THE 3.5 
TRANSACTION 3.29,4. 1,4.6,5. 1-5.2,5.85,6.5, 

6.16,6.17,6.18-6.19,9 
TRANSACTION CARD FORMAT COLUMN 5.44 
TRANSACTION CODE CLASS 3.12,3.25,3.27 
TRANSACTION CODE CONTENDS 3.26 
TRANSACTION CODE DLETPART 6.18 
TRANSACTION CODE EDIT ROUTINE ALLOWS 5.4 
TRANSACTION CODE VALIDITY 5.2 
TRANSACTION CODE, ASSOCIATION OF 3.4 
TRANSACTION CODE, EXAMPLE OF 5.4-5.5 
TRANSACTION CODE, VALUES OF THE 5.43 
TRANSACTION CODES TERMINAL SECURITY CHANGES 4. 
TRANSACTION CODES, DELETION OF 2.11 
TRANSACTION CODES, FIRST CHARACTER OF 3.26 
TRANSACTION EDIT ROUTINES E, NUMBER OF 3.58 
TRANSACTION EDIT ROUTINES, MAXIMUM NUMBER OF 3. 
. TRANSACTION INPUT EDIT ROUTINE, 



USERS, IQF 2.11 

USERS, LICENSED 2.10-2.11 

USING 10 

UTDBD 3.117 

UTILITIES REFERENCE MANUAL, 

IMS/360 RELATIONSHIP OF MANUALS 1.2 

UTILITY 2.3,2.5,3.19-3.20,1 

UTILITY BLOCK 5.101 

UTILITY TYPE 3.67 

UTILITY WRITTEN 3.3 

UTILITY, FIRST STAGE OF THE 3.3 

UTILITY, SECURITY MAINTENANCE 11.8 

UTILITY, USE OF THE SECURITY MAINTENANCE 3.1 

UTILIZES 3.71 

UTRM 6.1 

UTSPL 3.117 

VALIDITY CHECK 3.100,4.8 

VALIDITY CHECKING 5.11,5.611 

VALUE 3.11-3.13,3.36,3.50,5.99,5.103,5,9 

VALUE, ARITHMETIC 5.101 

VALUE, BINARY 5.117 

VALUE, ENTERED 3.21,3.39 

VALUE, FIELD 5.119 

VALUE, KEY 5.104 

VALUE, MINIMUM 3. 17 

VALUE, MINIMUM ACCEPTABLE 3.36 

VALUES, EIGHT-CHARACTER ALPHAMERIC 5.101 

VALUES, UNIQUE 3.36 

VARIABLES 3.1,3.10,1 

VB 3.72,3 

VBA 3. 106, 3. 109, 3. 111-3. 112,3.115,*. 9 

VBM 3.72-3.73 

VBS 3.99-3.100,3. 1011,3.108,3.112,3 
VERB, COMMAND LANGUAGE 4.3-4.4 
VERBS 4.1,4.5 
VERBS, COMMAND 4.2,5.1,5.41 
VERIFY, 2721 5.87 
VERSION 3.76,6.1 
VIDEO 3.44,3.49 

VIDEO COMPONENT SCREEN SIZE 3.4 7 
VIDEO-DEVICE 3.21 
VIDEO-PAGING 3.21 
VM 3.72-3.73 
VOKCHK 3.43,3.50 
VOL 3.74,3.88,3.99-3.100,3.104,3.108-3.109,3.112 

3.114,6.9,8-9 
VOLUME 5.3 
VPPERS 4. 6 
VS/1 3.10 
VS/2 3.10 
VS/2 SYSTEM 3.3 
VS1 3.87,3.89,3.98,3.105 
VS2 3.89 
VS2 SYSTEM 3.3 
WAITING 3.26-3.27 
WRAP 3.104-3.105 
WLA 3.38,3.40,3.47,3.53 
WORD EOF 4 
WRITE-CHECKING 6.15 
WRITTEN, RECORDS 3.72 



NAME OF A USER-SUPPLIED 3.29 
TRANSACTION TRANSACT, USE OF A 4.5 
TRANSACTION, CONVERSATIONAL 3.14,3.29,5.2 
TRANSACTION, DISBURSEMENT 6.18 
TRANSACTION, NAMES 3.7 
TRANSACTION, RESPONSE-TYPE 3.27 
TRANSACTION, SECOND 6.16 
TRANSACTION, SINGLE 3.27 
TRANSACTIONS, BATCH ONLINE 3.1 
TRANSACTIONS, BMP 3.28 
TRANSACTIONS, HIGHER PRIORITY 3.2 8 
TRANSACTIONS, IQF 3.29 
TRANSACTIONS, MULTIPLE-MODE 3.70 
TRANSACTIONS, SAMPLE PROBLEM 6.6 
TRANSACTIONS, SINGLE-MODE 3.70 
TRANSACTIONS, TYPES OF 3.2,5.2 
TRANSC 3.32 

TRANSLATE TABLES 3.75,5.92 
TRANSLATION 3.32,5.2 
TRANSLATION, NO 5.6 5 
TRANSMISSION 3.52 

TRANSMISSION CODE, USE OF THE 3.33 
TRANSMISSION OF BACKSPACES 5.1 
TAX 3.30,3.43,3.46 
TWX SWITCHED LINE GROUP 3.120 
T»X, ALLOWABLE VALUES 3.32 
TXTPASS 3.103 

TYPE 4 SVC MODULE NAMES 3.85 
TYPE, SYSTEM RESOURCE 3.56 
TYPES, ALL TERMINAL 3.4 
TYPES, COMMUNCIATION TERMINAL 5.20 
UNIT-2311 2.6 
UNIT, CONTROL 3.8,3.40,3.39 
UNIT, MANUAL ENTRY 5.43 
UNIT, SIDC01 DD 6.9 
UNIT, SYSOUT 3.113 

UNIT, 270X COMMUNICATION TRANSMISSION CONTROL 
UNIT, 270X DATA ADAPTER 3.33 
UNIT, 2772 MULTI-PURPOSE CONTROL 3.52 
UNIT, 2845 CONTROL 3.45 
UNIT, 3277 DISPLAY 3.45 
UNITS, ATTACHING 3.4 8 
UNITS, I/O 3.2 

UNITS, 255 NUMBER OF CONTROL 3.61 
UNITS, 2848 CONTROL 3.38-3.39 
UNITS, 2972 CONTROL 3.38 
UNITS, 3271 CONTROL 3.38-3.39,3.47 
UNITYPE 3.30,3.3 2-3.35,3.37,3.52-3.54 
UNLOADED PARTITIONED DATA SETS 3.66 
UNLOCK 4.4-4.5 
UNPLANNED 6. 1B 
UPDATE COMPLETED 6.18 
UPDATE SECURITY TABLES 4.8 
UPDATES 2.11,3.115,4.8,6.18,11 
UPDATES, PTF TAPE CONTAINS SYMBOLIC 2.10-2.11 
UPDATES, SOURCE LIBRARY 2.11 
UPDATES, SOURCE SYMBOLIC 2.11 
UPPERCASE/LOWERCASE 3.29 
USAGE, SYSTEM 3.14 
USASCII 3.32 



WTOR 3.51 

XREF 3.19,6.12 

XREF INCLUDES 3.19 

XREF, PRINT OPTION 3.19 

ZERO CONTENT 5.119 

ZERO LENGTH SIGNIFIES 5.124 

ZERO, LENGTH OF 5.41,5.45 

ZERO, LIMIT PRIORITY VALUE OF 3.25 

ZERO, NON 3.104 

ZERO, QUOTIENT OF 5.117 

ZEROS DLOGCODE 5.122 

00, RETURN CODES 5.65 

1030 3.30,3.33,3.35-3.36,3.56 

1030 AUTOPOLL 3.32 

1030 COMMUNICATION SYSTEM 5.1 

1030 EDIT ROUTINE MAY LOOK 5.41 

1030 LINES 3.36-3.37,3.42,3.45,3.52 

1030 NONSWITCHED LINE GROUP 3.120 

1030 SUPPORT 5.43 

1031 3.42,3.44,5.41,5.43-5.44 
1031 LINE 3.54 

1031 NAME 3.54 

1031, DEFINE MULTIPLE 3.44 

1033 3.42,3.45,3.52,5.2,5.43 

1035 3.44,5.41 

1050 3.5,3.27,3.30,3.48,3.51,3.54,3.130 

1050 CONTROL 3.5 

1050 FEAT 3.32 

1050 LINE 3.43,3.46,3.54 

1050 LINE GROUP 3.55 

1050 NONSWITCHED LINE GROUP 3.120 

1050 SWITCHED LINE GROUP 3.120 

1050 TERMINALS ONLY 3.27 

1050 2740 2741 FEAT 3.32 

1050A 3.54 

1052 3.43,3.45 

10 53 3.38,3.40,3.43,3.45-3.46,3.49,6.17-6.19 

1053 NAME 3.53 

1053 PARAMETER CAN NOT 3.38 

1053 PRINTER 3.120 

1057 3.54,6.16 

22 60 3.21,3.30,3.3 3-3.34,3.38,3.40,3.44-3.45 

2260 DISPLAY STATION 6.10 

22 60 LINE 3.53 

2260 LINE GROUPS 3.39,3.45 

2260 LOCAL 3.35 

2260 LOCAL MODS 3.36,3.45 

2260 REMOTE 3.34,3.40 

2260 REMOTE LINES USE CONVENTIONAL 3.32 

2260 REMOTE MODE 3.38 

2260 TERMINAL CONFIGURATION 3.54 

2260S 3.32,3.53 

2265 3.30,3.33,3.40,3.44-3.45,3.47 

2265 DISPLAY STATION, PRESENCE OF A 3.49 

2265 LINE 3.40 

2265 LINE GROUPS 3.48 

2301 3.17 

2303 3.17 

2305 3.17 

2311 2.1-2.6,3.17,6.8-6.9,6.12-6.14 



USE OF THE START 3.3 
USED BUFFER BFPLBWDB 5.98 
USED BUFFER BFPL2CB 5.98 
USER ADDRESSES 3.52 
USER CALL DOSAM 5.122 
USER CALL LIST 3.100,3.107,3.110 
USER CAN ALSO SPECIFY 5.2 
USER CAN SPECIFY 2.9-2.10 
USER CHOOSES 3.2 
USER CONTROL 3.24 

USER DEFINED FMT/MSG DESCRIPTOR 3.73 
USER DEFINES 3.14 

USER DEFINES IMS REGION TYPE 3.116 
USER DESIRES 4. 11 
USER DISCRETION 5.91 
USER EDIT 5.85 
USER EDIT FUNCTION 5.2 
USER EDIT ROUTINE EXITS 5.1 
USER ENVIRONMENT 3.69,6.15 
USER GENERATES 3.66 
USER IMS/360 DATA BASES 3.119 
USER IMS/360 SYSTEM 4.3 
USER INPUT EDIT EXIT 5.85 
USER OF THE SAMPLE 6.10 
USER OPERATING ENVIRONMENT 3.68 
USER OPTION 4.2 

USER OUTPUT TRANSLATE TABLE 5.97 
USER OUTPUT TRANSLATE TABLE INCLUSION 5.97 
USER OUTPUT TRANSLATE TABLE LISTING 5.97 
USER PCBS 3.107,3.110 

USER PROGRAM SPECIFICATION BLOCKS 3.67 
USER RECEIVES 2. 1 
USER REQUIREMENTS 3.68 
USER RESOURCES, DESCRIPTION OF 3.6 
USER RESPONSIBILITY 3.85-3.86,5.65-5.66,5.92-5.93 
USER ROUTINE SHOULD VALIDITY CHECK 5.64 
USER ROUTINES REFERS 3.56 
USER ROUTINES, MAXIMUM NUMBER OF 3.60 
USER SPECIFICATIONS 3.3 
USER SPECIFIED MACLIB 3.97 
USER SPECIFIED PROCEDURE LIBRARY 3.75 
USER SPIE 3.100,3.107,3.110 
USER STRUCTURES IMS/360 3.1 
USER SUPERVISOR CALLS 2.9 

USER SUPPLIES INFORMATION DETERMINING 3.5 
USER SYSTEM 3.14,3.21,3.23,3.29,5.11 
USER SYSTEM CONFIGURATION 6.13 
USER SYSTEM DEFINITION SOURCE DECKS 3.15 
USER SYSTEM RESIDENCE LIBRARY 3.5 
USER SYSTEM/370 6.10 

USER TELECOMMUNICATIONS SYSTEM 3.3 
USER TRANSLATE 5.92 
USER-SPECIFIABLE 2.1,2.5-2.6 
USER-WRITTEN MODULES, INCORPORATION OF 3.4 
USER, IMS/360 3.89,4.1,5.2,5.97,5.100,6.10 
USER, IMS/360 SYSTEM 3.2,3.84,5.104 
USER, SYSTEM 3.3,3.16,3.21,6.12,6.15,6.17 
USERLIB 3.19,3.21,5.41,5.43 
USERS INSTALLATION 3 
. USERS, IMS 3.4 



2311 CYLINDER 6.15 

231 a 2.1,2.5-2.6,3.17-3.18,3.69,3.88 

23U CYLINDERS 3.72,6.15 

2310 SPACE, ABOUT 10 CYLINDERS OF 3.69 

2311 SPACE, ABOUT 5 CYLINDERS OF 3.69 
2314 SPACE, 10 CYLINDERS OF 3.69 
2314 TRACK 3.70 

2 K00 3.99-3.100,3. 10 4, 3. 108,3.112, 8-9 

2400-4 2.2,2.4,2.6 

2400-4, GENERIC NAME 2.1,2.5-2.6 

270X 3.33 

2740 3.30,3.32,3.44,3.51,3.55,3.120,6.10 

2740 LINE 3.37,3.53,6.12 

2740 LINEGRP 3.36 

2740 LINES ONLY 3.35 

2740 MODEL 1 NON-STATION-CONTROL 3.40 

2740 MODEL 2 LINES 3.43,3.49 

2740 NON-STATION 3.27,3.125-3.129 

2740 SWITCHED LINE 3R0UP 3.120 

2741 3.28,3.30,3.3 2, 3. 40,3.44,3.12 
2741 LINE 3.27,3.33,3.43 

2741 LINE GROUPS 3.46 

2741 SWITCHED LINE GROUPS 3.120 

2770 3.30,3.33,3.45,3.48,3.51,3.120 

2770 DATA COMMUNICATION SYSTEM 3.49 

2770 LINE 3.32,3.44,3.51 

2770 LINE GROUPS 3.33,3.47 

2770 LINES ONLY 3.35,3.37 

2770 TERMINAL MEDIA 3.52 

2770 USERS ALSO 5. 1 

2780 3.30,3.34,3.48,3.51,3.131 

2780 LINE 3.33,3.43 

2780 LINE GROUPS 3.33-3.34,3.51 

2845 3.40 

2848 3.39,3.53 

2972 3.38 

2980 3.30,3.38,3.51,3.56,5.1,5.123 

2980 LINE 3.44 

2980 LINE GROUPS 3.38-3.39,3.47 

2980 LINES ONLY 3.37 

2980 MODEL NUMBER 3.47 

2980 NONSWITCHED LINE GROUP 3.120 

2980 TELLER 5.123 

3270 3.16,3.30,3.33,3.35-3.36,3.40,3.44-3.45,3.49 

3270 DEVICES 3.21 

3270 DISPLAY UNITS MAY NOT 3.45 

3270 LIME 3.33,3.51 

3270 LINE GROUP 3.38,3.45,3.47,3.120 

3270 LOCAL 3.35-3.36 

3270 LOCAL LINE 3.40 

3270 REMOTE 3.32-3.33,3.38,3.42,3.120 

32 70 REMOTE LINE GROUP 3.45,3.4 8 

3270 REMOTE LINES 3.49 

3271 3.44 

3271 CONTROL UNIT SUPPORTING 3.120 

3275 3.42,3.44,3.48 

3275 TERMINAL COMPLEX 3.51 

3275 TERMINAL WITHIN 3.52 

3277 3.42,3.44 

3284 3.41-3.42,3.45,3.47-3.49 



3284, BUFFER SIZE OF THE 3.49 

3284, LINES CONTAINING 3.36 

3286 3.42,3.47-3.48 

3286 TERMINAL BEING 3.49 

3330 3.17 

7770 3.28,3.30,3.3 2,3.34,3.36-3.37 

7770 LINE 3.32,3.37,3.56 

7770 LINE GROUP 3.120 

7770 3 LINES 3.13 

7770-3 3.13,3.35,5.64,5.85,5.87,5.91-5.92 

7770-3 ANSWERS 5.66 

7770-3 CHANNEL/ABNORMAL 3.3,3.83,3.89 

7770-3 LINE 3.27,3.37,3.83,5.64 

7770-3 LINE GROUPS 3.33 

7770-3 LINES ONLY 3.35 

7770-3 READ/WRITE MODULE DFSFCPY0 3.89 

7770-3 SIGNON EXIT ROUTINE INCLUSION 5.65 

7770-3 USER OUTPUT TRANSLATE TABLE 5.97 

7770-3 V0CA3ULARY, VARIABLE NATURE OF THE 5.92 
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